|
5#
楼主 |
发表于 2022-4-28 17:26:58
|
只看该作者
经典案例图书 Dim swApp As Object
Dim Part As SldWorks.ModelDoc2
Dim t As String
Dim Partname As String
Sub Automatic_renaming()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Partname = swApp.ActiveDoc.GetTitle()
Set curcfg = swApp.ActiveDoc.GetActiveConfiguration()
configname = curcfg.Name
cname = Part.GetCustomInfoValue(configname, "名称")
ccname = Part.GetCustomInfoValue(configname, "代号") '配置代号,CustomPropertyManager还不会用 CustomPropertyManager Property (IModelDocExtension)
newPartname = ccname & "_" & cname
boolstatus = Part.Extension.SelectByID2(Partname, "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
longstatus = Part.Extension.RenameDocument(newPartname) '重命名
经过努力研究代码,目前可以对顶层改名。谁能给改成被选批量改名?
|
|