创建直线并跟随鼠标

17390539330

创建一条直线并跟随鼠标，还需要有捕捉功能，怎么实现呢？

lee50310

這裡有
http://bbs.mjtd.com/thread-91191-1-1.html

夏生生

无捕捉

1. (defun c:tt (/ en gr loop pt)
   
2.   (setq loop t)
   
3.   (while loop
   
4.     (setq gr (grread t 15 2)
   
5.     pt (cadr gr)
   
6.     gr (car gr)
   
7.     )
   
8.     (cond ((= 5 gr)
   
9.      (if en
   
10.        (entdel en)
    
11.        )
    
12.      (setq en (entmakex (list '(0 . "line")
    
13.             (cons 10 (mapcar '+ pt '(0 1000)))
    
14.             (cons 11 (mapcar '- pt '(0 1000)))
    
15.             )
    
16.             )
    
17.      )
    
18.      )
    
19.     ((= 3 gr)(setq loop nil))
    
20.     )
    
21.     )
    
22.   )

(defun c:tt (/ en gr loop pt)<br />   (setq loop t)<br />   (while loop<br />     (setq gr (grread t 15 2)<br />     pt (cadr gr)<br />     gr (car gr)<br />     )<br />     (cond ((= 5 gr)<br />      (if en<br />        (entdel en)<br />        )<br />      (setq en (entmakex (list '(0 . "line")<br />             (cons 10 (mapcar '+ pt '(0 1000)))<br />             (cons 11 (mapcar '- pt '(0 1000)))<br />             )<br />             )<br />      )<br />      )<br />     ((= 3 gr)(setq loop nil))<br />     )<br />     )<br />   )

lee50310

17390539330 发表于 2022-11-26 11:59
大佬，”(if (entlast)(entdel (entlast))) ;;抹除上次在游标处的线“    这一句代码会把画的其他线删掉 ...

是的
因為滑鼠移動線跟隨
其實 就是 畫線  擦除 舊線
少了這個步驟  ,你移動滑鼠會在每個軌跡上畫上許多條線

飞雪神光

带捕捉的grread  很久前就有大佬发过了

17390539330

lee50310 发表于 2022-11-3 16:05
這裡有
http://bbs.mjtd.com/thread-91191-1-1.html

先一步一步来，先不管捕捉，创建一条线跟随鼠标，我弄成这样了




移动后

纵横八方

直接构造柱 xl

17390539330

纵横八方 发表于 2022-11-23 11:38
直接构造柱 xl

不方便使用

lcl2094

lee50310 发表于 2022-11-3 16:05
這裡有
http://bbs.mjtd.com/thread-91191-1-1.html

CAD有这个现成的功能吧？或者是我没理解含义？

guosheyang

夏生生 发表于 2022-11-24 16:52
无捕捉

很简洁   加上捕捉就好了！

lee50310

範例: 固定直線滑鼠跟隨  線長暫設:350 ,顏色:6 ,垂直線
執行指令:bb1