如何求得圈住所选的数个点的最小的一个圆

torcky

各位高手能否给个算法，有源码更好！

BDYCAD

(setq i 0 ms nil ss (ssget '((0 . "CIRCLE"))))
(IF (>(SSLENGTH SS) 1)
(progn
(repeat (SSLENGTH SS)
(setq is (ssname ss i)
ms (append ms (list(list is (vla-get-radius (vlax-ename->vla-object is )))))
i (1+ i)))
(setq Samll-Circle (caar (vl-sort ms (function (lambda (e1 e2)(< (cadr e1) (cadr e2))))))))
(setq Samll-Circle (ssname ss 0)))

龙龙仔

2. (defun TTT (/ SS I RAD MINRAD SMALL-CIRCLE)
3.    (if (setq SS
4.            (ssget '((0 . "CIRCLE")))
5.            )
6.        (progn
7.            (setq I 0
8.          MINRAD 1e99
9.            )
10.            (repeat (sslength SS)
11.   (if (< (setq RAD (vla-get-radius
12.            (vlax-ename->vla-object (ssname SS I))
13.        )
14.                )
15.                MINRAD
16.          )
17.      (setq  SMALL-CIRCLE
18.      (ssname SS I)
19.     MINRAD RAD
20.      )
21.   )
22.   (setq I (1+ I))
23.            )
24.        )
25.    )
26.    SMALL-CIRCLE
27. )

(defun TTT (/ SS I RAD MINRAD SMALL-CIRCLE)    (if (setq SS            (ssget '((0 . "CIRCLE")))            )        (progn            (setq I 0          MINRAD 1e99            )            (repeat (sslength SS)   (if (< (setq RAD (vla-get-radius            (vlax-ename->vla-object (ssname SS I))        )                )                MINRAD          )      (setq  SMALL-CIRCLE      (ssname SS I)     MINRAD RAD      )   )   (setq I (1+ I))            )        )    )    SMALL-CIRCLE )

BDYCAD

哗三楼所运用的判断式很巧!!　借鉴．


默花花一朵　，　呵呵

torcky

我想可能是我没有将编程意图说清楚，是这样的：


                 已经存在很多个点，我选择到他们后，程序将画出能包围已选点中半径最小的那个圆（此圆在程序运行前不存在）。


        而不是得到选集中半径最小的圆





但在此依然要感谢两位斑竹的关注！