solidworks 宏另存及提取属性命令

羽翯 · 发表于 2016-12-13 10:58:08

一直在用宏，把文件另存为IGS文件，但外发的IGS文件来加上材质，每次都是另存后再改名，太麻烦了，试了几次改宏，都提取不出来材质，哪位大神能帮帮忙啊
Dim swApp As Object
Dim Part As Object
Dim Filename As String
Dim Material As String
Dim No As Integer
Dim Nom As Integer
Dim Title As String
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Filename = Part.GetPathName()
Materiala = swModel2.GetCustomInfoNames()
No = Len(Filename)
Nom = Len(Material)
Filename = Left(Filename, No - 7)
Material = Left(Material, Nom)
Part.SaveAs2 Filename & "-" & Material & ".IGS", 0, True, False
Title = Part.GetTitle
Set Part = Nothing
swmodel.Save '保存文件
swApp.CloseDoc Title
'X = MsgBox("输出IGS文件在SW工程图同一文件夹", 0)
End Sub
这个materiala，试了几次都提取不出来