如何讓自己寫的lisp也擁有虛線呢?

lead009

以下這是我自己寫來用在畫圓中心線的程式。但是我看到有些cad也有相同的功能，而且他們在繪製的時候
會出現這種虛線。

請問自己寫的lisp該如何，才能夠也有這種虛線呢?

2. 
   
3. (defun C:cr()
   
4.   (setq os (getvar "osmode"));;取得當前鎖點模式
   
5.   (setq lay(getvar "clayer"))
   
6.   (setq cen(getpoint"\n中心點"))
   
7.   (setq rr(getdist"\n半徑" cen))
   
8.   (setq dd(* rr 1.2))
   
9.   (setvar "osmode" 0)        ;;關閉鎖點
   
10.   (setvar "clayer" "AM_7")   ;;設置圖層
    
11.   (setq pa(polar cen 0 dd))
    
12.   (setq pb(polar cen (* pi 0.5) dd))
    
13.   (setq pc(polar cen (* pi 1.0) dd))
    
14.   (setq pd(polar cen (* pi 1.5) dd))
    
15. 
    
16.   (command"line" pa pc "")
    
17.   (command"line" pb pd "")
    
18. 
    
19.   (setvar "clayer" lay)    ;;恢復鎖點
    
20.   (setvar "osmode" os)     ;;恢復圖層
    
21. (prin1)
    
22. )

<br /> (defun C:cr()<br />   (setq os (getvar "osmode"));;取得當前鎖點模式<br />   (setq lay(getvar "clayer"))<br />   (setq cen(getpoint"\n中心點"))<br />   (setq rr(getdist"\n半徑" cen))<br />   (setq dd(* rr 1.2))<br />   (setvar "osmode" 0)        ;;關閉鎖點<br />   (setvar "clayer" "AM_7")   ;;設置圖層<br />   (setq pa(polar cen 0 dd))<br />   (setq pb(polar cen (* pi 0.5) dd))<br />   (setq pc(polar cen (* pi 1.0) dd))<br />   (setq pd(polar cen (* pi 1.5) dd))<br /> <br />   (command"line" pa pc "")<br />   (command"line" pb pd "")<br /> <br />   (setvar "clayer" lay)    ;;恢復鎖點<br />   (setvar "osmode" os)     ;;恢復圖層<br /> (prin1)<br /> )

Andyhon

Redraw 函數 可以有這個效果
(redraw ee 3)

lead009

(redraw [圖元名稱 [模式]])        重繪整張圖或依圖元名稱重繪該圖形

這不是畫面重繪的指令嗎
要如何使用才能跑出那些追踨線呢
可以示範一下嗎

Andyhon

畫一線 then
(redraw (entlast) 3)
------------------------
...追踨線...? 未能理解,請舉例說明

lead009

我是指上面我貼的那張圖，那個紅色箭頭指的那個

Andyhon

  (command "line" pa pc "")
  (command "line" pb pd "")
==>  ???
  (command "line" pa pc "")
  (redraw (entlast) 3)
  (command "line" pb pd "")
  (redraw (entlast) 3)

不確定是否合題!

lead009

2. (defun C:cr()
   
3.   (setq os (getvar "osmode"));;取得當前鎖點模式
   
4.   (setq lay(getvar "clayer"))
   
5.   (setq cen(getpoint"\n中心點"))
   
6.   (setq rr(getdist"\n半徑" cen))
   
7.   (setq dd(* rr 1.2))
   
8.   (setvar "osmode" 0)        ;;關閉鎖點
   
9.   (setvar "clayer" "AM_7")   ;;設置圖層
   
10.   (setq pa(polar cen 0 dd))
    
11.   (setq pb(polar cen (* pi 0.5) dd))
    
12.   (setq pc(polar cen (* pi 1.0) dd))
    
13.   (setq pd(polar cen (* pi 1.5) dd))
    
14. 
    
15.   (command"line" pa pc "")
    
16.   (redraw (entlast) 3)
    
17.   (command"line" pb pd "")
    
18.   (redraw (entlast) 3)
    
19. 
    
20.   (setvar "clayer" lay)    ;;恢復鎖點
    
21.   (setvar "osmode" os)     ;;恢復圖層
    
22. (prin1)
    
23. )

(defun C:cr()<br />   (setq os (getvar "osmode"));;取得當前鎖點模式<br />   (setq lay(getvar "clayer"))<br />   (setq cen(getpoint"\n中心點"))<br />   (setq rr(getdist"\n半徑" cen))<br />   (setq dd(* rr 1.2))<br />   (setvar "osmode" 0)        ;;關閉鎖點<br />   (setvar "clayer" "AM_7")   ;;設置圖層<br />   (setq pa(polar cen 0 dd))<br />   (setq pb(polar cen (* pi 0.5) dd))<br />   (setq pc(polar cen (* pi 1.0) dd))<br />   (setq pd(polar cen (* pi 1.5) dd))<br /> <br />   (command"line" pa pc "")<br />   (redraw (entlast) 3)<br />   (command"line" pb pd "")<br />   (redraw (entlast) 3)<br /> <br />   (setvar "clayer" lay)    ;;恢復鎖點<br />   (setvar "osmode" os)     ;;恢復圖層<br /> (prin1)<br /> )

左邊畫中心線，是mechanical版本特有的，他在畫中心線的時候會顯示出"十字的虛線"
但是我自己畫的沒有。剛剛照大大的方式修改了一下程式碼，效果也是沒出來，反而是中心線的樣中變得有點奇怪

Andyhon

您若要模仿 mechanical 的效果
建議您 研習 Grread 函數 ....

lead009

恩，謝謝。
有類似的範例可以參考嗎。
剛剛翻了一下手邊的書，怎麼覺得這個函數看起來不太像可以顯示出那種"虛線"0.0

Andyhon

手邊沒現成的程式碼
到這兒試試手氣
http://www.google.com.tw/search? ... +%E6%90%9C%E5%B0%8B