宏自动批量重命名（代号_名称）

gao6300

在打开的装配体中，运行宏程序后在设计树中被选择的零件或者装配体，按照各自的代号+名称的方式自动改名（配置代号_配置名称），有没有高手能解决此问题？
本人不懂宏，只在论坛中得到部分代码。
Sub zdmm()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
c = swApp.ActiveDoc.GetTitle()   '获取零件名
t = Right(c, 7)
't = UCase(t) ' 返回大写
If t = ".sldasm" Or t = ".SLDASM" Then
    d = Left(c, Len(c) - 7)         '去掉后缀名
End If

count = swSelMgr.GetSelectedObjectCount2(-1) '获取被点选零件的数目

For i = 1 To count '获取全部被点选零件的名称，循环开始

Set swComp = swSelMgr.GetSelectedObjectsComponent3(i, 0) '获取被点选的零件
arr = swComp.Name2 '提取被点选零件名称
Str(i - 1) = arr
If i = count Then
End If
Next

For i = 1 To count
arr = Str(i - 1)

joyousfish

楼主很专业，写得很好！

边城浪子回头

顶一下，坐等高手！

淡淡的雲

论坛好像有，仔细搜索

gao6300

   经典案例图书

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) '重命名

经过努力研究代码，目前可以对顶层改名。谁能给改成被选批量改名？

SW初学00

坐等高手

fanyanhong88

   经典案例图书

楼主太有才了，膜拜中……

384432485

好好学习，天天向上！

nmimi

图号分离么？找找应该很多的，早就实现批量图号分离了

gao6300

nmimi 发表于 2022-5-6 10:57
图号分离么？找找应该很多的，早就实现批量图号分离了

有两个要求
1、打开的装配体内选定的零件
2、提取配置中代号和名称做为新文件名

YU7630

顶一下，坐等高手！

wscgb123

感谢楼主分享，很不错！

wscgb123

感谢楼主分享，很不错！

wscgb123

楼主辛苦了！

lwh0596

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢分享  楼主辛苦了！

lwh0596

   经典案例图书

感谢分享  楼主辛苦了！

淡淡的雲

加入QQ群
参与讨论和学习

或扫描二维码加入

建议从文件名去写入配置，比较多

DFFDSGG114485

   经典案例图书

感谢楼主分享，很不错

DFFDSGG114485

感谢楼主分享，很不错

DFFDSGG114485

感谢楼主分享，很不错