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

south

我也来一个

你有种再说一遍

没有实现自动分堆,再回去练练

依然小小鸟

south 发表于 2025-6-5 19:55
我也来一个

厉害了

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 />

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 /> )