如何用VBA编写宏来获取材料的类型？

kavenlee72

solidworks2012的材料库里，材料都分了类，如“钢、铁、塑料、橡胶”等等，如何用VBA编写宏来获取材料的这些类型呢？
3 Z( r" _' g' X3 Z5 w

$ d! S4 x4 Y4 w$ I! O! {1 }请各位大神赐教，谢谢！

大鹿

MaterialIdName

kavenlee72

大鹿 发表于 2016-4-19 22:55
' p, b/ ^( d8 m/ T& U* ~8 E. }MaterialIdName

能说详细点么？最好能给我举个例子！谢谢

ryouss

參考
+ Z9 l! j1 Y( [, P! k

1. Sub main()
   
2. 
   $ y! \% P0 b% g2 i4 t; Y/ _6 S
3.     Dim swApp                       As SldWorks.SldWorks
   
4.     Dim swModel                     As SldWorks.ModelDoc2
   1 P4 J. d2 ^# Z2 h7 V
5.     Dim swPart                      As SldWorks.PartDoc
   
6.     Dim sMatName                    As String
   : D2 X  Y5 W4 _+ X
7.     Dim sMatDB                      As String
   
8.     Dim bRet                        As Boolean
   + T& e# T7 a0 G3 u! M" ?
9.    
   2 P( e4 r, t+ k$ y) d
10.     Set swApp = Application.SldWorks
      E; i3 t& Q& q: Z6 U
11.     Set swModel = swApp.ActiveDoc
    
12.     Set swPart = swModel
    
13.     sMatName = swPart.GetMaterialPropertyName2("Default", sMatDB)
    - n0 ~5 \3 W3 ~, C( g  H9 J
14.     Debug.Print "File = " & swModel.GetPathName
    
15.     Debug.Print "  Material = " & sMatName & " (" & sMatDB & ")"
    0 X; F# p) c; Q+ g: H
16. 
    
17. End Sub

复制代码

kavenlee72

ryouss 发表于 2016-4-21 08:42
參考

$ v/ f1 |0 q% o# V! q' f) p5 B- IGetMaterialPropertyName2获得的是材料的名称，如“红铜”，我是希望能获得“红铜”的类别，如“其它金属”“钢”“铁”等。

kavenlee72

高手不露面，自己顶一下，别沉了

kavenlee72

难道SOLIDWORKS API 不能实现这个功能？

lhl2008

你用下面代码试试
Dim swMatDB As MSXML2.DOMDocument, MatList As Variant
0 a$ z# _5 {. {! k  Z    Set swMatDB = New MSXML2.DOMDocument
/ l3 F7 Q7 L" l5 p9 ]" r- n2 g  d: Y'    材料库所存储的路径
    swMatDB.Load "C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\sldmaterials\solidworks materials.sldmat"
8 G. R- w4 C7 S' W, G
    Set MatList = swMatDB.getElementsByTagName("material")
' [& ~' W$ W7 }    Dim MatName() As String, Mat As Variant
    ReDim MatName(MatList.Length - 1)
    For Mat = 0 To MatList.Length - 1

7 v% S0 q; Y! y& y. x        MatName(Mat) = MatList.Item(Mat).parentNode.Attributes.Item(0).nodeValue

; y' `+ [9 t) y5 ]    Next Mat

( x8 `4 f7 q+ S) A

kavenlee72

lhl2008 发表于 2016-4-27 00:17
你用下面代码试试
2 j2 o9 v' U% e/ \* P' k! [Dim swMatDB As MSXML2.DOMDocument, MatList As Variant
, u$ u! M% H4 h2 o( R9 x    Set swMatDB = New MSXM ...

高手啊！

9 j& K" U( @) J1 s5 v我试试

谢谢！

kavenlee72

lhl2008 发表于 2016-4-27 00:17
5 y3 e# N3 `/ \9 `% X2 S你用下面代码试试
* f, U, B) M, b3 B3 W. ^. y3 u/ b" |Dim swMatDB As MSXML2.DOMDocument, MatList As Variant
    Set swMatDB = New MSXM ...

* P9 c( u8 l3 Y' r) _8 y不好意思，您这段代码在solidworks的VBA环境中运行提示“用户定义的类型未定义”，请教是什么问题？如何解决？谢谢

lhl2008

在引用中加入

, }4 R% m  U( \4 @' j4 K材料库文件是一种XML文件，需要引入Micosoft XML类型库来操作。
2 }6 Z/ @* f# }# m' ]4 w, x; G5 N

kavenlee72

lhl2008 发表于 2016-4-29 12:54
5 O  |) K6 I/ E/ z9 s: }1 j  a在引用中加入
: I' X) I. q/ i0 M" H, y
1 Y: @% Y* `' f# E+ ]6 ~( x材料库文件是一种XML文件，需要引入Micosoft XML类型库来操作。

$ N/ t# W/ Y4 R$ u7 j, m成功了，谢谢！
/ i2 u! H) Q, |
/ J, n( S" q" g! w- K但不明白下面这句：
Set MatList = swMatDB.getElementsByTagName("material")，括号里的“material”为什么是"material"而不是其它？
0 b8 s% R- A' s& Q$ L+ V- ]* W4 Y
; f5 g  b" A, z
) k+ W7 N& ]7 ?" H) A下面是我编写的获取材料类别的全部代码：
Sub main()
9 q, ]/ H7 I% w" z/ z: Z) v
Dim swApp                       As SldWorks.SldWorks
' ]$ P& y' Z- o6 q% M2 V( }Dim swModel                   As SldWorks.ModelDoc2
Dim swPart                       As SldWorks.PartDoc
Dim dbs                             As Variant
Dim sMatName                As String
; {) `) R$ X3 Z2 b: E- I# ?* X& VDim sMatDB                      As String
( P# o+ w1 O1 v/ R) D4 `, DDim bRet                           As Boolean
Dim i                                   As Long
Dim matPath                    As String
Dim swMatDB                  As MSXML2.DOMDocument
Dim MatList                      As Variant
6 _; D& u, R* T- a- m5 e& `
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
, V( n0 E+ q. _' mSet swPart = swModel
1 B- Y8 J6 b- \) o/ ?dbs = swApp.GetMaterialDatabases
5 y2 g( P# I5 @# C) I$ J4 i2 W! fsMatName = swPart.GetMaterialPropertyName2("Default", sMatDB)
7 p1 r. m+ L+ A* w8 R. s2 d" d( iFor i = 0 To UBound(dbs)
! i* L  V, n5 _' d! F' v      If StrComp(LCase(Left(Right(dbs(i), Len(sMatDB) + 7), Len(sMatDB))), LCase(sMatDB)) = 0 Then
           matPath = dbs(i)
" z) n0 M% }3 L. Q/ i" q1 K           GoTo MatTpye
      End If
Next i

1 G: O7 N7 f% `3 D( ZMatTpye:
  O! f  |% H' D" nSet swMatDB = New MSXML2.DOMDocument
! K( }3 X/ v$ [( ?. ]7 T ' 材料库所存储的路径
; O1 F5 w! {: i& E5 s5 gswMatDB.Load matPath
Set MatList = swMatDB.getElementsByTagName("material")
Dim MatName() As String, Mat As Variant
ReDim MatName(MatList.Length - 1)
# r! ~. }, f# o6 N4 G      For Mat = 0 To MatList.Length - 1
            If MatList.Item(Mat).Attributes.Item(0).childNodes.Item(0).nodeValue = sMatName Then
                 MatName(Mat) = MatList.Item(Mat).parentNode.Attributes.Item(0).nodeValue
* d. m9 E" N) g2 o2 j                 GoTo Finish
            End If
      Next Mat

Finish:
End Sub

如有不对，请批评指正，谢谢！

ryouss

kavenlee72 发表于 2016-5-3 16:19
成功了，谢谢！
  a  ^5 Z3 Y2 `4 U8 q
但不明白下面这句：

2012 測試ok,謝謝分享

, U/ V2 j. R: H( p3 q建議補加如下紅字,在 "即時運算" 欄顯示材料類別．
! `  o4 Y( t& S$ \( m& y

; }  s8 `8 T' Z" q　　　　MatName(Mat) = MatList.Item(Mat).parentNode.Attributes.Item(0).nodeValue
8 K$ s) R5 }- x- P! m. S( z/ R% S
                 Debug.Print "材料類別: " & MatName(Mat)

                 GoTo Finish