获取闭合线外一点的方法

st788796

1. ;;通用做法
   
2. (defun outpt (e / bp up)
   
3.   (if (vlax-curve-isclosed e)
   
4.     (progn
   
5.       (vla-getboundingbox (vlax-ename->vla-object e) 'bp 'up)
   
6.       (setq bp (safearray-value bp)
   
7.             up (safearray-value up)
   
8.       )
   
9.       (polar up (angle bp up) 1.)
   
10.     )
    
11.   )
    
12. )
    
13. ;;对自相交线可能有问题
    
14. (defun outpt (e / oa outl l)
    
15.   (if (vlax-curve-isclosed e)
    
16.     (progn
    
17.       (setq oa (vlax-curve-getarea e))
    
18.       (if (setq        outl (safearray-value
    
19.                        (variant-value
    
20.                          (vla-offset (vlax-ename->vla-object e) 0.01)
    
21.                        )
    
22.                      )
    
23.           )
    
24.         (progn
    
25.           (if (< (vlax-curve-getarea (car outl)) oa)
    
26.             (progn (mapcar 'vla-delete outl)
    
27.                    (setq outl (safearray-value
    
28.                                 (variant-value
    
29.                                   (vla-offset
    
30.                                     (vlax-ename->vla-object e)
    
31.                                     -0.01
    
32.                                   )
    
33.                                 )
    
34.                               )
    
35.                    )
    
36.             )
    
37.           )
    
38.           (setq p (vlax-curve-getstartpoint (car outl)))
    
39.           (mapcar 'vla-delete outl)
    
40.           p
    
41.         )
    
42.       )
    
43.     )
    
44.   )
    
45. )

;;通用做法<br /> (defun outpt (e / bp up)<br />   (if (vlax-curve-isclosed e)<br />     (progn<br />       (vla-getboundingbox (vlax-ename->vla-object e) 'bp 'up)<br />       (setq bp (safearray-value bp)<br />             up (safearray-value up)<br />       )<br />       (polar up (angle bp up) 1.)<br />     )<br />   )<br /> )<br /> ;;对自相交线可能有问题<br /> (defun outpt (e / oa outl l)<br />   (if (vlax-curve-isclosed e)<br />     (progn<br />       (setq oa (vlax-curve-getarea e))<br />       (if (setq        outl (safearray-value<br />                        (variant-value<br />                          (vla-offset (vlax-ename->vla-object e) 0.01)<br />                        )<br />                      )<br />           )<br />         (progn<br />           (if (< (vlax-curve-getarea (car outl)) oa)<br />             (progn (mapcar 'vla-delete outl)<br />                    (setq outl (safearray-value<br />                                 (variant-value<br />                                   (vla-offset<br />                                     (vlax-ename->vla-object e)<br />                                     -0.01<br />                                   )<br />                                 )<br />                               )<br />                    )<br />             )<br />           )<br />           (setq p (vlax-curve-getstartpoint (car outl)))<br />           (mapcar 'vla-delete outl)<br />           p<br />         )<br />       )<br />     )<br />   )<br /> )

xvjiex

感谢分享获取闭合线外一点的方法！