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

lead009

嗯嗯，謝謝
來翻翻看有要我要的東西

highflybird

(grdraw (getpoint) (getpoint) -1 1)

lead009

grdraw 起點 終點 顏色 [亮顯])
測試了一下，這個函數會在兩點間暫時畫上一條線藍線，跟我要的不太一樣。
。但是還是謝謝你的幫助，也多知道了一個函數

這是我測試的樣子

lead009

@@
i need help

skynoon

看了这么久 具体没明白什么意思

lead009

你看七樓的影片就知道了啊=.=

lead009

誠徵高手相助

ZZXXQQ

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

(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 />   (command "_CIRCLE" cen rr)<br />   (command"line" pa pc "")<br />   (grdraw pa pc -1 1)<br />   (command"line" pb pd "")<br />   (grdraw pb pd -1 1)<br />   (setvar "clayer" lay)    ;;恢復鎖點<br />   (setvar "osmode" os)     ;;恢復圖層<br /> (prin1)<br /> )<br />

;注意：一缩放虚线就没了。

lead009

嗯嗯，謝謝大大的幫助
如果是如下圖，左方這樣的虛線呢?
虛線會隨著滑鼠，做出動態的移動

ZZXXQQ

那就要用grread+grdraw