求中文图层命名源代码

wxyor999 · 发表于 2011-12-18 08:37

求中文图层命名源代码

lfy922 · 发表于 2011-12-22 20:43

Text/'输入要编辑的层以及类名',laynam,resp,Deflt
n=Fndstr(laynam,'/',1)
s=Substr(laynam,1,n-1)
num=Intf(Valf(s))
ss=Substr(laynam,n+1,Lenf(laynam))
Cat/ss,num,iferr,err:

poilkj123 · 发表于 2012-3-6 00:53

lfy922 发表于 2011-12-22 20:43
% l! k! d* V- E, EText/'输入要编辑的层以及类名',laynam,resp,Deflt; o4 x9 ?7 ?: C' r8 v, x Y7 w0 e
n=Fndstr(laynam,'/',1)
+ E; |& f! L# s5 q" S( {s=Substr(laynam,1,n-1)

中文图层命名源代码

dxbxs2005 · 发表于 2012-3-14 17:21

$$$$$$$$$$$$$$$$$$$$$$$$$$
$$ 程序名:图层命名
$$ 功能:图层命名
$$ 目的:学习ugopen
$$$$$$$$$$$$$$$$$$$$$$$$$$
number /m
STRING/str1(30)
data/m,0
L1:
  PARAM /'阿杜提示：请输入需要命名的图层','需要命名的层=',m,resp
  jump /L1:,end:,,,resp
  IFTHEN /m==0 or m>256
  messg/'你输入的图层超出范围，重新输入'
  jump/L1:
  ENDIF
L2:
  TEXT/'输入图层名字',str1,resp
  jump /L1:,end:,,,resp
  IFthen /str1==&nulstr
  messg/'必须输入图层名称'
  jump/L2:
  endif
L3:
CAT/str1,m
JUMP/L1:

end:  $$ 跳到此处结束
   HALT
我自己写的，发给你参考下

dxbxs2005 · 发表于 2012-3-14 17:23

GRX执行文件

120378223 · 发表于 2012-8-1 15:34

dxbxs2005 发表于 2012-3-14 17:21
; R5 v" E1 C" c' j+ C' ^; }7 P2 D$$$$$$$$$$$$$$$$$$$$$$$$$$8 h$ g# m! Q$ Q4 [+ h, P
$$ 程序名:图层命名
. D5 V- p2 m1 [8 F( G. @7 Y$$ 功能:图层命名

朋友如何一键删除所以自己的层名啊

q918970957 · 发表于 2012-8-11 22:48

都是牛人呀。。。

dhdfsjnsdnjsns · 发表于 2015-4-17 21:16

UG学习了好地方！不错不错有朝一日我也发源码！

		自动登录	找回密码
密码			注册

[疑难] 求中文图层命名源代码

浏览过的版块

[疑难] 求 中文图层命名源代码

浏览过的版块

[疑难] 求中文图层命名源代码