选择集（圆），判断所有圆…同心，提示OK；若其中有不同心圆，提示NG

刘炎华

start4444

(defun c:tt5 (/ en i r0 ss txt)
(setq ss (ssget '((0 . "circle"))))
(setq i -1 txt "同心")
        (while (setq en (ssname ss (setq i (1+ i))))
                (if (not r0) (setq r0 (cdr (assoc 10 (entget en)))))
                (if (equal r0 (cdr (assoc 10 (entget en))) 1e-6)() (setq txt "不同心"))
        )
(alert txt)         
(princ)       
)

llsheng_73

同心是否包含相同圆心相同半径
不同心圆是否指大圆包小圆为前提

刘炎华

start4444 发表于 2022-7-14 11:26
(defun c:tt5 (/ en i r0 ss txt)
(setq ss (ssget '((0 . "circle"))))
(setq i -1 txt "同心")

大师，谢谢！

刘炎华

llsheng_73 发表于 2022-7-14 10:33
同心是否包含相同圆心相同半径
不同心圆是否指大圆包小圆为前提

两个圆间隙很小时，直接看不好判断是否同心时用到

SHOUXI

个人理解，框选后看属性栏，同心则显示坐标！

戏男

不错，学习了

戏男

如果不同心的几个圆能改颜色显示，就能区分出是哪几个圆不同心了，假如有五个六圆在一起同心，可以查出哪几个不同心