最小圆心距，请高手加最小间距圆变色

夏生生

写了个圆心距的程序，最小距离可求出了，但判断不出是哪两个间距最小，或人为定最小距离，将小于该距离的圆标示出来。请高手加最小间距圆变色，谢谢

2. ;;;最小圆心距，by x_s_s_1@163.com
   
3. (defun c:zxjj ( / ss n i en_list center_circle_list dist_list min_dist)
   
4.   (setq ss (ssget '((0 . "circle"))))
   
5.   (setq n (sslength ss))
   
6.   (setq i 0)
   
7.   (setq en_list nil)
   
8.   (while (< i n)
   
9.     (setq en_list (cons (ssname ss i) en_list))
   
10.     (setq i (1+ i))
    
11.   ) ;_ 结束while
    
12.   (setq        center_circle_list
    
13.          (mapcar
    
14.            '(lambda (en) (cdr (assoc 10 (entget en))))
    
15.            en_list
    
16.          ) ;_ 结束mapcar
    
17.   ) ;_ 结束setq
    
18.   (setq dist_list nil)
    
19.   (while (< 1 (length center_circle_list))
    
20.     (setq dist_list
    
21.            (append
    
22.              (mapcar
    
23.                '(lambda (x) (distance (car center_circle_list) x))
    
24.                (cdr center_circle_list)
    
25.              ) ;_ 结束mapcar
    
26.              dist_list
    
27.            ) ;_ 结束append
    
28.     ) ;_ 结束setq
    
29.     (setq center_circle_list (cdr center_circle_list))
    
30.   ) ;_ 结束while
    
31.   (princ (setq min_dist (apply 'min dist_list)))
    
32. ) ;_ 结束defun
    

;;;最小圆心距，by x_s_s_1@163.com<br /> (defun c:zxjj ( / ss n i en_list center_circle_list dist_list min_dist)<br />   (setq ss (ssget '((0 . "circle"))))<br />   (setq n (sslength ss))<br />   (setq i 0)<br />   (setq en_list nil)<br />   (while (< i n)<br />     (setq en_list (cons (ssname ss i) en_list))<br />     (setq i (1+ i))<br />   ) ;_ 结束while<br />   (setq        center_circle_list<br />          (mapcar<br />            '(lambda (en) (cdr (assoc 10 (entget en))))<br />            en_list<br />          ) ;_ 结束mapcar<br />   ) ;_ 结束setq<br />   (setq dist_list nil)<br />   (while (< 1 (length center_circle_list))<br />     (setq dist_list<br />            (append<br />              (mapcar<br />                '(lambda (x) (distance (car center_circle_list) x))<br />                (cdr center_circle_list)<br />              ) ;_ 结束mapcar<br />              dist_list<br />            ) ;_ 结束append<br />     ) ;_ 结束setq<br />     (setq center_circle_list (cdr center_circle_list))<br />   ) ;_ 结束while<br />   (princ (setq min_dist (apply 'min dist_list)))<br /> ) ;_ 结束defun<br />

Andyhon

若在圆心位加个 POINT 处理会省事些

nzl1116

在最后一个循环里加两个变量，一个保存最小的距离，一个保存这个距离的两个圆心，一旦循环发现有更小的距离，就更新这两个变量

xyp1964

2. 
   
3. ;; 最小圆心距 伪源码 需要e派工具箱(XCAD)的支持
   
4. (defun c:tt ()
   
5.   (setq ss  (ssget '((0 . "circle")))
   
6. lst (list (setq s1 (ssname ss 0))
   
7.     (setq s2 (ssname ss 1))
   
8.     (distance (xyp-get-dxf 10 s1) (xyp-get-dxf 10 s2))
   
9.      )
   
10. i   -1
    
11.   )
    
12.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
13.     (setq j i)
    
14.     (while (setq s2 (ssname ss (setq j (1+ j))))
    
15.       (setq leng (distance (xyp-get-dxf 10 s1) (xyp-get-dxf 10 s2))
    
16.      lst  (if (< leng (caddr lst))
    
17.      (list s1 s2 leng)
    
18.      lst
    
19.    )
    
20.       )
    
21.     )
    
22.   )
    
23.   (xyp-line (xyp-get-dxf 10 (car lst))
    
24.      (xyp-get-dxf 10 (cadr lst))
    
25.   )
    
26. (princ)
    
27. )
    

<br /> ;; 最小圆心距 伪源码 需要e派工具箱(XCAD)的支持<br /> (defun c:tt ()<br />   (setq ss  (ssget '((0 . "circle")))<br /> lst (list (setq s1 (ssname ss 0))<br />     (setq s2 (ssname ss 1))<br />     (distance (xyp-get-dxf 10 s1) (xyp-get-dxf 10 s2))<br />      )<br /> i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq j i)<br />     (while (setq s2 (ssname ss (setq j (1+ j))))<br />       (setq leng (distance (xyp-get-dxf 10 s1) (xyp-get-dxf 10 s2))<br />      lst  (if (< leng (caddr lst))<br />      (list s1 s2 leng)<br />      lst<br />    )<br />       )<br />     )<br />   )<br />   (xyp-line (xyp-get-dxf 10 (car lst))<br />      (xyp-get-dxf 10 (cadr lst))<br />   )<br /> (princ)<br /> )<br />

wutao8282

xyp1964 发表于 2012-5-10 22:17

老师您好！能不能间距低于一定数值批量全部标出来