[LISP函数]：测试“相同”Pline

eachy

包括旋转、反向或者镜像的Pline，层、颜色等信息可以在 getinfo 中自行添加。

2. 
   
3. (defun xdl-pl-sam (e1 e2 / getinfo getdis getdis_to_sp)
   
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.   (defun getdis_to_sp (e / sp m n dl)
    
24.     (setq sp (vlax-curve-getstartpoint e)
    
25.           m  1.
    
26.           n  (fix (vlax-curve-getendparam e))
    
27.     )
    
28.     (repeat n
    
29.       (setq dl (cons (distance (vlax-curve-getpointatparam e m) sp) dl)
    
30.             m  (1+ m)
    
31.       )
    
32.     )
    
33.     dl
    
34.   )
    
35.   (if (and (= (vlax-curve-getendparam e1) (vlax-curve-getendparam e2))
    
36.            (= (vlax-curve-isclosed e1) (vlax-curve-isclosed e2))
    
37.       )
    
38.     (and (equal (getinfo (entget e1)) (getinfo (entget e2)) 1e-10)
    
39.          (or (equal (getdis e1) (getdis e2) 1e-7)
    
40.              (equal (getdis e1) (reverse (getdis e2)) 1e-7)
    
41.          )
    
42.          (equal (getdis_to_sp e1) (getdis_to_sp e2) 1e-7)
    
43.     )
    
44.   )
    
45. )

<br /> (defun xdl-pl-sam (e1 e2 / getinfo getdis getdis_to_sp)<br />   (defun getinfo (lst)<br />     (vl-remove-if-not<br />       (function<br />         (lambda (x) (vl-position (car x) '(39 40 41 42 43)))<br />       )<br />       lst<br />     )<br />   )<br />   (defun getdis        (e / n m dl)<br />     (setq n (fix (vlax-curve-getendparam e))<br />           m 0.<br />     )<br />     (repeat n<br />       (setq dl (cons (vlax-curve-getdistatparam e m) dl)<br />             m  (1+ m)<br />       )<br />     )<br />     dl<br />   )<br />   (defun getdis_to_sp (e / sp m n dl)<br />     (setq sp (vlax-curve-getstartpoint e)<br />           m  1.<br />           n  (fix (vlax-curve-getendparam e))<br />     )<br />     (repeat n<br />       (setq dl (cons (distance (vlax-curve-getpointatparam e m) sp) dl)<br />             m  (1+ m)<br />       )<br />     )<br />     dl<br />   )<br />   (if (and (= (vlax-curve-getendparam e1) (vlax-curve-getendparam e2))<br />            (= (vlax-curve-isclosed e1) (vlax-curve-isclosed e2))<br />       )<br />     (and (equal (getinfo (entget e1)) (getinfo (entget e2)) 1e-10)<br />          (or (equal (getdis e1) (getdis e2) 1e-7)<br />              (equal (getdis e1) (reverse (getdis e2)) 1e-7)<br />          )<br />          (equal (getdis_to_sp e1) (getdis_to_sp e2) 1e-7)<br />     )<br />   )<br /> )

eachy

“相同” Arc

2. 
   
3. (defun xdl-arc-sam (a1 a2 / l1 l2)
   
4.   (setq        l1 (entget a1)
   
5.         l2 (entget a2)
   
6.   )
   
7.   (and (equal (assoc 40 l1) (assoc 40 l2) 1e-10)
   
8.        (equal (vlax-curve-getdistatparam a1 (vlax-curve-getendparam a1))
   
9.               (vlax-curve-getdistatparam a2 (vlax-curve-getendparam a2))
   
10.               1e-3
    
11.        )
    
12.   )
    
13. )

<br /> (defun xdl-arc-sam (a1 a2 / l1 l2)<br />   (setq        l1 (entget a1)<br />         l2 (entget a2)<br />   )<br />   (and (equal (assoc 40 l1) (assoc 40 l2) 1e-10)<br />        (equal (vlax-curve-getdistatparam a1 (vlax-curve-getendparam a1))<br />               (vlax-curve-getdistatparam a2 (vlax-curve-getendparam a2))<br />               1e-3<br />        )<br />   )<br /> )

狂刀

；对pline，对镜像的情况判断还有点问题。


;;arc判断，还可这样

2. 
   
3. (defun x-samarc(e1 e2)
   
4.   (and
   
5.     (equal(vlax-curve-getarea e1)(vlax-curve-getarea e2)1e-4)
   
6.     (equal(assoc 40(entget e1))(assoc 40(entget e2))1e-4)
   
7.   )
   
8. )
   

<br /> (defun x-samarc(e1 e2)<br />   (and<br />     (equal(vlax-curve-getarea e1)(vlax-curve-getarea e2)1e-4)<br />     (equal(assoc 40(entget e1))(assoc 40(entget e2))1e-4)<br />   )<br /> )<br />

eachy

测试中发现 Pline 镜像后，精度的取值是一个函数是否成功的关键

zml84

旋转、缩放、镜像均可。（容差）
http://zml84.blog.sohu.com/77983032.html