UG图层命名

msh1235

各位高手，我是新来的，我需要做一个命令，是关于命名图层的，要求一次命名一个图层，先选择图层，然后给图层命名，就行，哪位高手帮我写下这个命令啊 ，  我需要源代码  谢谢啦

xxyyzz*

NUMBER /M
STRING/str1(30)
M=&wlayer
L1:
   PARAM /'请输入图层数','要命名的图层数:1-256',M,RSP
   JUMP /L1:,END:,,,RESP
   IFTHEN /M==0 or M>256
   MESSG/'超出范围，请输入1-256 !'
   JUMP/L1:
   ENDIF
L2:
   TEXT/'输入图层信息',str1,RESP
   JUMP /L1:, END:,,,RESP
   IFTHEN /str1==&nulstr
   MESSG /'不能为空白，必须输入图层信息 !'
   JUMP/L2:
   ENDIF
L3:
   CAT/str1,M
   MESSG /'已注记图层信息'
   JUMP/L1:
END:
HALT

逸云2012

等待高手出现!

quyang159

我有UG图层控制外挂，能改中文名。快速整理图层简单实用。ug图层想怎么玩就怎么玩。绝对超乎你的想象，画图浏览图层超快，速度提升百分之二十。可以定制图层方式，管理图层超轻松超方便。QQ2041074418

quyang159

我有UG图层控制外挂，能改中文名。快速整理图层简单实用。ug图层想怎么玩就怎么玩。绝对超乎你的想象，画图浏览图层超快，速度提升百分之二十。可以定制图层方式，管理图层超轻松超方便。QQ2041074418