(XD::POLYLine:RevertBulge)多段线弧线段翻转

Lispboy

1. (defun XD::POLYLine:RevertBulge (e pt / bulge i inx num)
   
2.   (if (= "POLYLINE" (car (xdrx_object_classname e)))
   
3.     (xdrx_polyline_convertfrom e)
   
4.   )
   
5.   (setq num (xdrx_getpropertyvalue e "numVerts"))
   
6.   (cond
   
7.     ((= (type pt) 'list)
   
8.       (if (and
   
9.       (setq inx (XD::PolyLine:NearIndex e pt))
   
10.       (setq bulge (xdrx_getpropertyvalue e "bulgeat" inx))
    
11.       (not (equal 1e-3 bulge))
    
12.     )
    
13.   (xdrx_setpropertyvalue e "BulgeAt" (list inx (- bulge)))
    
14.       )
    
15.     )
    
16.     ((= (type pt) 'int)
    
17.       (if (and
    
18.       (>= pt 0)
    
19.       (< pt num)
    
20.       (setq bulge (xdrx_getpropertyvalue e "bulgeat" inx))
    
21.       (not (equal 1e-3 bulge))
    
22.     )
    
23.   (xdrx_setpropertyvalue e "BulgeAt" (list pt (- bulge)))
    
24.       )
    
25.     )
    
26.     (t
    
27.       (setq i -1)
    
28.       (repeat num
    
29.   (if (not (equal 1e-3 (setq bulge (xdrx_getpropertyvalue e "BulgeAt"
    
30.                 (setq i
    
31.                       (1+ i)
    
32.                 )
    
33.            )
    
34.            )
    
35.      )
    
36.       )
    
37.     (xdrx_setpropertyvalue e "BulgeAt" (list i (- bulge)))
    
38.   )
    
39.       )
    
40.     )
    
41.   )
    
42. )

(defun XD::POLYLine:RevertBulge (e pt / bulge i inx num)<br />   (if (= "POLYLINE" (car (xdrx_object_classname e)))<br />     (xdrx_polyline_convertfrom e)<br />   )<br />   (setq num (xdrx_getpropertyvalue e "numVerts"))<br />   (cond<br />     ((= (type pt) 'list)<br />       (if (and<br />       (setq inx (XD::PolyLine:NearIndex e pt))<br />       (setq bulge (xdrx_getpropertyvalue e "bulgeat" inx))<br />       (not (equal 1e-3 bulge))<br />     )<br />   (xdrx_setpropertyvalue e "BulgeAt" (list inx (- bulge)))<br />       )<br />     )<br />     ((= (type pt) 'int)<br />       (if (and<br />       (>= pt 0)<br />       (< pt num)<br />       (setq bulge (xdrx_getpropertyvalue e "bulgeat" inx))<br />       (not (equal 1e-3 bulge))<br />     )<br />   (xdrx_setpropertyvalue e "BulgeAt" (list pt (- bulge)))<br />       )<br />     )<br />     (t<br />       (setq i -1)<br />       (repeat num<br />   (if (not (equal 1e-3 (setq bulge (xdrx_getpropertyvalue e "BulgeAt"<br />                 (setq i<br />                       (1+ i)<br />                 )<br />            )<br />            )<br />      )<br />       )<br />     (xdrx_setpropertyvalue e "BulgeAt" (list i (- bulge)))<br />   )<br />       )<br />     )<br />   )<br /> )

守仁格竹GM

回的人少，我来小顶一下