17390539330 发表于 2022-11-2 21:11:52

创建直线并跟随鼠标

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

lee50310 发表于 2022-11-3 16:05:11

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

夏生生 发表于 2022-11-24 16:52:48

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

lee50310 发表于 2022-11-26 14:02:00

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

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

飞雪神光 发表于 2022-11-3 00:16:37

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

17390539330 发表于 2022-11-23 11:23:10

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

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




移动后


纵横八方 发表于 2022-11-23 11:38:17

直接构造柱 xl

17390539330 发表于 2022-11-23 11:45:59

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

不方便使用

lcl2094 发表于 2022-11-24 15:22:45

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

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

guosheyang 发表于 2022-11-24 21:12:42

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

很简洁   加上捕捉就好了！

lee50310 发表于 2022-11-25 10:30:23

本帖最后由 lee50310 于 2022-11-25 10:56 编辑

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



页: [1] 2
查看完整版本: 创建直线并跟随鼠标