[原创]比较两多义线图元是否相同

Ea

比较两个多义线是否“相同”，包括旋转或者镜像后的

3. (defun sampl (e1 e2 / getinfo getdis)
4.   (defun getinfo (lst)
5.     (vl-remove-if-not
6.       (function
7.     (lambda (x) (vl-position (car x) '(39 40 41 42 43)))
8.       )
9.       lst
10.     )
11.   )
12.   (defun getdis    (e / n m dl)
13.     (setq n (fix (vlax-curve-getendparam e))
14.       m 0.
15.     )
16.     (repeat n
17.       (setq dl (cons (vlax-curve-getdistatparam e m) dl)
18.         m  (1+ m)
19.       )
20.     )
21.     dl
22.   )
23.   (if (and (= (vlax-curve-getendparam e1) (vlax-curve-getendparam e2))
24.        (= (vlax-curve-isclosed e1) (vlax-curve-isclosed e2))
25.       )
26.     (and (equal (getinfo (entget e1)) (getinfo (entget e2)) 1e-10)
27.      (equal (getdis e1) (getdis e2) 1e-7)
28.     )
29.   )
30. )

(defun sampl (e1 e2 / getinfo getdis)   (defun getinfo (lst)     (vl-remove-if-not       (function     (lambda (x) (vl-position (car x) '(39 40 41 42 43)))       )       lst     )   )   (defun getdis    (e / n m dl)     (setq n (fix (vlax-curve-getendparam e))       m 0.     )     (repeat n       (setq dl (cons (vlax-curve-getdistatparam e m) dl)         m  (1+ m)       )     )     dl   )   (if (and (= (vlax-curve-getendparam e1) (vlax-curve-getendparam e2))        (= (vlax-curve-isclosed e1) (vlax-curve-isclosed e2))       )     (and (equal (getinfo (entget e1)) (getinfo (entget e2)) 1e-10)      (equal (getdis e1) (getdis e2) 1e-7)     )   ) )

gxlsin

顶