msh1235 发表于 2012-11-6 19:43:08

UG图层命名

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

xxyyzz* 发表于 2013-1-27 12:13:03

本帖最后由 xxyyzz 于 2013-1-27 12:15 编辑

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 发表于 2012-12-29 09:33:16

等待高手出现!

quyang159 发表于 2018-4-6 20:27:58

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

quyang159 发表于 2018-4-6 20:28:54

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