|
- Dim swApp As Object
- Dim swModel As SldWorks.ModelDoc2
- Dim swNames As String
- Dim a As String
- Sub main()
- On Error Resume Next '出现错误继续执行
- Set swApp = Application.SldWorks
- Set swModel = swApp.ActiveDoc
- swNames = swApp.ActiveDoc.GetTitle() '获取零件名
- a = Left(swNames, Len(swNames) - 7) '去掉后缀名
- b = Split(a, "_") '以“_”分割文件名称并放入数组b中。
- With swModel
- .DeleteCustomInfo2 "", "品牌" '删除自定义 中“品牌”的属性。
- .AddCustomInfo3 "", "品牌", 30, b(1) '写入品牌属性
- .DeleteCustomInfo2 "", "名称"
- .AddCustomInfo3 "", "名称", 30, b(2)
- .DeleteCustomInfo2 "", "规格"
- .AddCustomInfo3 "", "规格", 30, b(3)
- .DeleteCustomInfo2 "", "备注"
- .AddCustomInfo3 "", "备注", 30, b(4)
- End With
- End Sub
复制代码 |
|