求中文图层命名源代码

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 - D$ F) ]% S& |2 I' R/ f
Text/'输入要编辑的层以及类名',laynam,resp,Deflt
0 ^8 [8 w2 P9 J2 d( B" w& Wn=Fndstr(laynam,'/',1)
; `$ b" O$ s, q% i3 Q6 E A" l2 hs=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
?) \: O* ~% x0 \, A# l1 D' J$$$$$$$$$$$$$$$$$$$$$$$$$$% S; `7 @6 c5 O: C# ?* E- ?0 j
$$ 程序名:图层命名 r+ t) X, M8 f
$$ 功能:图层命名

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

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

都是牛人呀。。。

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

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

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

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

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