求中文图层命名源代码

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
~8 f% V( S' u+ n) p, cText/'输入要编辑的层以及类名',laynam,resp,Deflt/ D% q. I1 s% Q6 {# S# \
n=Fndstr(laynam,'/',1); o. R) l L9 j3 \; A
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 ; h& G# L, M& h/ K" H' K
$$$$$$$$$$$$$$$$$$$$$$$$$$ J3 \! A4 e/ H
$$ 程序名:图层命名
$ K( O, _4 a; \! n$$ 功能:图层命名

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

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

都是牛人呀。。。

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

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

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

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

浏览过的版块

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

浏览过的版块

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