画直线并鼠标跟随，捕捉定点

zm880928 · 发表于 2022-11-27 15:41

老规矩,先回后下!!!!!!!

hao3ren · 发表于 2022-11-27 15:57

用到什么地方？

菜卷鱼 · 发表于 2022-11-28 08:59

不要搞得太复杂了！！！！

(defun c:tt nil
  (setq pt (getpoint "\n指定第一点:"))
  (command "_.line" pt)
  (while pt
(initget "Close Up")
(setq pt (getpoint pt "\n指定下一点或 [闭合(C)/放弃(U)]:"))
(command pt)
  )
  (command "move" (entlast) "" (getvar 'lastpoint) "pause")
  (prin1)
)

liufii · 发表于 2022-11-28 14:12

多谢分享！

guosheyang · 发表于 2022-11-28 17:22

菜卷鱼发表于 2022-11-28 08:59
不要搞得太复杂了！！！！

嗯对的也就是多了个空格简洁多了

bssurvey · 发表于 2022-11-29 08:49

谢谢分享!学习了

cghdy · 发表于 2022-11-29 09:12

不一样地设计 · 发表于 2022-11-29 11:49

谢谢分享，看看怎么实现的

l676478394 · 发表于 2022-11-29 12:58

顶楼主啦..希望楼主多发精品好帖啦.....

菜鸟初来乍到 · 发表于 2022-11-29 21:34

看看藏了啥东西

账号		自动登录	找回密码
密码			注册

[经验] 画直线并鼠标跟随，捕捉定点