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

奋斗2015 · 发表于 2016-7-9 12:33:04

经典图书

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

请各位大神赐教，谢谢！

吕_贺 · 发表于 2016-7-9 12:34:12

MaterialIdName

xusihaixsh · 发表于 2016-7-9 12:34:15

经典图书

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

dingding1974 · 发表于 2016-7-9 12:35:28

參考

复制代码

15105136880 · 发表于 2016-7-9 12:36:40

经典案例图书

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

eiexq · 发表于 2016-7-9 12:41:05

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

bigyao521 · 发表于 2016-7-9 12:42:10

经典案例图书

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

孤月大侠 · 发表于 2016-7-9 12:42:11

你用下面代码试试
Dim swMatDB As MSXML2.DOMDocument, MatList As Variant
Set swMatDB = New MSXML2.DOMDocument
' 材料库所存储的路径
swMatDB.Load "C

rogram FilesSOLIDWORKS CorpSOLIDWORKSlangchinese-simplifiedsldmaterialssolidworks 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

－__失之淡然 · 发表于 2016-7-9 12:43:20

高手啊！
我试试
谢谢！

weibinzhibao · 发表于 2016-7-9 12:48:17

经典图书

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

swy · 发表于 2016-7-9 12:49:28

在引用中加入

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

zcy8078 · 发表于 2016-7-9 12:59:31

成功了，谢谢！
但不明白下面这句：
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
如有不对，请批评指正，谢谢！