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

万事如意

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

kwok

(defun c:tt(/  p1 p2 p3 p4 pt dd )                       
    (command ".undo" "be")
(setvar 'textstyle "Standard")
  (setq p1(getpoint "\n指定点"))
  (command ".CIRCLE" "non" p1 3)
(while
  (setq p2(getpoint p1 "\n指定点")
        p3(polar p1 (angle p1 p2) 3)
        p4(polar p2 (angle p2 p1) 3)
        )
  (command ".line" "non" p3 "non" p4 "")
  (setq dd (distance p1 p2)
        pt (polar (polar p2 (angle p2 p1) (+ (* dd 0.55) 1.5)) (+ (angle p1 p2) (/ pi 1.5)) 2));字离1.5mm距90度方向
    (command ".CIRCLE" "non" p2 3)
     (command ".text" "non" pt 6 (/ (* (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)