（完成）[编程申请]：对以字母“G”开头的字符串进行操作

lengliqun

对以字母“G”开头的字符串进行操作，若字符串以括号结尾，将括号中的数字去掉括号后插入到G的后面；若字符串结尾无括号，
则在G后直接插入数字2
有附件可供调试（cad2002 默认全选）谢谢。
*-*c *-*c *-*c *-*c *-*c *-*c *-*c *-*c *-*c *-*c *-*c

david96007

括号中的是一位数吗?
如果是,这个应该可以!

2. 
   
3. (defun c:tt (/
   
4. ;;;             ss l n ent str s e
   
5.             )
   
6.   (PRINC "\选择需要修改的文本:")
   
7.   (setq        ss (ssget '((0 . "TEXT")))
   
8.         l  (sslength ss)
   
9.         n  0
   
10.   )
    
11.   (while (< n L)
    
12.     (setq ent (entget (ssname ss n))
    
13.           str (cdr (assoc 1 ent))
    
14.           ll  (strlen str)
    
15.           n (1+ n)
    
16.     )
    
17.     (if        (WCMATCH str "G*(*)")
    
18.       (progn (setq str1        (substr str 2 (- ll 4))
    
19.                    str2        (substr str (- ll 1) 1)
    
20.                    str        (strcat "G" STR2 STR1)
    
21.                    ent        (subst (cons 1 str) (assoc 1 ent) ent)
    
22.              )
    
23.              (entmod ent)
    
24.       )
    
25.       (if (WCMATCH str "G*")
    
26.         (progn (setq str1 (substr str 2 (- ll 1))
    
27.                      str  (strcat "G2" STR1)
    
28.                      ent  (subst (cons 1 str) (assoc 1 ent) ent)
    
29.                )
    
30.                (entmod ent)
    
31.         )
    
32.       )
    
33.     )
    
34.   )
    
35.   (princ)
    
36. )
    
37. 
    

<br /> (defun c:tt (/<br /> ;;;             ss l n ent str s e<br />             )<br />   (PRINC "\选择需要修改的文本:")<br />   (setq        ss (ssget '((0 . "TEXT")))<br />         l  (sslength ss)<br />         n  0<br />   )<br />   (while (< n L)<br />     (setq ent (entget (ssname ss n))<br />           str (cdr (assoc 1 ent))<br />           ll  (strlen str)<br />           n (1+ n)<br />     )<br />     (if        (WCMATCH str "G*(*)")<br />       (progn (setq str1        (substr str 2 (- ll 4))<br />                    str2        (substr str (- ll 1) 1)<br />                    str        (strcat "G" STR2 STR1)<br />                    ent        (subst (cons 1 str) (assoc 1 ent) ent)<br />              )<br />              (entmod ent)<br />       )<br />       (if (WCMATCH str "G*")<br />         (progn (setq str1 (substr str 2 (- ll 1))<br />                      str  (strcat "G2" STR1)<br />                      ent  (subst (cons 1 str) (assoc 1 ent) ent)<br />                )<br />                (entmod ent)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

lengliqun

CAD2002测试完全可用，谢谢。