|
9#
楼主 |
发表于 2024-9-11 16:30:25
|
只看该作者
大佬 我还有问题 我没想到这个东西最后还要上传网站 网站是不能自定义的还是要用名字 然后我找到了一个代码
Sub main()
On Error Resume Next '出现错误继续执行
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set curcfg = swApp.ActiveDoc.GetActiveConfiguration()
configname = curcfg.Name '获取特定配置名称
swNames = swApp.ActiveDoc.GetTitle() '获取零件名
a = Left(swNames, Len(swNames) - 7) '去掉后缀名
b = Split(a, "_") '以“_”分割文件名称并放入数组b中。
With swModel
.DeleteCustomInfo2 configname, "品牌" '删除特定配置中“品牌”的属性。
.AddCustomInfo3 configname, "品牌", 30, b(1) '写入品牌属性
.DeleteCustomInfo2 configname, "名称"
.AddCustomInfo3 configname, "名称", 30, b(2)
.DeleteCustomInfo2 configname, "规格"
.AddCustomInfo3 configname, "规格", 30, b(3)
.DeleteCustomInfo2 configname, "备注"
.AddCustomInfo3 configname, "备注", 30, b(4)
End With
End Sub
我该怎么使用 我把它放入宏中也没什么用 可能是我不会用宏
|
|