Polyline:ReClose清理假闭合Pline

st788796

1. (defun Polyline:ReClose (e / nums bulge)
   
2.   (and (= (xdrx_getpropertyvalue e "IsA") "AcDbPolyline")
   
3.        (xdrx_polyline_compress e)
   
4.        (not (xdrx_curve_isclosed e))
   
5.        (equal (xdrx_curve_getstartpoint e)
   
6.               (xdrx_curve_getendpoint e)
   
7.               1e-8
   
8.        )
   
9.        (setq nums (xdrx_polyline_numverts e)
   
10.              bulge (xdrx_polyline_getbulgeat e (- nums 2))
    
11.              )
    
12.        (xdrx_polyline_removevertexat e (1- nums))
    
13.        (xdrx_polyline_setbulgeat e (- nums 2) bulge)
    
14.        (xdrx_setpropertyvalue e "IsClosed" t)
    
15.   )
    
16. )
    

(defun Polyline:ReClose (e / nums bulge)<br />   (and (= (xdrx_getpropertyvalue e "IsA") "AcDbPolyline")<br />        (xdrx_polyline_compress e)<br />        (not (xdrx_curve_isclosed e))<br />        (equal (xdrx_curve_getstartpoint e)<br />               (xdrx_curve_getendpoint e)<br />               1e-8<br />        )<br />        (setq nums (xdrx_polyline_numverts e)<br />              bulge (xdrx_polyline_getbulgeat e (- nums 2))<br />              )<br />        (xdrx_polyline_removevertexat e (1- nums))<br />        (xdrx_polyline_setbulgeat e (- nums 2) bulge)<br />        (xdrx_setpropertyvalue e "IsClosed" t)<br />   )<br /> )<br />

sinommw

有什么实际意义？

zou_ys888

意义是有，用LISP做一个也容易