[LISP程序]：一个死不瞑目的问题？？help

libo2000

一个死不瞑目的问题？？help
＝＝＝》》》

2. 
   
3. ;mline
   
4. (defun chengs_mline (p1 p2 w / angr r1 r2 w2 p21 p22 p31 p32 ln2 ln3)
   
5.   (setq
   
6.     angr (angle p1 p2)
   
7.     r1 (+ angr (/ pi 2))
   
8.     r2 (- angr (/ pi 2))
   
9.     w2 (/ w 2)
   
10.     p21 (polar p1 r1 w2)
    
11.     p22 (polar p2 r1 w2)
    
12.     p31 (polar p1 r2 w2)
    
13.     p32 (polar p2 r2 w2)
    
14.   )
    
15.   (command "line" p21 p22 "")
    
16.   (setq ln2 (entlast))
    
17.   (command "line" p31 p32 "")
    
18.   (setq ln3 (entlast))
    
19.   (list ln2 ln3)
    
20. );end chengs_mline
    
21. 
    
22. (defun c:test ( / p1 p2)   
    
23.   (setq p1 (getpoint "\nselect point1:"))
    
24.   (while (setq p2 (getpoint p1 "\nselect point2"))
    
25.     (if p2 (chengs_mline p1 p2 200))
    
26.     (setq p1 p2)
    
27.   )
    
28.   (princ)
    
29. )

<br /> ;mline<br /> (defun chengs_mline (p1 p2 w / angr r1 r2 w2 p21 p22 p31 p32 ln2 ln3)<br />   (setq<br />     angr (angle p1 p2)<br />     r1 (+ angr (/ pi 2))<br />     r2 (- angr (/ pi 2))<br />     w2 (/ w 2)<br />     p21 (polar p1 r1 w2)<br />     p22 (polar p2 r1 w2)<br />     p31 (polar p1 r2 w2)<br />     p32 (polar p2 r2 w2)<br />   )<br />   (command "line" p21 p22 "")<br />   (setq ln2 (entlast))<br />   (command "line" p31 p32 "")<br />   (setq ln3 (entlast))<br />   (list ln2 ln3)<br /> );end chengs_mline<br /> <br /> (defun c:test ( / p1 p2)    <br />   (setq p1 (getpoint "\nselect point1:"))<br />   (while (setq p2 (getpoint p1 "\nselect point2"))<br />     (if p2 (chengs_mline p1 p2 200))<br />     (setq p1 p2)<br />   )<br />   (princ)<br /> )

《《《＝＝＝
为什么在CAD里执行test很难得到正确的结果
而chengs_mline函数并没有错。
如果修改test====>>>

2. 
   
3. (defun c:test2 ( / p1 p2)   
   
4.   (setq p1 (getpoint "\nselect point1:"))
   
5.   (while (setq p2 (getpoint p1 "\nselect point2"))
   
6.     (if p2
   
7.      (progn
   
8.        (command "zoom" p1 p2)
   
9.        (chengs_mline p1 p2 200)
   
10.        (command "zoom" "p")
    
11.        (setq p1 p2)
    
12.      )
    
13.     )endif
    
14.   );endwhile
    
15.   (princ)
    
16. )

<br /> (defun c:test2 ( / p1 p2)    <br />   (setq p1 (getpoint "\nselect point1:"))<br />   (while (setq p2 (getpoint p1 "\nselect point2"))<br />     (if p2 <br />      (progn<br />        (command "zoom" p1 p2)<br />        (chengs_mline p1 p2 200)<br />        (command "zoom" "p")<br />        (setq p1 p2)<br />      )<br />     )endif<br />   );endwhile<br />   (princ)<br /> )

<<<<====
修改后的test2却是正确的！！！！！！！！1

help!!!!!!!!!!!!!!!!!

拜托各位大侠帮我分析分析！
thank all

eachy

先把 Osnap  关掉。

cy956

一般都是捕捉的错。你先(setvar "osmode" 0)再恢复试试。
建议你用entmake生成，连图层都一块儿定义，你搜搜cy956,entmake的帖子看看。