SolidWorks 零件自定义材料如何拆分

gt.adan 发表于 2017-6-29 09:14

是这样子的，大神哥哥可否分享一下代码，跪谢呢！！！！！！！！！！

不用跪，喜歡拿去~~

1. Dim swApp As SldWorks.SldWorks
   
2. Dim swModel As ModelDoc2
   
3. Dim swCustProp As CustomPropertyManager
   
4. Dim val As String
   
5. Dim valout As String
   
6. Dim bool As Boolean
   
7. 
   
8. Sub main()
   
9.     Set swApp = Application.SldWorks
   
10.     Set swModel = swApp.ActiveDoc
    
11.     Set swCustProp = swModel.Extension.CustomPropertyManager("")
    
12.     bool = swCustProp.Get4("材質", True, val, valout)   '獲取"材質"的數值
    
13.     mat = Left(valout, InStr(valout, "/") - 1)
    
14.     fin = Right(valout, Len(valout) - Len(mat) - 1)
    
15.   '寫入材質和表面處理的屬性
    
16.   retval = swApp.ActiveDoc.DeleteCustomInfo2("", "Material")
    
17.   retval = swApp.ActiveDoc.AddCustomInfo3("", "Material", swCustomInfoText, mat)
    
18.   retval = swApp.ActiveDoc.DeleteCustomInfo2("", "Finishing")
    
19.   retval = swApp.ActiveDoc.AddCustomInfo3("", "Finishing", swCustomInfoText, fin)
    
20.   MsgBox "Done!"
    
21. End Sub

复制代码

gt.adan 发表于 2017-6-29 13:06
不用跪，喜歡拿去~~

真的很感谢啊！！！！！！