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

kavenlee72 · 发表于 2016-4-19 21:20:13

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 goto3d 于 2016-6-12 14:23 编辑

solidworks2012的材料库里，材料都分了类，如“钢、铁、塑料、橡胶”等等，如何用VBA编写宏来获取材料的这些类型呢？
无标题.png

请各位大神赐教，谢谢！

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

MaterialIdName

kavenlee72 · 发表于 2016-4-20 20:44:50

大鹿发表于 2016-4-19 22:55
. D/ @ s6 o& D4 eMaterialIdName

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

ryouss · 发表于 2016-4-21 08:42:40

參考

Sub main()
5 k( _2 u9 n) V6 T4 y" ^
) [7 u. B, h$ g/ _0 C& w2 K9 P
Dim swApp As SldWorks.SldWorks
/ R, K7 ^) e5 F/ {5 m$ n
Dim swModel As SldWorks.ModelDoc2
; I6 h5 e x. Q9 s
Dim swPart As SldWorks.PartDoc
S. I6 o6 U5 m: @
Dim sMatName As String( i6 `8 H& ]4 v& _* D
Dim sMatDB As String
e& z% b# t, F/ i
Dim bRet As Boolean
: u( {; m* i& M) s' k' W
$ s2 V2 J3 Z5 ?7 H' ~4 G O
Set swApp = Application.SldWorks$ w2 f" b- t, V8 C9 m2 r- J. i
Set swModel = swApp.ActiveDoc
e k5 V2 E% ?0 |4 r
Set swPart = swModel, g8 e# i% n, z5 D* r) T
sMatName = swPart.GetMaterialPropertyName2("Default", sMatDB)
" C- _; Y/ Y' R0 D: G1 U
Debug.Print "File = " & swModel.GetPathName0 @2 y$ E4 k {- y5 d9 W
Debug.Print " Material = " & sMatName & " (" & sMatDB & ")"
8 j' \8 x0 z9 P; O* L& z
3 m* G& N. W5 |4 P2 |9 ~1 t4 C! L
End Sub

复制代码

kavenlee72 · 发表于 2016-4-22 18:18:48

本帖最后由 kavenlee72 于 2016-4-22 18:19 编辑

ryouss 发表于 2016-4-21 08:42) a; a/ a& L" D/ @+ C# Y) l
參考

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

kavenlee72 · 发表于 2016-4-24 22:01:56

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

kavenlee72 · 发表于 2016-4-26 21:41:23

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

lhl2008 · 发表于 2016-4-27 00:17:50

你用下面代码试试
Dim swMatDB As MSXML2.DOMDocument, MatList As Variant
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")
Dim MatName() As String, Mat As Variant
ReDim MatName(MatList.Length - 1)
For Mat = 0 To MatList.Length - 1

MatName(Mat) = MatList.Item(Mat).parentNode.Attributes.Item(0).nodeValue

Next Mat

kavenlee72 · 发表于 2016-4-28 22:33:37

lhl2008 发表于 2016-4-27 00:17* Y+ k/ L( E2 G# s6 \
你用下面代码试试2 F9 _9 ?/ ?& A T6 z$ G. Q% W' j
Dim swMatDB As MSXML2.DOMDocument, MatList As Variant/ R8 r0 k& J6 ^# a5 u5 r9 v
Set swMatDB = New MSXM ...

高手啊！

我试试

谢谢！

kavenlee72 · 发表于 2016-4-29 12:44:56

lhl2008 发表于 2016-4-27 00:172 g, v) p% m t$ X* U% f6 X: [* Y
你用下面代码试试9 T, J E$ j8 Y8 C7 O2 E" [9 K
Dim swMatDB As MSXML2.DOMDocument, MatList As Variant! k; C$ l2 S$ q# n
Set swMatDB = New MSXM ...

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

lhl2008 · 发表于 2016-4-29 12:54:06

本帖最后由 lhl2008 于 2016-4-29 12:59 编辑

在引用中加入

材料库文件是一种XML文件，需要引入Micosoft XML类型库来操作。

kavenlee72 · 发表于 2016-5-3 16:19:46

lhl2008 发表于 2016-4-29 12:542 _7 M' a, Y l2 W
在引用中加入9 T: N( Q& {& q* H: n& s

+ G* S" `' m5 ^% P: G q材料库文件是一种XML文件，需要引入Micosoft XML类型库来操作。

成功了，谢谢！

但不明白下面这句：
Set MatList = swMatDB.getElementsByTagName("material")，括号里的“material”为什么是"material"而不是其它？

下面是我编写的获取材料类别的全部代码：
Sub main()

Dim swApp                      As SldWorks.SldWorks
Dim swModel                As SldWorks.ModelDoc2
Dim swPart                      As SldWorks.PartDoc
Dim dbs                            As Variant
Dim sMatName             As String
Dim sMatDB                   As String
Dim bRet                         As Boolean
Dim i                                  As Long
Dim matPath                   As String
Dim swMatDB                As MSXML2.DOMDocument
Dim MatList                   As Variant

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swPart = swModel
dbs = 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
         matPath = dbs(i)
         GoTo MatTpye
   End If
Next i

MatTpye:
Set swMatDB = New MSXML2.DOMDocument
' 材料库所存储的路径
swMatDB.Load matPath
Set MatList = swMatDB.getElementsByTagName("material")
Dim MatName() As String, Mat As Variant
ReDim MatName(MatList.Length - 1)
   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
         End If
   Next Mat

Finish:
End Sub

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

ryouss · 发表于 2016-5-3 17:08:14

kavenlee72 发表于 2016-5-3 16:193 \0 b0 ?- \8 [, j
成功了，谢谢！& s: u1 |! X4 B

+ R7 l3 R! c' h& z但不明白下面这句：

2012 測試ok,謝謝分享

建議補加如下紅字,在 "即時運算" 欄顯示材料類別．

　　　　MatName(Mat) = MatList.Item(Mat).parentNode.Attributes.Item(0).nodeValue

Debug.Print "材料類別: " & MatName(Mat)

GoTo Finish

		自动登录	找回密码
密码			注册

通知

[已解决] 如何用VBA编写宏来获取材料的类型？

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块