刘炎华 发表于 2022-7-14 10:14:26

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


start4444 发表于 2022-7-14 10:14:27

(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 发表于 2022-7-14 10:33:44

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

刘炎华 发表于 2022-7-15 10:17:20

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


大师，谢谢！

刘炎华 发表于 2022-7-15 10:21:14

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

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

SHOUXI 发表于 2022-10-8 17:39:40

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

戏男 发表于 2023-6-10 18:33:26

不错，学习了:handshake

戏男 发表于 2023-6-19 08:37:12

如果不同心的几个圆能改颜色显示，就能区分出是哪几个圆不同心了，假如有五个六圆在一起同心，可以查出哪几个不同心
页: [1]
查看完整版本: 选择集（圆），判断所有圆…同心，提示OK；若其中有不同心圆，提示NG