求改进代码 框选所有圆 圆心能够连线！

依然小小鸟

网上找了一个代码  但是这个代码只能支持挨个点选圆  不支持批量框选圆  

希望有大神能改进 支持框选所有圆 批量将圆心 连线起来
(defun c:TT (/ I E)
  (setq I 0)
  (while (setq E (entsel))
    (setq E (cdr (assoc 10 (entget (car E))))
          I (1+ I)
    )
    (if (> I 1)
      (command "_non" E)
      (command "_.LINE" "_non" E)
    )
  )
  (command "")
  (princ I)
  (princ)
)

qiushizhda

(defun c:TT (/ ss i e o c cs n)
  (setq cs nil n 0 i 0 ss (ssget '( (0 . "CIRCLE"))))
  (if ss
    (repeat (sslength ss)
      (setq e (ssname ss i) o (entget e))
      (setq c (cdr (assoc 10 o)) cs (cons c cs) n (1+ n))
      (setq i (1+ i))
    )
  )
  (if (> n 1)
    (progn
      (command "line")
      (foreach pt (reverse cs) (command pt))
      (command "")
      (prompt (strcat "\n已连接 " (itoa n) " 个圆心"))
    )
    (prompt "\n未选中圆对象")
  )
  (princ)
) 这样吗

Andyhon

Command: PEDIT
Select polyline or [Multiple]: m

Select objects: Specify opposite corner: 12 found

Select objects:

Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype gen/Undo]: j

Join Type = Extend
Enter fuzz distance or [Jointype] <0.0000>: 0.5  <--可自定
...

332398174

qiushizhda 发表于 2025-6-4 12:33
(defun c:TT (/ ss i e o c cs n)
  (setq cs nil n 0 i 0 ss (ssget '( (0 . "CIRCLE"))))
  (if ss

求大师改进，框选所有线，最近点自动连接

依然小小鸟

qiushizhda 发表于 2025-6-4 12:33
(defun c:TT (/ ss i e o c cs n)
  (setq cs nil n 0 i 0 ss (ssget '( (0 . "CIRCLE"))))
  (if ss

不是 你这个还是无法支持框选

Andyhon

框选圆
求得圆心
请问
如果是三个点时是连成两线还是三线
是四个点时是连成三线还是四线还是六线
是五个点时又如何

能上个样图吗?
Sorry!不懂您的专业诉求
纯几何想像

xtjd

嘒彼小星

多段线连接所选圆心

qiushizhda

332398174 发表于 2025-6-4 13:07
求大师改进，框选所有线，最近点自动连接

试试               

332398174

xtjd 发表于 2025-6-4 15:01

大神，你这个选颜色删除，是LSP吗，可以发下我吗，