绘制多段线自动在多段线各个端点添加直径1.5圆，删除圆内其它线段

万事如意

你好大神用Lisp语音写一个插件是绘制多段线自动在多段线各个端点添加直径1.5圆，删除圆内其它线段，和在每段多段线中间添加多段线的长度，谢谢。

kwok

(defun c:tt ( /  p1 p2 p3 p4 pt dd)                       
    (command ".undo" "be")
  (setq p1(getpoint "\n指定点"))
  (command ".CIRCLE" "non" p1 0.75)
(while
  (setq p2(getpoint p1 "\n指定点")
        p3(polar p1 (angle p1 p2) 0.75)
        p4(polar p2 (angle p2 p1) 0.75)
        )
  (command ".line" "non" p3 "non" p4 "")
  (setq dd (distance p3 p4)
        pt (polar p2 (angle p2 p1) (+ (* dd 0.5) 1.5)))
    (command ".CIRCLE" "non" p2 0.75)
     (command ".text" "non" pt 0.75 (/ (* (angle p1 p2) 180.0) pi) (rtos dd 2 2)  "")
  (setq p1 p2)
)
  (command ".undo" "e")
  (princ)
)

ssyfeng

猜可能是像这样的：

万事如意

ssyfeng 发表于 2024-1-15 15:51
猜可能是像这样的：

对就是这样可以发给我吗太谢谢你了。

hcrespo

这个很厉害啊。

万事如意

kwok 发表于 2024-1-19 14:55
(defun c:tt(/  p1 p2 p3 p4 pt dd)                       
    (command ".undo" "be")
  (setq p1(get ...

你好大神你这个代码我在CAD2024上加载完毕在CAD中运行TT怎么没有反应。

kwok

万事如意 发表于 2024-1-20 09:25
你好大神你这个代码我在CAD2024上加载完毕在CAD中运行TT怎么没有反应。

不清楚哦，我是在2024上测试可以的.

hao3ren

圆圈用遮罩不好吗，为啥要剪断

万事如意

kwok 发表于 2024-1-19 14:55
(defun c:tt ( /  p1 p2 p3 p4 pt dd)                       
    (command ".undo" "be")
  (s ...

你好大神我下载你的插件在CAD2024现在好用，我输入多段线50你在多段线线上却显示48.5，我想我输入多少数字，在多段线上就显示多少，好比我输入50在多段线上就显示50，这个50是两个圆心到圆心的距离， 圆的直径的3谢谢大神帮我修改一下。

kwok

(setq dd (distance p3 p4)改为(setq dd (distance p1 p2)