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

lead009

嗯嗯，具體該怎麼寫才能有這種效果呢
大大能不能用上方的程式來加入這兩個函數，示範一下

之前也有大大提到這兩個函數，但是自己試了很久，還是沒有成功

lead009

@@沒發現到第四頁了，還多留了一次=.=

highflybir

在前面的帖子我已经提到了grdraw,
如果楼主非得要动态的话，可以这样。。。。

1. (defun c:tt (/ CONT DYNP MOD RET UN X0 X1 X2 Y0 Y1 Y2)
   
2.   (setq cont T)
   
3.   (while (and cont (SETQ dynP (GRREAD T 15 2)))
   
4.     (setq Ret (cadr dynP))
   
5.     (setq mod (car dynP))
   
6.     (cond
   
7.       ((= mod 3)                        ;如果点取
   
8.        (princ "\n你点取的坐标是: ")
   
9.        (princ ret)                        ;返回点
   
10.        (princ ",执行动作...\n")                ;执行你自己的动作
    
11.       )
    
12.       ((= mod 5)                        ;拖动模式
    
13.        (command ".redraw")
    
14.        (setq un (getvar "viewsize"))
    
15.        (setq un (/ un 10))
    
16.        (setq x0 (car ret))
    
17.        (setq y0 (cadr ret))
    
18.        (setq x1 (+ x0 un))
    
19.        (setq x2 (- x0 un))
    
20.        (setq y1 (+ y0 un))
    
21.        (setq y2 (- y0 un))
    
22.        (grdraw (list x1 y0) (list x2 y0) -1 1)
    
23.        (grdraw (list x0 y1) (list x0 y2) -1 1)
    
24.        (setq cont T)
    
25.       )
    
26.       ((= mod 2)                        ;键盘输入
    
27.        (princ (chr ret))
    
28.       )
    
29.       (t                                ;其他情况则退出程序
    
30.        (setq cont nil)
    
31.       )
    
32.     )
    
33.   )
    
34.   (command ".redraw")
    
35.   (princ)
    
36. )

(defun c:tt (/ CONT DYNP MOD RET UN X0 X1 X2 Y0 Y1 Y2)<br />   (setq cont T)<br />   (while (and cont (SETQ dynP (GRREAD T 15 2)))<br />     (setq Ret (cadr dynP))<br />     (setq mod (car dynP))<br />     (cond<br />       ((= mod 3)                        ;如果点取<br />        (princ "\n你点取的坐标是: ")<br />        (princ ret)                        ;返回点 <br />        (princ ",执行动作...\n")                ;执行你自己的动作<br />       )<br />       ((= mod 5)                        ;拖动模式<br />        (command ".redraw")<br />        (setq un (getvar "viewsize"))<br />        (setq un (/ un 10))<br />        (setq x0 (car ret))<br />        (setq y0 (cadr ret))<br />        (setq x1 (+ x0 un))<br />        (setq x2 (- x0 un))<br />        (setq y1 (+ y0 un))<br />        (setq y2 (- y0 un))<br />        (grdraw (list x1 y0) (list x2 y0) -1 1)<br />        (grdraw (list x0 y1) (list x0 y2) -1 1)<br />        (setq cont T)<br />       )<br />       ((= mod 2)                        ;键盘输入<br />        (princ (chr ret))<br />       )<br />       (t                                ;其他情况则退出程序<br />        (setq cont nil)<br />       )<br />     )<br />   )<br />   (command ".redraw")<br />   (princ)<br /> )

不过grread不支持捕捉。需要捕捉的话，必须另写模拟函数，或者可以搜搜dyndraw

highflybir

回复 lead009 的帖子

上面的程序用于测试。dyndraw 插件下载在这儿

highflybir

http://bbs.mjtd.com/forum.php?mo ... read%2B%B2%B6%D7%BD