几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量

几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 (http://www.dimcax.com/hust/index.php)
-   ObjectARX(AutoLISP) (http://www.dimcax.com/hust/forumdisplay.php?f=178)
-   -   [求助]同心圆、弧判断 (http://www.dimcax.com/hust/showthread.php?t=11033)

yang686526 2009-04-26 12:22 PM

[求助]同心圆、弧判断
 
[求助]同心圆、弧判断
www.dimcax.com
[求助]同心圆、弧判断
我在写一个画中心线的命令,现在有个问题,我用如下函数获取所有圆和圆弧的
(setq cobj (ssget '((-4 . "<or") (0 . "circle") (0 . "arc") (-4 . "or>"))))
那么请问大家,如果存在同心圆或者圆弧,怎么忽略掉其中比较小的圆或者弧,直接加大的选择集呢?
因为螺丝过孔经常是两个同心圆...所以,中心线画重了
d
顾名思义,比较圆心。
好好学习cad,天天向上搞设计。
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
( dxg (code ele)
( ( code ( ele)))
)
;; ( cobj ( "x" '((0 . "circle,arc"))))
;; 单试同一圆心选择集
( cobj ( '((0 . "circle,arc"))))
(
(( ( nn ( cobj)) 2))
(
( ee ( cobj (1- nn))
rad (dxg 40 ee)
nn (1- (1- nn))
)
( ( e1 ( cobj nn))
( rad1 (dxg 40 e1)
nn (1- nn)
)
(
(( rad1 rad)
( ee cobj)
( ee e1
rad rad1
))
( ( e1 cobj))
))) )
===>cobj (nn=1 / max rad)
d
谢谢andyhon
不过现在又有个问题,只能对一个对象操作了?
我框选n个圆,只能画出一个
d
解决思路:提取所有圆和圆弧的圆心坐标后,将其组成表,然后消除相同坐标后组成新表,再进行其它操作。


所有的时间均为北京时间。 现在的时间是 02:44 AM.