如何用宏批量修改指定零件的切割清单项目名称？

由于小人破坏（那种小人啥也不会，到处给人胡说，还一副假正经，纯粹论坛里的混子），原帖无法进入，重新开贴咨询，用 feather.name="xxxx",虽然能够成功将切割清单项目项目名称更改，但该切割清单项目里面的系统自定义属性，如 LENGTH@@@切割清单项目名称1@零件名称，引用的还是“切割清单项目名称1”而不是改名后的名称，求助如何同时更新切割清单项目名称及里面自定义属性引用的名称？，比如下面代码该如何修改，才能达到那种效果？
Sub main()Set swApp = Application.SldWorks
Set Part = swApp.ActiveDocSet SelMgr = Part.SelectionManager
Part.ClearSelection2 Trueboolstatus = Part.Extension.SelectByID2("Cut-List-Item1", "SUBWELDFOLDER", 0, 0, 0, False, 0, Nothing, 0)
SelMgr.GetSelectedObject5(1).Name = "NEW NAME"
End Sub


备注一下，此帖不欢迎那位小人，请小人”免回尊贴“！！！

我已於舊帖告知樓主「注意論壇禮節」！
加入論壇圖的就是一個互相幫忙與學習，但請記注：不是大家都有義務回答您的任何提問！
能回答，我們該心存感激；不回答，該檢討自己是否發言不當造成關注度不夠，而不是惡言相向！
由此對照悶大及大鹿無時的無私奉獻，更顯難能可貴！
也誠如大鹿兄所說，藉由一些「加入會員才能得到對等利益及幫助」的方式並不為過！
言盡於此，以下回覆您的提問…

編程我是門外漢，但幾天前就已經關注此帖。
藉由朋友的幫助，給出了一個「暫時性」的解決方式。
由於朋友也忙碌，而且樓主的要求(焊件清單重新批次命名)實在也非常態性做法，
所以，以下提供的代碼是參照原廠提供的練習加以修改，並未多花時間重新編寫代碼，不可諱言的可以再精簡許多~
效果如下：
【用悶大以前的焊件教程為例】可見系統默認的清單名稱。


【執行代碼】


【執行的結果】


【焊件屬性名稱也一併修改了！】


【重申】由於樓主的要求非業界常態做法，此種命名方式妥當與否尚有討論的空間。
              因此只將該文件的密碼PM給樓主，有需要的朋友可以向樓主索取。
              操作時，只要將圖三中箭頭所指代碼，改為自訂的字符，運行後即可達到批量重新命名的要求。

gt.adan 发表于 2015-1-17 12:44
我已於舊帖告知樓主「注意論壇禮節」！
加入論壇圖的就是一個互相幫忙與學習，但請記注：不是大家都有義務 ...

丹大侠的代码 好像是先把特征的名称赋值，然后逐个i获取该特征相关自定义属性值，然后将赋值名称替换原名称并删除原属性添加替换名称后的属性，并做成了一个模块，直接引用，不是单纯feather.name="xxxx"那么简单，再请教丹大侠一下，我通过录制手动直接改名生成的代码是，Sub main()
Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc

boolstatus = Part.Extension.SelectByID2("切割清单项目1", "SUBWELDFOLDER", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, 1, 0, "new name")
End Sub

就这么简单，可把这部分代码单独执行却没有任何更改，执行并在end sub设中断，boolstatus的值也都是true，这是什么原因？

gt.adan 发表于 2015-1-17 12:44
我已於舊帖告知樓主「注意論壇禮節」！
加入論壇圖的就是一個互相幫忙與學習，但請記注：不是大家都有義務 ...

按丹大侠代码 执行成功，感谢丹大侠的热心无私！

并接受丹大侠的意见，不再强人所难！

看看下载

楼主密码是多少

压缩包密码是多少呢

这种命名方式感觉相当的少见，还是建议楼主不要把宏想成是万能的，有些东西还是得看人为的去进行设置的，这样才能保证自己做的东西自己心里有数。

要了好久密码   就是不答复

感觉这个三维社区   这么多牛人啊