[求助]：哪位有空进来帮我看看问题出在哪？？

carrot1983

首先先感谢Dallas_whu 在http://p4.xdcad.net/forum/showthread.php?s=&threadid=604592  帮我回答了一直以来的遇到的问题。
这个是修改过后的。但是当我输入"O"的时候指针总是不能指到  (if (= dis "O") (setq k 2))[/COLOR]，而直接选择对象。

2. 
   
3.   [FONT=courier new]
   
4. ;**********************************************双向偏移oo
   
5.   (defun c:oo()
   
6.      (setq orig_cmd (getvar "cmdecho"))
   
7.      (setvar "cmdecho" 0)                ; cmdecho = 0
   
8. 
   
9.   (if (= nil dis_orig) (setq dis_orig 100)) ;如果dis为空（回车）则设dis=100。
   
10.   (initget 6 "O")
    
11.   (setq dis (getdist (strcat "\n>>指定偏移距离或[设置(O)] <" (rtos dis_orig) ">:")))
    
12.   (if (= nil dis) (setq dis dis_orig) (setq k 1))  ;如果dis为回车，则为100，并指针转到k=1.
    
13.   ;如果dis不为回车，并且不是输入"O"；则预设<>里的值为dis(即另输入距离)，并指针转到k=1.
    
14.   (if (and (/= nil dis) (/= "O" dis)) (setq dis_orig dis) (setq k 1))
    
15. 
    
16. ;************************************输入是数值时。
    
17.   (while (= k 1)
    
18.       (setq ss (ssadd))  ;建立一个名为ss的选择集。
    
19.       (setq en (entsel "\n>>选择要偏移的线:")) ;选择单个图元（提示选择line）
    
20. ;以下表示，如果选择为空集则退出lisp返回AutoCAD系统。
    
21.   (if (= nil en)
    
22.     (progn
    
23.       (princ "\n>>error!")
    
24.       (exit)
    
25.   ));  end of if
    
26.       (setq na (car en)) ;取得选到的图元的图元名。
    
27.       (ssadd na ss)  ;将所选到的图元名加入到ss选择集里。
    
28.       (setq data (entget na))  ;取得图元资料串列。
    
29.       (setq pt_1st (cdr (assoc '10 data)))  ;取得图元（线）的第一点。
    
30.       (setq pt_2nd (cdr (assoc '11 data)))  ;取得图元（线）的第二点。
    
31.       (setq ml_ss (ssadd))  ;建立一个名为ml_ss的选择集。
    
32.       (command "mline" "j" "z" "s" (* 2 dis) pt_1st pt_2nd "")  ;画出两条多线。
    
33.       (setq enla (entlast)) ;设定enla为最后的选择图元名
    
34.       (ssadd enla ml_ss)  ;将enla加入到ml_ss选择集当中。
    
35.       (command "EXPLODE" ml_ss)  ;将ml_ss选择集当中的多线炸开，得到双向偏移的效果。
    
36.       (ssdel enla ml_ss)  ;从ml_ss选择集中删除掉enla。此时ml_ss应为空集。
    
37.       (ssdel na ss)  ;从ss选择集中删除掉na。此时ss应为空集。
    
38. 
    
39.   ) ;end of while
    
40. 
    
41. ;************************************输入"o"
    
42. [COLOR=red]  (if (= dis "O") (setq k 2))[/COLOR]  ;如果dis输入为"O"，则转到设置sett
    
43.   (if (= k 2)
    
44.     (progn
    
45.       (initget 1 "S E N")
    
46.       (setq sett (getkword "\n[选择偏移距离(S)/删除原来的线(E)/偏移后的图层(N)]: "))
    
47.   )) ;end of if(= dis "O")
    
48.    
    
49. ;************************************输入"s"
    
50.    (if (= sett "S") (setq k 3))
    
51.    (while (= k 3)
    
52.       (setq dis (getdist "\n选择偏移距离: "))
    
53.       (setq ss (ssadd))  ;建立一个名为ss的选择集。
    
54.       (setq en (entsel "\n>>选择要偏移的线:")) ;选择单个图元（提示选择line）
    
55. ;以下表示，如果选择为空集则退出lisp返回AutoCAD系统。
    
56.   (if (= nil en)
    
57.     (progn
    
58.       (princ "\n>>error!")
    
59.       (exit)
    
60.   ));  end of if
    
61.       (setq na (car en)) ;取得选到的图元的图元名。
    
62.       (ssadd na ss)  ;将所选到的图元名加入到ss选择集里。
    
63.       (setq data (entget na))  ;取得图元资料串列。
    
64.       (setq pt_1st (cdr (assoc '10 data)))  ;取得图元（线）的第一点。
    
65.       (setq pt_2nd (cdr (assoc '11 data)))  ;取得图元（线）的第二点。
    
66.       (setq ml_ss (ssadd))  ;建立一个名为ml_ss的选择集。
    
67.       (command "mline" "j" "z" "s" (* 2 dis) pt_1st pt_2nd "")  ;画出两条多线。
    
68.       (setq enla (entlast)) ;设定enla为最后的选择图元名
    
69.       (ssadd enla ml_ss)  ;将enla加入到ml_ss选择集当中。
    
70.       (command "EXPLODE" ml_ss)  ;将ml_ss选择集当中的多线炸开，得到双向偏移的效果。
    
71.       (ssdel enla ml_ss)  ;从ml_ss选择集中删除掉enla。此时ml_ss应为空集。
    
72.       (ssdel na ss)  ;从ss选择集中删除掉na。此时ss应为空集。
    
73. 
    
74.   );end of while
    
75.    
    
76. ;************************************输入"e"
    
77.    (if (= sett "E") (setq k 4))
    
78.   (while (= k 4)
    
79. 
    
80.       (setq ss (ssadd))  ;建立一个名为ss的选择集。
    
81.       (setq en (entsel "\n>>选择要偏移的线:")) ;选择单个图元（提示选择line）
    
82.    
    
83. ;以下表示，如果选择为空集则退出lisp返回AutoCAD系统。
    
84.   (if (= nil en)
    
85.     (progn
    
86.       (princ "\n>>error!")
    
87.       (exit)
    
88.   ));  end of if
    
89.       (setq na (car en)) ;取得选到的图元的图元名。
    
90.       (ssadd na ss)  ;将所选到的图元名加入到ss选择集里。
    
91.       (setq data (entget na))  ;取得图元资料串列。
    
92.       (setq pt_1st (cdr (assoc '10 data)))  ;取得图元（线）的第一点。
    
93.       (setq pt_2nd (cdr (assoc '11 data)))  ;取得图元（线）的第二点。
    
94.       (setq ml_ss (ssadd))  ;建立一个名为ml_ss的选择集。
    
95.       (command "mline" "j" "z" "s" (* 2 dis2) pt_1st pt_2nd "")  ;画出两条多线。
    
96.       (setq enla (entlast)) ;设定enla为最后的选择图元名
    
97.       (ssadd enla ml_ss)  ;将enla加入到ml_ss选择集当中。
    
98.       (command "EXPLODE" ml_ss)  ;将ml_ss选择集当中的多线炸开，得到双向偏移的效果。
    
99.       (ssdel enla ml_ss)  ;从ml_ss选择集中删除掉enla。此时ml_ss应为空集。
    
100.       (command "ERASE" ss"")
     
101.       (ssdel na ss)  ;从ss选择集中删除掉na。此时ss应为空集。
     
102.    
     
103.    );end of while  
     
104. 
     
105.   
     
106.   ;************************************输入"n"
     
107.    (if (= sett "N") (setq k 5))
     
108.    (while (= k 5)
     
109.       (setq TC (getstring "\n偏移后线的图层: "))
     
110.       (setq ss (ssadd))  ;建立一个名为ss的选择集。
     
111.       (setq en (entsel "\n>>选择要偏移的线:")) ;选择单个图元（提示选择line）
     
112.      
     
113. ;以下表示，如果选择为空集则退出lisp返回AutoCAD系统。
     
114.   (if (= nil en)
     
115.     (progn
     
116.       (princ "\n>>error!")
     
117.       (exit)
     
118.   ));  end of if
     
119.       (setq na (car en)) ;取得选到的图元的图元名。
     
120.       (ssadd na ss)  ;将所选到的图元名加入到ss选择集里。
     
121.       (setq data (entget na))  ;取得图元资料串列。
     
122.       (setq pt_1st (cdr (assoc '10 data)))  ;取得图元（线）的第一点。
     
123.       (setq pt_2nd (cdr (assoc '11 data)))  ;取得图元（线）的第二点。
     
124.       (setq ml_ss (ssadd))  ;建立一个名为ml_ss的选择集。
     
125.       (setq cla (getvar "clayer"))
     
126.       (command "clayer" TC)
     
127.       (command "mline" "j" "z" "s" (* 2 dis) pt_1st pt_2nd "")  ;画出两条多线。
     
128.       (setq enla (entlast)) ;设定enla为最后的选择图元名
     
129.       (ssadd enla ml_ss)  ;将enla加入到ml_ss选择集当中。
     
130.       (command "EXPLODE" ml_ss)  ;将ml_ss选择集当中的多线炸开，得到双向偏移的效果。
     
131.       (ssdel enla ml_ss)  ;从ml_ss选择集中删除掉enla。此时ml_ss应为空集。
     
132.       (ssdel na ss)  ;从ss选择集中删除掉na。此时ss应为空集。
     
133.       
     
134.    ) ;end of while
     
135. 
     
136.       (prin1)
     
137.   )
     
138. 
     
139.   [/FONT]
     

<br />   [FONT=courier new]<br /> ;**********************************************双向偏移oo<br />   (defun c:oo()<br />      (setq orig_cmd (getvar "cmdecho"))<br />      (setvar "cmdecho" 0)                ; cmdecho = 0<br /> <br />   (if (= nil dis_orig) (setq dis_orig 100)) ;如果dis为空（回车）则设dis=100。<br />   (initget 6 "O") <br />   (setq dis (getdist (strcat "\n>>指定偏移距离或[设置(O)] <" (rtos dis_orig) ">:")))<br />   (if (= nil dis) (setq dis dis_orig) (setq k 1))  ;如果dis为回车，则为100，并指针转到k=1.<br />   ;如果dis不为回车，并且不是输入"O"；则预设<>里的值为dis(即另输入距离)，并指针转到k=1. <br />   (if (and (/= nil dis) (/= "O" dis)) (setq dis_orig dis) (setq k 1)) <br /> <br /> ;************************************输入是数值时。<br />   (while (= k 1)<br />       (setq ss (ssadd))  ;建立一个名为ss的选择集。<br />       (setq en (entsel "\n>>选择要偏移的线:")) ;选择单个图元（提示选择line）<br /> ;以下表示，如果选择为空集则退出lisp返回AutoCAD系统。<br />   (if (= nil en)<br />     (progn<br />       (princ "\n>>error!")<br />       (exit)<br />   ));  end of if <br />       (setq na (car en)) ;取得选到的图元的图元名。<br />       (ssadd na ss)  ;将所选到的图元名加入到ss选择集里。<br />       (setq data (entget na))  ;取得图元资料串列。<br />       (setq pt_1st (cdr (assoc '10 data)))  ;取得图元（线）的第一点。<br />       (setq pt_2nd (cdr (assoc '11 data)))  ;取得图元（线）的第二点。<br />       (setq ml_ss (ssadd))  ;建立一个名为ml_ss的选择集。<br />       (command "mline" "j" "z" "s" (* 2 dis) pt_1st pt_2nd "")  ;画出两条多线。<br />       (setq enla (entlast)) ;设定enla为最后的选择图元名<br />       (ssadd enla ml_ss)  ;将enla加入到ml_ss选择集当中。<br />       (command "EXPLODE" ml_ss)  ;将ml_ss选择集当中的多线炸开，得到双向偏移的效果。<br />       (ssdel enla ml_ss)  ;从ml_ss选择集中删除掉enla。此时ml_ss应为空集。<br />       (ssdel na ss)  ;从ss选择集中删除掉na。此时ss应为空集。<br /> <br />   ) ;end of while<br /> <br /> ;************************************输入"o"<br /> [COLOR=red]  (if (= dis "O") (setq k 2))[/COLOR]  ;如果dis输入为"O"，则转到设置sett<br />   (if (= k 2)<br />     (progn<br />       (initget 1 "S E N")<br />       (setq sett (getkword "\n[选择偏移距离(S)/删除原来的线(E)/偏移后的图层(N)]: "))<br />   )) ;end of if(= dis "O")<br />     <br /> ;************************************输入"s"<br />    (if (= sett "S") (setq k 3))<br />    (while (= k 3)<br />       (setq dis (getdist "\n选择偏移距离: "))<br />       (setq ss (ssadd))  ;建立一个名为ss的选择集。<br />       (setq en (entsel "\n>>选择要偏移的线:")) ;选择单个图元（提示选择line）<br /> ;以下表示，如果选择为空集则退出lisp返回AutoCAD系统。<br />   (if (= nil en)<br />     (progn<br />       (princ "\n>>error!")<br />       (exit)<br />   ));  end of if <br />       (setq na (car en)) ;取得选到的图元的图元名。<br />       (ssadd na ss)  ;将所选到的图元名加入到ss选择集里。<br />       (setq data (entget na))  ;取得图元资料串列。<br />       (setq pt_1st (cdr (assoc '10 data)))  ;取得图元（线）的第一点。<br />       (setq pt_2nd (cdr (assoc '11 data)))  ;取得图元（线）的第二点。<br />       (setq ml_ss (ssadd))  ;建立一个名为ml_ss的选择集。<br />       (command "mline" "j" "z" "s" (* 2 dis) pt_1st pt_2nd "")  ;画出两条多线。<br />       (setq enla (entlast)) ;设定enla为最后的选择图元名<br />       (ssadd enla ml_ss)  ;将enla加入到ml_ss选择集当中。<br />       (command "EXPLODE" ml_ss)  ;将ml_ss选择集当中的多线炸开，得到双向偏移的效果。<br />       (ssdel enla ml_ss)  ;从ml_ss选择集中删除掉enla。此时ml_ss应为空集。<br />       (ssdel na ss)  ;从ss选择集中删除掉na。此时ss应为空集。<br /> <br />   );end of while<br />     <br /> ;************************************输入"e"<br />    (if (= sett "E") (setq k 4))<br />   (while (= k 4)<br /> <br />       (setq ss (ssadd))  ;建立一个名为ss的选择集。<br />       (setq en (entsel "\n>>选择要偏移的线:")) ;选择单个图元（提示选择line）<br />     <br /> ;以下表示，如果选择为空集则退出lisp返回AutoCAD系统。<br />   (if (= nil en)<br />     (progn<br />       (princ "\n>>error!")<br />       (exit)<br />   ));  end of if <br />       (setq na (car en)) ;取得选到的图元的图元名。<br />       (ssadd na ss)  ;将所选到的图元名加入到ss选择集里。<br />       (setq data (entget na))  ;取得图元资料串列。<br />       (setq pt_1st (cdr (assoc '10 data)))  ;取得图元（线）的第一点。<br />       (setq pt_2nd (cdr (assoc '11 data)))  ;取得图元（线）的第二点。<br />       (setq ml_ss (ssadd))  ;建立一个名为ml_ss的选择集。<br />       (command "mline" "j" "z" "s" (* 2 dis2) pt_1st pt_2nd "")  ;画出两条多线。<br />       (setq enla (entlast)) ;设定enla为最后的选择图元名<br />       (ssadd enla ml_ss)  ;将enla加入到ml_ss选择集当中。<br />       (command "EXPLODE" ml_ss)  ;将ml_ss选择集当中的多线炸开，得到双向偏移的效果。<br />       (ssdel enla ml_ss)  ;从ml_ss选择集中删除掉enla。此时ml_ss应为空集。<br />       (command "ERASE" ss"")<br />       (ssdel na ss)  ;从ss选择集中删除掉na。此时ss应为空集。<br />     <br />    );end of while  <br /> <br />   <br />   ;************************************输入"n" <br />    (if (= sett "N") (setq k 5))<br />    (while (= k 5)<br />       (setq TC (getstring "\n偏移后线的图层: "))<br />       (setq ss (ssadd))  ;建立一个名为ss的选择集。<br />       (setq en (entsel "\n>>选择要偏移的线:")) ;选择单个图元（提示选择line）<br />      <br /> ;以下表示，如果选择为空集则退出lisp返回AutoCAD系统。<br />   (if (= nil en)<br />     (progn<br />       (princ "\n>>error!")<br />       (exit)<br />   ));  end of if <br />       (setq na (car en)) ;取得选到的图元的图元名。<br />       (ssadd na ss)  ;将所选到的图元名加入到ss选择集里。<br />       (setq data (entget na))  ;取得图元资料串列。<br />       (setq pt_1st (cdr (assoc '10 data)))  ;取得图元（线）的第一点。<br />       (setq pt_2nd (cdr (assoc '11 data)))  ;取得图元（线）的第二点。<br />       (setq ml_ss (ssadd))  ;建立一个名为ml_ss的选择集。<br />       (setq cla (getvar "clayer"))<br />       (command "clayer" TC)<br />       (command "mline" "j" "z" "s" (* 2 dis) pt_1st pt_2nd "")  ;画出两条多线。<br />       (setq enla (entlast)) ;设定enla为最后的选择图元名<br />       (ssadd enla ml_ss)  ;将enla加入到ml_ss选择集当中。<br />       (command "EXPLODE" ml_ss)  ;将ml_ss选择集当中的多线炸开，得到双向偏移的效果。<br />       (ssdel enla ml_ss)  ;从ml_ss选择集中删除掉enla。此时ml_ss应为空集。<br />       (ssdel na ss)  ;从ss选择集中删除掉na。此时ss应为空集。<br />       <br />    ) ;end of while<br /> <br />       (prin1)<br />   )<br /> <br />   [/FONT]<br />

有时间的人可以帮我调试看看问题出在哪里，我试了一个下午了没办法。找不到出路。呜~~~~~。

怎么没有人回复啊？？？？？？
不知道哪里出错了~！~！~