求中文图层命名源代码

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
" Y( l6 w+ X" J% T+ dText/'输入要编辑的层以及类名',laynam,resp,Deflt* D3 @# V; y- i- p1 L/ B$ G
n=Fndstr(laynam,'/',1) A, ]3 r& N5 A/ K( | S1 j
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 ) O- v; ~7 f' j* b0 x; Z% b O) }/ x
$$$$$$$$$$$$$$$$$$$$$$$$$$) ?% o% s; I# Q0 [, i9 l
$$ 程序名:图层命名
I ?4 q! B( n. o! `$$ 功能:图层命名

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

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

都是牛人呀。。。

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

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

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

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

浏览过的版块

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

浏览过的版块

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