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

luoming1023

大家看看有没有什么不足的地方,源代码：

1. entity/obj
   
2. string/str(100),str1(100),str2(100),$
   
3.        part_name(20),path(100),name(100)
   
4. 
   
5. L10:
   
6.     mask/63
   
7.    
   
8.     ident/'选择要改名的组件',obj,resp
   
9.     jump/trm:,trm:,,resp
   
10. 
    
11.    
    
12.      
    
13. L20:
    
14.       str=&cpnam(obj)
    
15.       a=LENF(str)
    
16.       d=a-4
    
17.       str1=SUBSTR(str,1,d)
    
18. L30:
    
19.       b=LENF(str1)
    
20.       ans=FNDSTR(str1,'\',1)
    
21.       c=b-ans
    
22.       ifthen/ans>0
    
23.       ans=ans+1
    
24.       str1=SUBSTR(str1,ans,c)
    
25.      jump/L30:
    
26.      else
    
27.       endif
    
28.        part_name=str1
    
29.      $ print/str2,part_name,ans,c
    
30.        b=LENF(part_name)
    
31.        e=d-b
    
32.        path=SUBSTR(str,1,e)
    
33.       $ print/path
    
34. L40:
    
35.      TEXT/'罗鸣提示:输入新名称',part_name,RSP1,DEFLT
    
36.       JUMP/L40:,trm:,,RSP1
    
37.       name=path+part_name+'.prt'
    
38.      FCOPY/str,name
    
39.      $print/name
    
40.     &cpnam(obj)=name
    
41.     FDEL/str
    
42.     jump/L10:
    
43.    
    
44. trm:
    
45. $file/part,str
    
46. halt

复制代码

toshi008

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

愛你亦如何

学习，看看

13724130993

学习学习！！！

傻明哈哈

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

qq254275659

大神你好，这是什么版本的，我现在使用UG12生成，提示错误