建構線命令出錯

lead009

這是我寫的用來計算平行距離中線程式可以用，但是不知為何會出現錯誤
還請各位幫忙一下

2. ;;平行距離中線;;
   
3. (defun C:xm()
   
4.   (setq old(getvar"OSMODE"))
   
5.   (setq en1(car(entsel"選取一直線1")));x物件
   
6.   (setq en2(car(entsel"選取一直線2")));x物件
   
7. 
   
8.   (setq p1(cdr(assoc 10 (entget en1))))
   
9.   (setq p2(cdr(assoc 11 (entget en1))))
   
10.   (setq p3(cdr(assoc 10 (entget en2))))
    
11.   (setq p4(cdr(assoc 11 (entget en2))))
    
12. 
    
13.   (setq ang(angle p1 p2))
    
14.   (setq ang1(angle p3 p4))       
    
15. 
    
16.   (setq pa(polar p1 (+ ang (* 0.5 pi)) 100000))
    
17.   (setq pb(polar p1 (+ ang (* 1.5 pi)) 100000))
    
18.   (setq pc(polar p3 ang1 100000))
    
19.   (setq pd(polar p3 (+ ang pi) 100000))
    
20.   (setq pint(inters pa pb pc pd))
    
21. 
    
22.   (setq dd(distance p1 pint))
    
23.   (setq ang2(angle p1 pint))
    
24.   (setq pm(polar p1 ang2 (* 0.5 dd)))
    
25.   (command"xline" "A" (* ang1 (/ 180 pi)) pm "")
    
26.   (command"chprop" (entlast) "" "C" "1" "" "")
    
27.   (print(strcat"平行距離:" (rtos dd)))
    
28. 
    
29.   (prin1)
    
30. )

;;平行距離中線;;<br /> (defun C:xm()<br />   (setq old(getvar"OSMODE"))<br />   (setq en1(car(entsel"選取一直線1")));x物件<br />   (setq en2(car(entsel"選取一直線2")));x物件<br /> <br />   (setq p1(cdr(assoc 10 (entget en1))))<br />   (setq p2(cdr(assoc 11 (entget en1))))<br />   (setq p3(cdr(assoc 10 (entget en2))))<br />   (setq p4(cdr(assoc 11 (entget en2))))<br /> <br />   (setq ang(angle p1 p2))<br />   (setq ang1(angle p3 p4))        <br /> <br />   (setq pa(polar p1 (+ ang (* 0.5 pi)) 100000))<br />   (setq pb(polar p1 (+ ang (* 1.5 pi)) 100000))<br />   (setq pc(polar p3 ang1 100000))<br />   (setq pd(polar p3 (+ ang pi) 100000))<br />   (setq pint(inters pa pb pc pd))<br /> <br />   (setq dd(distance p1 pint))<br />   (setq ang2(angle p1 pint))<br />   (setq pm(polar p1 ang2 (* 0.5 dd)))<br />   (command"xline" "A" (* ang1 (/ 180 pi)) pm "")<br />   (command"chprop" (entlast) "" "C" "1" "" "")<br />   (print(strcat"平行距離:" (rtos dd)))<br /> <br />   (prin1)<br /> )

caoyin

(command"chprop" (entlast) "" "C" "1" "" "")
->
(command"chprop" (entlast) "" "C" "1" "")

lead009

謝謝這位大大，問題解決了。但是有一個新的問題
就是當我縮放營幕拉遠，讓兩條平行線非常相近時，會發生這樣的問題(如圖)
我已把鎖點(SETVAR "osmode" 0)
一樣距離的平行線，為何會因為視角的遠近而造成錯誤呢??
這個問題該如何解決

2. ;;平行距離中線;;
   
3. (defun C:xm()
   
4.   (setq old(getvar"OSMODE"))
   
5.   (setq en1(car(entsel"選取一直線1")));x物件
   
6.   (setq en2(car(entsel"選取一直線2")));x物件
   
7.   (setq "osmode" 0)
   
8.   (setq p1(cdr(assoc 10 (entget en1))))
   
9.   (setq p2(cdr(assoc 11 (entget en1))))
   
10.   (setq p3(cdr(assoc 10 (entget en2))))
    
11.   (setq p4(cdr(assoc 11 (entget en2))))
    
12. 
    
13.   (setq ang(angle p1 p2))
    
14.   (setq ang1(angle p3 p4))        
    
15. 
    
16.   (setq pa(polar p1 (+ ang (* 0.5 pi)) 100000))
    
17.   (setq pb(polar p1 (+ ang (* 1.5 pi)) 100000))
    
18.   (setq pc(polar p3 ang1 100000))
    
19.   (setq pd(polar p3 (+ ang pi) 100000))
    
20.   (setq pint(inters pa pb pc pd))
    
21. 
    
22.   (setq dd(distance p1 pint))
    
23.   (setq ang2(angle p1 pint))
    
24.   (setq pm(polar p1 ang2 (* 0.5 dd)))
    
25.   (command"xline" "A" (* ang1 (/ 180 pi)) pm "")
    
26.   (command"chprop" (entlast) "" "C" "1" "")
    
27.   (print(strcat"平行距離:" (rtos dd)))
    
28.   (setvar "osmode" old)
    
29.   (prin1)
    
30. )

;;平行距離中線;;<br /> (defun C:xm()<br />   (setq old(getvar"OSMODE"))<br />   (setq en1(car(entsel"選取一直線1")));x物件<br />   (setq en2(car(entsel"選取一直線2")));x物件<br />   (setq "osmode" 0)<br />   (setq p1(cdr(assoc 10 (entget en1))))<br />   (setq p2(cdr(assoc 11 (entget en1))))<br />   (setq p3(cdr(assoc 10 (entget en2))))<br />   (setq p4(cdr(assoc 11 (entget en2))))<br /> <br />   (setq ang(angle p1 p2))<br />   (setq ang1(angle p3 p4))        <br /> <br />   (setq pa(polar p1 (+ ang (* 0.5 pi)) 100000))<br />   (setq pb(polar p1 (+ ang (* 1.5 pi)) 100000))<br />   (setq pc(polar p3 ang1 100000))<br />   (setq pd(polar p3 (+ ang pi) 100000))<br />   (setq pint(inters pa pb pc pd))<br /> <br />   (setq dd(distance p1 pint))<br />   (setq ang2(angle p1 pint))<br />   (setq pm(polar p1 ang2 (* 0.5 dd)))<br />   (command"xline" "A" (* ang1 (/ 180 pi)) pm "")<br />   (command"chprop" (entlast) "" "C" "1" "")<br />   (print(strcat"平行距離:" (rtos dd)))<br />   (setvar "osmode" old)<br />   (prin1)<br /> )

caoyin

  (setq "osmode" 0)
->
(setvar  "osmode" 0)

lead009

真是慚愧，竟然自己沒發現這樣的錯誤，謝謝大大的幫助