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

kavenlee72

solidworks2012的材料库里，材料都分了类，如“钢、铁、塑料、橡胶”等等，如何用VBA编写宏来获取材料的这些类型呢？
) Z3 H  H/ u0 R' v* Y5 @

4 O; Q) b7 n6 Z6 n) g+ D请各位大神赐教，谢谢！

大鹿

MaterialIdName

kavenlee72

大鹿 发表于 2016-4-19 22:55
' t$ K5 A; `" t. m; s, t1 l2 c" tMaterialIdName

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

ryouss

參考

1. Sub main()
   / M8 l  h' s  ?  E
2. 
   
3.     Dim swApp                       As SldWorks.SldWorks
   1 i- T( p1 s3 S- |/ R  j
4.     Dim swModel                     As SldWorks.ModelDoc2
   : e7 d; J6 G* Z. P7 k; U
5.     Dim swPart                      As SldWorks.PartDoc
   
6.     Dim sMatName                    As String
   8 ~) b0 j3 I" X6 e" C3 A
7.     Dim sMatDB                      As String
   
8.     Dim bRet                        As Boolean
   
9.    
   # J! \% L% }* s$ c3 @. _) ~; {3 u5 U
10.     Set swApp = Application.SldWorks
    " L; ]* P0 O* w
11.     Set swModel = swApp.ActiveDoc
    / K: E5 I3 S7 o) _  L
12.     Set swPart = swModel
    % I3 m- B4 U+ d9 V/ U7 y" d
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
9 m5 a8 u, J* E0 t  @4 C參考

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

kavenlee72

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

kavenlee72

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

lhl2008

你用下面代码试试
Dim swMatDB As MSXML2.DOMDocument, MatList As Variant
6 U6 f$ q3 T6 {    Set swMatDB = New MSXML2.DOMDocument
'    材料库所存储的路径
    swMatDB.Load "C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\chinese-simplified\sldmaterials\solidworks materials.sldmat"

    Set MatList = swMatDB.getElementsByTagName("material")
) R/ m# E% Q) T8 \    Dim MatName() As String, Mat As Variant
  d6 d# _+ V8 y. _    ReDim MatName(MatList.Length - 1)
    For Mat = 0 To MatList.Length - 1

( C7 ~# ]' j% F. Q, j: T* N% l        MatName(Mat) = MatList.Item(Mat).parentNode.Attributes.Item(0).nodeValue

    Next Mat
/ x2 i* y0 Q3 \& ~
, H; a) X1 ?% ]5 S* I/ i& {

kavenlee72

lhl2008 发表于 2016-4-27 00:17
3 l& }' v! k( k7 D- N0 m. Z你用下面代码试试
Dim swMatDB As MSXML2.DOMDocument, MatList As Variant
; @4 Y  v& B5 E2 Q; d9 Y    Set swMatDB = New MSXM ...

8 r1 x/ K4 J+ k; T6 ]高手啊！

我试试

2 u9 T: g& c/ c% f9 S$ t8 V+ j9 \谢谢！
; d9 F/ Q7 T7 `$ y- Q! M$ U

kavenlee72

lhl2008 发表于 2016-4-27 00:17
, b) G# k, E/ r  L0 o9 l你用下面代码试试
5 C' u2 m8 Y3 p% W; R# S( V! iDim swMatDB As MSXML2.DOMDocument, MatList As Variant
    Set swMatDB = New MSXM ...

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

lhl2008

在引用中加入
) F" x$ g: N) J7 H
  X  t! l8 X. c' P材料库文件是一种XML文件，需要引入Micosoft XML类型库来操作。
1 m: F- U' k7 e

kavenlee72

lhl2008 发表于 2016-4-29 12:54
0 R6 q" N5 P+ i4 O3 q. t( a在引用中加入

4 r' ]. n+ m3 r7 Q9 F8 [材料库文件是一种XML文件，需要引入Micosoft XML类型库来操作。

成功了，谢谢！

但不明白下面这句：
5 @% k4 M* {; z4 x$ g+ \Set MatList = swMatDB.getElementsByTagName("material")，括号里的“material”为什么是"material"而不是其它？


! N5 c) T' Y) L下面是我编写的获取材料类别的全部代码：
Sub main()

Dim swApp                       As SldWorks.SldWorks
Dim swModel                   As SldWorks.ModelDoc2
Dim swPart                       As SldWorks.PartDoc
Dim dbs                             As Variant
/ q7 z- o1 \. c6 G6 B* F$ T7 x7 H0 g5 UDim sMatName                As String
Dim sMatDB                      As String
5 ^' a7 M8 w9 ^% uDim bRet                           As Boolean
1 r  C) [" a* d* wDim i                                   As Long
Dim matPath                    As String
; F% H, G/ Y: b0 \- GDim swMatDB                  As MSXML2.DOMDocument
4 G5 }6 S/ K& f" W, ]: f# QDim MatList                      As Variant

* ]; P" D6 R, m5 ]3 @: v/ G4 |* gSet swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swPart = swModel
dbs = swApp.GetMaterialDatabases
6 b! o! ^' W9 n: ]5 `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
% {/ V# b0 N+ O7 T3 K           matPath = dbs(i)
- J7 Q; \( W  G. m) R           GoTo MatTpye
$ l/ B% p6 T0 ]6 M  O      End If
Next i
& e7 ?+ ?8 N5 {* o2 n, T# e* n
MatTpye:
% M; L* u  ]+ D1 E; nSet swMatDB = New MSXML2.DOMDocument
9 x; q! C9 ^  Y1 @/ L ' 材料库所存储的路径
$ J6 i% s! X( _2 k% XswMatDB.Load matPath
1 q1 e& t* x0 Q# XSet MatList = swMatDB.getElementsByTagName("material")
Dim MatName() As String, Mat As Variant
& v7 R- Z, {, V& \ReDim MatName(MatList.Length - 1)
+ B4 N$ S, b5 i6 L. f      For Mat = 0 To MatList.Length - 1
            If MatList.Item(Mat).Attributes.Item(0).childNodes.Item(0).nodeValue = sMatName Then
5 `! D% D$ v( |/ G6 y                 MatName(Mat) = MatList.Item(Mat).parentNode.Attributes.Item(0).nodeValue
                 GoTo Finish
            End If
: Q/ y; S0 Q& J; l      Next Mat
2 V) r  @$ b# e
Finish:
End Sub
- v" m/ ]  j5 P5 m  Z) Z# l
2 M6 x" A5 I0 E* y0 X6 w1 U如有不对，请批评指正，谢谢！

ryouss

kavenlee72 发表于 2016-5-3 16:19
; e) _( Y+ A4 A6 F5 j: Q$ ]& s成功了，谢谢！

1 K9 M! ^# n6 O& [5 d但不明白下面这句：

2012 測試ok,謝謝分享
# N$ H! u& J% i; z! e9 O
  G& f3 Z3 ^/ Y$ @! t! `6 m建議補加如下紅字,在 "即時運算" 欄顯示材料類別．
8 K4 t8 t, ?! @. c2 {; [

2 s$ x7 M2 p# e  M2 k" C& G　　　　MatName(Mat) = MatList.Item(Mat).parentNode.Attributes.Item(0).nodeValue
' [% f; c/ E8 o* |4 J; V
8 y8 L& @1 {4 c5 `, ?1 q                 Debug.Print "材料類別: " & MatName(Mat)
- \" E1 @2 @, `. a" a$ A
: V' n  X6 B% M) T% H                 GoTo Finish