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

依然小小鸟

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

希望有大神能改进 支持框选所有圆 批量将圆心 连线起来
(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)
)

delete_007

将距离最近的圆心用绿色直线连接。

2. 
   
3. (defun c:CircleLink (/ ss i j lst ent pt minDist minIndex line)
   
4.   (vl-load-com)
   
5.   (princ "\n请框选圆对象: ")
   
6.   (if (setq ss (ssget '((0 . "CIRCLE"))))
   
7.     (progn
   
8.       ; 收集圆心坐标
   
9.       (setq i 0 lst '())
   
10.       (repeat (sslength ss)
    
11.         (setq ent (entget (ssname ss i)))
    
12.         (setq lst (cons (cdr (assoc 10 ent)) lst))
    
13.         (setq i (1+ i))
    
14.       )
    
15.       
    
16.       ; 计算并连接最近圆心
    
17.       (setq i 0)
    
18.       (while (< i (length lst))
    
19.         (setq minDist 1e308 minIndex -1 pt (nth i lst))
    
20.         
    
21.         ; 查找最近圆心
    
22.         (setq j 0)
    
23.         (while (< j (length lst))
    
24.           (if (/= i j)
    
25.             (progn
    
26.               (setq dist (distance pt (nth j lst)))
    
27.               (if (< dist minDist)
    
28.                 (setq minDist dist minIndex j)
    
29.               )
    
30.             )
    
31.           )
    
32.           (setq j (1+ j))
    
33.         )
    
34.         
    
35.         ; 绘制连接线
    
36.         (if (>= minIndex 0)
    
37.           (entmake (list '(0 . "LINE")
    
38.                         (cons 10 pt)
    
39.                         (cons 11 (nth minIndex lst))
    
40.                         '(62 . 3))) ; 绿色连线
    
41.         )
    
42.         (setq i (1+ i))
    
43.       )
    
44.     )
    
45.     (princ "\n未选择到圆对象！")
    
46.   )
    
47.   (princ)
    
48. )
    

<br /> (defun c:CircleLink (/ ss i j lst ent pt minDist minIndex line)<br />   (vl-load-com)<br />   (princ "\n请框选圆对象: ")<br />   (if (setq ss (ssget '((0 . "CIRCLE"))))<br />     (progn<br />       ; 收集圆心坐标<br />       (setq i 0 lst '())<br />       (repeat (sslength ss)<br />         (setq ent (entget (ssname ss i)))<br />         (setq lst (cons (cdr (assoc 10 ent)) lst))<br />         (setq i (1+ i))<br />       )<br />       <br />       ; 计算并连接最近圆心<br />       (setq i 0)<br />       (while (< i (length lst))<br />         (setq minDist 1e308 minIndex -1 pt (nth i lst))<br />         <br />         ; 查找最近圆心<br />         (setq j 0)<br />         (while (< j (length lst))<br />           (if (/= i j)<br />             (progn<br />               (setq dist (distance pt (nth j lst)))<br />               (if (< dist minDist)<br />                 (setq minDist dist minIndex j)<br />               )<br />             )<br />           )<br />           (setq j (1+ j))<br />         )<br />         <br />         ; 绘制连接线<br />         (if (>= minIndex 0)<br />           (entmake (list '(0 . "LINE")<br />                         (cons 10 pt)<br />                         (cons 11 (nth minIndex lst))<br />                         '(62 . 3))) ; 绿色连线<br />         )<br />         (setq i (1+ i))<br />       )<br />     )<br />     (princ "\n未选择到圆对象！")<br />   )<br />   (princ)<br /> )<br />

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)
) 这样吗

xyp1964

1. (defun c:tt ()
   
2.   "圆心最短路径连线"
   
3.   (if (setq ss (ssget '((0 . "ci*"))))
   
4.     (setq  ptn (mapcar '(lambda (x) (xyp-DXF 10 x)) (xyp-Ss2List ss))
   
5.           s1  (xyp-Pline (xyp-PtnShortestPath ptn) nil)
   
6.     )
   
7.   )
   
8.   (princ)
   
9. )

(defun c:tt ()<br />   "圆心最短路径连线"<br />   (if (setq ss (ssget '((0 . "ci*"))))<br />     (setq  ptn (mapcar '(lambda (x) (xyp-DXF 10 x)) (xyp-Ss2List ss))<br />           s1  (xyp-Pline (xyp-PtnShortestPath ptn) nil)<br />     )<br />   )<br />   (princ)<br /> )

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

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

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  <--可自定
...

依然小小鸟

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吗，可以发下我吗，