判断 ARC Circle PLINe "相等"

iLisp

两个通用函数

2. 
   
3.   (defun _dxf (lst l)
   
4.     (mapcar 'cdr
   
5.             (if        (eq (type l) 'INT)
   
6.               (vl-remove-if '(lambda (x) (/= (car x) l)) lst)
   
7.               (vl-remove-if '(lambda (x) (not (member (car x) l))) lst)
   
8.             )
   
9.     )
   
10.   )
    
11.   (defun _equal        (l1 l2)
    
12.     (not (vl-some '(lambda (a b)
    
13.                      (not (equal a b 1e-9))
    
14.                    )
    
15.                   l1
    
16.                   l2
    
17.          )
    
18.     )
    
19.   )

<br />   (defun _dxf (lst l)<br />     (mapcar 'cdr<br />             (if        (eq (type l) 'INT)<br />               (vl-remove-if '(lambda (x) (/= (car x) l)) lst)<br />               (vl-remove-if '(lambda (x) (not (member (car x) l))) lst)<br />             )<br />     )<br />   )<br />   (defun _equal        (l1 l2)<br />     (not (vl-some '(lambda (a b)<br />                      (not (equal a b 1e-9))<br />                    )<br />                   l1<br />                   l2<br />          )<br />     )<br />   )

ARC CIRCLE ELLIPSE PLINE

2. 
   
3. (defun arc_eq        (a1 a2 / e1 e2)
   
4.     (and (setq e1 (entget a1))
   
5.          (setq e2 (entget a2))
   
6.          (_equal (_dxf e1 '(40 50 51)) (_dxf e2 '(40 50 51)))  
   
7.     )
   
8.   )
   
9.   (defun circle_eq (c1 c2 /)
   
10.     (equal (cdr (assoc 40 (entget c1))) (cdr (assoc 40 (entget c2)))
    
11.            1e-6
    
12.     )
    
13.   )
    
14.   (defun pline_eq (pl1 pl2 / e1 e2 ptl)
    
15.     (and (eq (vlax-curve-isclosed pl1) (vlax-curve-isclosed pl2))
    
16.          (eq (vlax-curve-getendparam pl1)
    
17.              (vlax-curve-getendparam pl2)
    
18.          )
    
19.          (setq e1 (entget pl1))
    
20.          (setq e2 (entget pl2))
    
21.          (_equal (_dxf e1 '(40 41 42)) (_dxf e2 '(40 41 42)))
    
22.          (setq ptl (mapcar '(lambda (a b) (mapcar '- a b))
    
23.                            (_dxf e1 10)
    
24.                            (_dxf e2 10)
    
25.                    )
    
26.          )
    
27.          (_equal ptl ptl)
    
28.     )
    
29.   )
    
30.   (defun ellipse_eq (e1 e2)
    
31.     (_equal (_dxf (entget e1) '(11 40 41 42))
    
32.             (_dxf (entget e2) '(11 40 41 42))
    
33.     )
    
34.   )

<br /> (defun arc_eq        (a1 a2 / e1 e2)<br />     (and (setq e1 (entget a1))<br />          (setq e2 (entget a2))<br />          (_equal (_dxf e1 '(40 50 51)) (_dxf e2 '(40 50 51)))  <br />     )<br />   )<br />   (defun circle_eq (c1 c2 /)<br />     (equal (cdr (assoc 40 (entget c1))) (cdr (assoc 40 (entget c2)))<br />            1e-6<br />     )<br />   )<br />   (defun pline_eq (pl1 pl2 / e1 e2 ptl)<br />     (and (eq (vlax-curve-isclosed pl1) (vlax-curve-isclosed pl2))<br />          (eq (vlax-curve-getendparam pl1)<br />              (vlax-curve-getendparam pl2)<br />          )<br />          (setq e1 (entget pl1))<br />          (setq e2 (entget pl2))<br />          (_equal (_dxf e1 '(40 41 42)) (_dxf e2 '(40 41 42)))<br />          (setq ptl (mapcar '(lambda (a b) (mapcar '- a b))<br />                            (_dxf e1 10)<br />                            (_dxf e2 10)<br />                    )<br />          )<br />          (_equal ptl ptl)<br />     )<br />   )<br />   (defun ellipse_eq (e1 e2)<br />     (_equal (_dxf (entget e1) '(11 40 41 42))<br />             (_dxf (entget e2) '(11 40 41 42))<br />     )<br />   )

pengfei2010

仔细看了一下你的源码，应该是分开对比的，圆弧和圆弧多段线对比的是半径、起始和终止角度、线宽，圆跟圆多段线对比的是半径加线宽。。。。 。。。还有这种需求呀

xvjiex

判断ARC,CIRCLE,ELLIPSE,PLINE各自是否相等，很好的函数，感谢分享！