改字符串中某个字符遇到的问题？！

bingshuier

2. (defun c:xx()
   
3.   (setq ss (ssget))
   
4.   (setq i 0)
   
5.   (repeat (sslength ss)
   
6.     (setq aa (nth i ss))
   
7.     (setq sc (strlen aa))
   
8.     (if (= sc 8)
   
9.       (setq q2 (substr aa 1 2))
   
10.       (setq q3 (substr aa 5 3))
    
11.       (setq new (strcat q2 "0" "x" q2 "0"))
    
12.       (func1)
    
13.       )
    
14.     (if (= sc 7)
    
15.       (setq q2 (substr aa 1 2))
    
16.       (setq q3 (substr aa 5 2))
    
17.       (setq new (strcat q2 "0" "x" q2 "0"))
    
18.       (func1)
    
19.       )
    
20.     (setq i (1+ i))
    
21.   )
    
22. )
    
23. 
    
24. (defun func1()
    
25.   (setq ent_list (entget aa))
    
26.   (setq ent_1_old (assoc 1 ent_list))
    
27.   (setq ent_1_new (cons 1 new))
    
28.   (SETQ ent_list (subst ent_1_new ent_1_old ent_list))
    
29.   (entmod ent_list)
    
30.   )
    
31. ;;;先是把第三个数字弄为0，在把最后一个弄成（因为有500x1000和500x00两种情况，所以第
    
32. 
    
33. 三个是确定的但是最后一个的是第几个不确定）
    

(defun c:xx()<br />   (setq ss (ssget))<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq aa (nth i ss))<br />     (setq sc (strlen aa))<br />     (if (= sc 8)<br />       (setq q2 (substr aa 1 2))<br />       (setq q3 (substr aa 5 3))<br />       (setq new (strcat q2 "0" "x" q2 "0"))<br />       (func1)<br />       )<br />     (if (= sc 7)<br />       (setq q2 (substr aa 1 2))<br />       (setq q3 (substr aa 5 2))<br />       (setq new (strcat q2 "0" "x" q2 "0"))<br />       (func1)<br />       )<br />     (setq i (1+ i))<br />   )<br /> )<br /> <br /> (defun func1()<br />   (setq ent_list (entget aa))<br />   (setq ent_1_old (assoc 1 ent_list))<br />   (setq ent_1_new (cons 1 new))<br />   (SETQ ent_list (subst ent_1_new ent_1_old ent_list))<br />   (entmod ent_list)<br />   )<br /> ;;;先是把第三个数字弄为0，在把最后一个弄成（因为有500x1000和500x00两种情况，所以第<br /> <br /> 三个是确定的但是最后一个的是第几个不确定）<br />

ll_j

没调试你的程序，用acad的vlide打开检查了一下，有两个问题你先改一下：
1.最后一行注释要加前导的引号，单独的引号只注释单行，注释段落用“;|”和“|;”配对，这应该是未知命令的根源。
2.两个if段落都格式不对，if只能有两个参数是和非，在每个参数多于一句时，使用progn来“打包”。

ZZXXQQ

2. (defun c:xx()
   
3.   (setq ss (ssget '((1 . "*#x#*"))))
   
4.   (setq i 0)
   
5.   (repeat (sslength ss)
   
6.     (setq ent (entget(ssname ss i)))
   
7.     (setq aa (cdr(assoc ent)))
   
8.     (setq sc (strlen aa))
   
9.     (if (< 6 sc 9) (progn
   
10.       (setq q2 (substr aa 1 2))
    
11.       (setq q3 (substr aa 5 (- sc 5)))
    
12.       (setq new (strcat q2 "0" "x" q3 "0"))
    
13.       (entmod (subst (cons 1 new) (assoc 1 ent) ent))
    
14.     ))
    
15.     (setq i (1+ i))
    
16.   )
    
17.   (princ)
    
18. )
    

(defun c:xx()<br />   (setq ss (ssget '((1 . "*#x#*"))))<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq ent (entget(ssname ss i)))<br />     (setq aa (cdr(assoc ent)))<br />     (setq sc (strlen aa))<br />     (if (< 6 sc 9) (progn<br />       (setq q2 (substr aa 1 2))<br />       (setq q3 (substr aa 5 (- sc 5)))<br />       (setq new (strcat q2 "0" "x" q3 "0"))<br />       (entmod (subst (cons 1 new) (assoc 1 ent) ent))<br />     ))<br />     (setq i (1+ i))<br />   )<br />   (princ)<br /> )<br />