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

由于小人破坏（那种小人啥也不会，到处给人胡说，还一副假正经，纯粹论坛里的混子），原帖无法进入，重新开贴咨询，用 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


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

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
我已於舊帖告知樓主「注意論壇禮節」！
加入論壇圖的就是一個互相幫忙與學習，但請記注：不是大家都有義務 ...

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

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