程式常長建立長度為0的線 求助

lead009

以下是一個鳩尾槽的程式。
有時候可以在圖面中畫出鳩尾槽來，但是絕大部份CAD都會出現這樣的訊息在指令列
"建立了長度為零的線"
請各位指點一下錯誤在哪，為何程式會時靈時不靈。

3.   (defun C:204()
4.    (setq p1(getpoint"\n輸入左下角"))
5.    (setq hh(getdist p1"\n指定高度"))
6.    (setq ww(getdist p1"\n指定寬度"))
7.    (setq w2(getdist p1 "\n指定w2"))
8.    (setq dd(getdist p1"\n輸入鳩尾槽底下的高度"))
9.    ;;===;;
10.    (if (null hh) (setq hh 50))
11.    (if (null ww) (setq ww 100))
12.    (if (null w2) (setq w2 30))
13.    (if (null dd) (setq dd 8))
14.    ;===;
15.    (setq w1 (* (- ww w2) 0.5))
16.    (setq p2(polar p1 (* 0.5 pi) hh))
17.    (setq p3(polar p2 0 ww))
18.    (setq p4(polar p3 (* 1.5 pi) hh))
19.    (setq p5(polar p4 pi w1))
20.    (setq p6(polar p5 (* pi 0.3333333333333333333333333) (* dd 1.54700538)))
21.    (setq p7(polar p1 0 w1))
22.    (setq p8(polar p7 (* pi 0.6666666666666666666) (* dd 1.54700538)))
23.    ;;===========;;
24.    (command "line" p1 p2 p3 p4 p5 p6  "")
25.    (command "line" p1 p7 p8 p6  "")
26.    (prin1)
27. )

  (defun C:204()    (setq p1(getpoint"\n輸入左下角"))    (setq hh(getdist p1"\n指定高度"))    (setq ww(getdist p1"\n指定寬度"))    (setq w2(getdist p1 "\n指定w2"))    (setq dd(getdist p1"\n輸入鳩尾槽底下的高度"))    ;;===;;    (if (null hh) (setq hh 50))    (if (null ww) (setq ww 100))    (if (null w2) (setq w2 30))    (if (null dd) (setq dd 8))    ;===;    (setq w1 (* (- ww w2) 0.5))    (setq p2(polar p1 (* 0.5 pi) hh))    (setq p3(polar p2 0 ww))    (setq p4(polar p3 (* 1.5 pi) hh))    (setq p5(polar p4 pi w1))    (setq p6(polar p5 (* pi 0.3333333333333333333333333) (* dd 1.54700538)))    (setq p7(polar p1 0 w1))    (setq p8(polar p7 (* pi 0.6666666666666666666) (* dd 1.54700538)))    ;;===========;;    (command "line" p1 p2 p3 p4 p5 p6  "")    (command "line" p1 p7 p8 p6  "")    (prin1) )

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

lead009

我在程式的頭尾加上了你的修改後

情況改善很多，但是偶爾還是會出現

"建立了長度為零的線"，

 

 我用了同一組參數下去測試，為什麼有時候可以成功的畫出，有時候卻出現"建立長度為零的線"呢??

這種現像的原因是什麼?

 (ps:每次只要出現錯誤，圖形就會畫出一條直線或是一個矩形)

 

 

 

 

(setq oldosmode (getvar "osmode"))是保存当前捕捉设定的参数。

 它在程式中，具體的作用是什麼??

ZZXXQQ

实际上ACAD在画线时如果捕捉打开，会自动捕捉到最近的捕捉点。所以在程序中事先保存捕捉参数，在画线前将捕捉关掉。画线后再恢复成原参数。

lead009

 (setq oldos (getvar "OSMODE"))
 (setvar "OSMODE" oldos)

 

所以說在頭尾加上這兩段程式碼，會在程式執行的過程中，將抓點等等的環境參數都先關囉。

 

那"它們"跟 (setvar "CMDECHO" 0)
的差別在哪??

ZZXXQQ