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

kavenlee72

, D9 Q: e9 ]% @" }1 g! C( }
5 S) ]; a" D: P9 i0 b' msolidworks2012的材料库里，材料都分了类，如“钢、铁、塑料、橡胶”等等，如何用VBA编写宏来获取材料的这些类型呢？
' R. w4 n$ m" I) U. g

0 p' J5 H% |+ Z1 }- W1 M请各位大神赐教，谢谢！
. r8 C/ i" E' T/ t

大鹿

MaterialIdName

kavenlee72

大鹿 发表于 2016-4-19 22:55
MaterialIdName

# U: H2 G- ~( C- J2 Z能说详细点么？最好能给我举个例子！谢谢

ryouss

! b" t; A1 @7 x/ A7 G參考

1. Sub main()
   
2. 
   
3.     Dim swApp                       As SldWorks.SldWorks
   ( O6 j9 T/ v" g$ V9 p8 Q
4.     Dim swModel                     As SldWorks.ModelDoc2
   , C! y: r, f) ]# k* I& N  I
5.     Dim swPart                      As SldWorks.PartDoc
   
6.     Dim sMatName                    As String
   
7.     Dim sMatDB                      As String
   
8.     Dim bRet                        As Boolean
   ! J0 q/ W/ n3 ~' B2 D; f7 ^
9.    
   " b  t: ~9 K- J$ G* }
10.     Set swApp = Application.SldWorks
    6 U3 [) ?5 j( _' R4 Q
11.     Set swModel = swApp.ActiveDoc
    
12.     Set swPart = swModel
    . R% i7 Y  H" Q" y$ p
13.     sMatName = swPart.GetMaterialPropertyName2("Default", sMatDB)
    
14.     Debug.Print "File = " & swModel.GetPathName
    
15.     Debug.Print "  Material = " & sMatName & " (" & sMatDB & ")"
    
16. 
    
17. End Sub

复制代码

kavenlee72

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

GetMaterialPropertyName2获得的是材料的名称，如“红铜”，我是希望能获得“红铜”的类别，如“其它金属”“钢”“铁”等。

kavenlee72

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

kavenlee72

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

lhl2008

你用下面代码试试
Dim swMatDB As MSXML2.DOMDocument, MatList As Variant
    Set swMatDB = New MSXML2.DOMDocument
: e3 A" P% N6 S7 V) S$ M'    材料库所存储的路径
: n+ s0 n) J. {1 S" Q2 Z! F    swMatDB.Load "C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\sldmaterials\solidworks materials.sldmat"

/ M6 }# v" L- ]; c, M* R    Set MatList = swMatDB.getElementsByTagName("material")
) e" H' Q: T, h* G, M% C    Dim MatName() As String, Mat As Variant
# e9 P2 x: d, r3 R2 x    ReDim MatName(MatList.Length - 1)
; l$ l5 ?6 `+ p0 i! [0 r/ \, z    For Mat = 0 To MatList.Length - 1
$ o! D4 U3 y* b9 R7 Y) m
        MatName(Mat) = MatList.Item(Mat).parentNode.Attributes.Item(0).nodeValue

    Next Mat

. P0 E+ M* {4 o$ L( Z- J4 d  J

kavenlee72

lhl2008 发表于 2016-4-27 00:17
你用下面代码试试
( W: z$ M2 c1 h, V. VDim swMatDB As MSXML2.DOMDocument, MatList As Variant
2 I. b2 K2 J9 @8 G: N5 b    Set swMatDB = New MSXM ...

高手啊！

我试试
( w4 b& y' `; q
% m4 c; }3 u+ j, B) V" S/ }谢谢！
3 \! M- |5 K9 B: m

kavenlee72

lhl2008 发表于 2016-4-27 00:17
/ q/ k* a$ \* z1 ~( L% y你用下面代码试试
Dim swMatDB As MSXML2.DOMDocument, MatList As Variant
    Set swMatDB = New MSXM ...

不好意思，您这段代码在solidworks的VBA环境中运行提示“用户定义的类型未定义”，请教是什么问题？如何解决？谢谢

lhl2008

) x7 F) Z5 r# t9 |" r" @+ Z
在引用中加入

; L' m: K6 T3 a8 l# H材料库文件是一种XML文件，需要引入Micosoft XML类型库来操作。
4 R0 u- r  r$ j0 Y+ N- o- _

kavenlee72

lhl2008 发表于 2016-4-29 12:54
在引用中加入

% A2 n1 A1 O3 d2 B5 E* I# h5 W材料库文件是一种XML文件，需要引入Micosoft XML类型库来操作。

7 S" p2 d  H) A$ B- ^成功了，谢谢！

% R, \. q0 F( N' y$ M+ g4 I- m. N: s- q但不明白下面这句：
Set MatList = swMatDB.getElementsByTagName("material")，括号里的“material”为什么是"material"而不是其它？
  C) u0 s; g. X8 T# s3 p' Z1 q

下面是我编写的获取材料类别的全部代码：
Sub main()
: T+ v2 ~2 y/ j+ ^
Dim swApp                       As SldWorks.SldWorks
$ Y1 _9 n& S1 ^1 ?; U  Z& [. B: BDim swModel                   As SldWorks.ModelDoc2
, C: g$ j& c& f% WDim swPart                       As SldWorks.PartDoc
Dim dbs                             As Variant
Dim sMatName                As String
2 ?9 `$ H! _1 V& }, U1 u( R1 r: ~Dim sMatDB                      As String
, W, C3 u8 O5 Q; d6 oDim bRet                           As Boolean
Dim i                                   As Long
1 t  F9 ?8 b  uDim matPath                    As String
Dim swMatDB                  As MSXML2.DOMDocument
Dim MatList                      As Variant
/ ]! z# _; I5 M" B( Y+ U: d8 O& o
Set swApp = Application.SldWorks
( b; v! ?/ p, `/ r: i: y: MSet swModel = swApp.ActiveDoc
Set swPart = swModel
! M+ H' X* E- p+ wdbs = swApp.GetMaterialDatabases
sMatName = swPart.GetMaterialPropertyName2("Default", sMatDB)
For i = 0 To UBound(dbs)
      If StrComp(LCase(Left(Right(dbs(i), Len(sMatDB) + 7), Len(sMatDB))), LCase(sMatDB)) = 0 Then
  S8 I- X; s0 F; o8 Y+ \  U           matPath = dbs(i)
& B. v% w/ i; b  A4 }           GoTo MatTpye
      End If
Next i
6 D2 s/ M- B# w) @
  Z9 O8 W1 G  i  H) OMatTpye:
Set swMatDB = New MSXML2.DOMDocument
* H$ K4 m  C. S  D) R$ F; P6 i0 B: B ' 材料库所存储的路径
+ T( M" N5 W0 M) qswMatDB.Load matPath
Set MatList = swMatDB.getElementsByTagName("material")
Dim MatName() As String, Mat As Variant
9 e; c. k" D6 j; m3 I. Y8 c  W$ B" JReDim MatName(MatList.Length - 1)
' J# |4 ~' N  j" B, q1 I* z; S4 U      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
                 GoTo Finish
4 @$ H" X. J2 M0 b            End If
      Next Mat
. o4 A& \- L. q! {8 j
Finish:
. }' Z/ f4 x' a/ t& jEnd Sub
' @4 R: `. o/ H
如有不对，请批评指正，谢谢！

ryouss

kavenlee72 发表于 2016-5-3 16:19
成功了，谢谢！
1 X  N: b  D2 o  Y, k( n4 @
* j$ b7 {" U1 G- H# g但不明白下面这句：

$ T9 N4 N% W" j8 k2012 測試ok,謝謝分享

) y% v* R# r& i! n+ F建議補加如下紅字,在 "即時運算" 欄顯示材料類別．


. v' d/ P; c" z% y8 ?　　　　MatName(Mat) = MatList.Item(Mat).parentNode.Attributes.Item(0).nodeValue
3 `4 U6 F/ @+ E7 z, Y, D
                 Debug.Print "材料類別: " & MatName(Mat)

                 GoTo Finish