[已解决]同心圆、弧判断

hawnn

我在写一个画中心线的命令,现在有个问题,我用如下函数获取所有圆和圆弧的

(setq cobj (ssget '((-4 . "<OR") (0 . "CIRCLE") (0 . "ARC") (-4 . "OR>"))))

那么请问大家,如果存在同心圆或者圆弧,怎么忽略掉其中比较小的圆或者弧,直接加大的选择集呢?

因为螺丝过孔经常是两个同心圆...所以,中心线画重了

zml84

顾名思义，比较圆心。

Andyhon

3. (defun dxg (code ele)
4.    (cdr (assoc code (entget ele)))
5. )
6. ;; (setq cobj (ssget "X" '((0 . "CIRCLE,ARC"))))
7. ;; 单试同一圆心选择集
8. (setq cobj (ssget '((0 . "CIRCLE,ARC"))))
9. (cond
10. ((< (setq nn (sslength cobj)) 2))
11. (T
12.   (setq ee (ssname cobj (1- nn))
13.        Rad (dxg 40 ee)
14.         nn (1- (1- nn))
15.   )
16.   (while (setq e1 (ssname cobj nn))
17.     (setq Rad1 (dxg 40 e1)
18.             nn (1- nn)
19.     )
20.     (cond
21.      ((> Rad1 Rad)
22.       (ssdel ee cobj)
23.       (setq ee  e1
24.            Rad  Rad1
25.      ))
26.      (T (ssdel e1 cobj))
27. ))) )

(defun dxg (code ele)    (cdr (assoc code (entget ele))) ) ;; (setq cobj (ssget "X" '((0 . "CIRCLE,ARC")))) ;; 单试同一圆心选择集 (setq cobj (ssget '((0 . "CIRCLE,ARC")))) (cond ((< (setq nn (sslength cobj)) 2)) (T   (setq ee (ssname cobj (1- nn))        Rad (dxg 40 ee)         nn (1- (1- nn))   )   (while (setq e1 (ssname cobj nn))     (setq Rad1 (dxg 40 e1)             nn (1- nn)     )     (cond      ((> Rad1 Rad)       (ssdel ee cobj)       (setq ee  e1            Rad  Rad1      ))      (T (ssdel e1 cobj)) ))) )

===>cobj (nn=1 / max Rad)

hawnn

谢谢Andyhon

不过现在又有个问题,只能对一个对象操作了?

我框选N个圆,只能画出一个

ljttjl

解决思路：提取所有圆和圆弧的圆心坐标后，将其组成表，然后消除相同坐标后组成新表，再进行其它操作。

laorenhao999

ljttjl 发表于 2009-2-21 19:50
解决思路：提取所有圆和圆弧的圆心坐标后，将其组成表，然后消除相同坐标后组成新表，再进行其它操作。

好思路！赞一个！