购买与咨询 NX 二次开发视频教程，请联系微信号：135-1818-0088  QQ号：85585969  

---

装配组件直接改名，GRIP的，有源代码

代码来了

entity/obj
string/str(100),str1(100),str2(100),$
part_name(20),path(100),name(100)

L10:
mask/63

ident/'选择要改名的组件',obj,resp
jump/trm:,trm:,,resp

L20:
str=&cpnam(obj)
a=LENF(str)
d=a-4
str1=SUBSTR(str,1,d)
L30:

L40:
TEXT/'罗鸣提示:输入新名称',part_name,RSP1,DEFLT
JUMP/L40:,trm:,,RSP1
name=path+part_name+'.prt'
FCOPY/str,name
$$print/name
&cpnam(obj)=name
FDEL/str
jump/L10:

trm:
$$file/part,str
halt