求中文图层命名源代码

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) @( z) w3 g
Text/'输入要编辑的层以及类名',laynam,resp,Deflt) h9 o' u5 [' o5 q
n=Fndstr(laynam,'/',1)
# ^7 _' `9 x$ O# P. w4 E7 f* }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
8 W/ _0 R8 ^7 d4 S1 A& F$$$$$$$$$$$$$$$$$$$$$$$$$$
5 B, _9 O+ w# Y$$ 程序名:图层命名
7 O6 Y4 J- W* V; L! X* @$$ 功能:图层命名

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

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

都是牛人呀。。。

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

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

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

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

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