luoming1023 发表于 2014-7-1 21:36:41

[原创] 装配组件直接改名，有源代码

大家看看有没有什么不足的地方,源代码：
entity/obj
string/str(100),str1(100),str2(100),$
       part_name(20),path(100),name(100)

L10:
    mask/63
   
    ident/'选择要改名的组件',obj,resp
    jump/trm:,trm:,,resp

   
   
L20:
      str=&cpnam(obj)
      a=LENF(str)
      d=a-4
      str1=SUBSTR(str,1,d)
L30:
      b=LENF(str1)
      ans=FNDSTR(str1,'\',1)
      c=b-ans
      ifthen/ans>0
      ans=ans+1
      str1=SUBSTR(str1,ans,c)
   jump/L30:
   else
      endif
       part_name=str1
   $ print/str2,part_name,ans,c
       b=LENF(part_name)
       e=d-b
       path=SUBSTR(str,1,e)
      $ print/path
L40:
   TEXT/'罗鸣提示:输入新名称',part_name,RSP1,DEFLT
      JUMP/L40:,trm:,,RSP1
      name=path+part_name+'.prt'
   FCOPY/str,name
   $print/name
    &cpnam(obj)=name
    FDEL/str
    jump/L10:
   
trm:
$file/part,str
halt



toshi008 发表于 2015-10-11 21:18:03

抢了沙发抱歉 什么都不知道

愛你亦如何 发表于 2015-10-30 14:34:49

学习，看看

13724130993 发表于 2017-7-9 13:15:17

学习学习！！！

傻明哈哈 发表于 2018-7-17 23:38:39

什么版本的啊？我用UG6.0执行，不行啊，

qq254275659 发表于 2023-12-31 08:52:15

大神你好，这是什么版本的，我现在使用UG12生成，提示错误
页: [1]
查看完整版本: [原创] 装配组件直接改名，有源代码