如何在圆选择集中高效的分离出同心圆

qinleilei

陨落 发表于 2016-7-19 22:21
还可以优化，可以再缩短大概一半的运行时间

怎么优化？ 大师帮忙支个招。我写的那个就是运算时间太久了，所以想屏弃掉

qinleilei

kozmosovia 发表于 2016-7-19 13:59
(Defun _Filter(ss)
(setq i -1)
(repeat (sslength ss)

返回的表就真的没有发现怎么区分同心圆的。大师麻烦你帮我看看

kozmosovia

之前的代码直接在论坛里打的。这个直接返回非同心圆的选择集

2. 
   
3. (Defun _Filter (ss / I RTN S10 SN VAL SS1)
   
4.   (setq i -1)
   
5.   (repeat (sslength ss)
   
6.     (setq sn  (ssname ss (setq i (1+ i)))
   
7.           s10 (vl-prin1-to-string (cdr (assoc 10 (entget sn))))
   
8.     )
   
9.     (if        (null (setq val (cdr (assoc s10 rtn))))
   
10.       (setq rtn (cons (list s10 sn) rtn))
    
11.       (setq rtn (subst (cons s10 (cons sn val)) (assoc s10 rtn) rtn))
    
12.     )
    
13.   )
    
14.   (setq        rtn (mapcar 'cdr rtn)
    
15.         rtn (vl-remove-if '(lambda (x) (cdr x)) rtn)
    
16.         rtn (mapcar 'car rtn)
    
17.         ss1 (ssadd)
    
18.   )
    
19.   (mapcar '(lambda (x) (ssadd x ss1)) rtn)
    
20.   ss1
    
21. )
    

<br /> (Defun _Filter (ss / I RTN S10 SN VAL SS1)<br />   (setq i -1)<br />   (repeat (sslength ss)<br />     (setq sn  (ssname ss (setq i (1+ i)))<br />           s10 (vl-prin1-to-string (cdr (assoc 10 (entget sn))))<br />     )<br />     (if        (null (setq val (cdr (assoc s10 rtn))))<br />       (setq rtn (cons (list s10 sn) rtn))<br />       (setq rtn (subst (cons s10 (cons sn val)) (assoc s10 rtn) rtn))<br />     )<br />   )<br />   (setq        rtn (mapcar 'cdr rtn)<br />         rtn (vl-remove-if '(lambda (x) (cdr x)) rtn)<br />         rtn (mapcar 'car rtn)<br />         ss1 (ssadd)<br />   )<br />   (mapcar '(lambda (x) (ssadd x ss1)) rtn)<br />   ss1<br /> )<br />

qinleilei

kozmosovia 发表于 2016-7-20 11:20
之前的代码直接在论坛里打的。这个直接返回非同心圆的选择集

这个要怎么给圆心坐标加个容差值呢？忽略Z坐标值

kozmosovia

(setq sn  (ssname ss (setq i (1+ i)))
           s10  (cdr (assoc 10 (entget sn)))
           s10  (list (car s10)(cadr s10))
           s10 (vl-prin1-to-string s10)
    )

qinleilei

kozmosovia 发表于 2016-7-20 20:56
(setq sn  (ssname ss (setq i (1+ i)))
           s10  (cdr (assoc 10 (entget sn)))
           s10  ...

你这个只是忽略了Z坐标值，并没有加容差呀
，我的意思是2个圆 坐标值在容差之内，就默认它是同心园

kozmosovia

你自己将圆心XY坐标数字转成容差需要的字符串即可。原理一样

llsheng_73

1. (defun tt(n f / e p s i l)
   
2.   (if(setq i 0 f(if f'(1 1 1)'(1 1))s(ssget'((0 . "CIrcle"))))
   
3.     (progn
   
4.       (repeat(sslength s)
   
5.         (setq e(ssname s i)
   
6.               p(mapcar'(lambda(x)(rtos x 2 n))(mapcar'*(cdr(assoc 10(entget e)))f))
   
7.               l(cons(list p e)l)i(1+ i)))
   
8.       (mapcar'(lambda(x)(if(assoc(car x)(vl-remove x l))(setq s(ssdel(cadr x)s))))l)
   
9.      s)))

(defun tt(n f / e p s i l)<br />   (if(setq i 0 f(if f'(1 1 1)'(1 1))s(ssget'((0 . "CIrcle"))))<br />     (progn<br />       (repeat(sslength s)<br />         (setq e(ssname s i)<br />               p(mapcar'(lambda(x)(rtos x 2 n))(mapcar'*(cdr(assoc 10(entget e)))f))<br />               l(cons(list p e)l)i(1+ i)))<br />       (mapcar'(lambda(x)(if(assoc(car x)(vl-remove x l))(setq s(ssdel(cadr x)s))))l)<br />      s)))

(TT 3 T);;考虑圆心高程，用3位小数限定精度
(TT 5 nil);;忽略圆心高程，用5位小数限定精度