(XD::Polyline:RemoveBugle)多段线弧线段转直线

Lispboy

1. (defun XD::POLYLine:RemoveBugle (e pt / 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 (setq inx (XD::PolyLine:NearIndex e pt))
   
9.   (xdrx_setpropertyvalue e "BulgeAt" (list inx 0.0))
   
10.       )
    
11.     )
    
12.     ((= (type pt) 'int)
    
13.       (if (and
    
14.       (>= pt 0)
    
15.       (< pt num)
    
16.     )
    
17.   (xdrx_setpropertyvalue e "BulgeAt" (list pt 0.0))
    
18.       )
    
19.     )
    
20.     (t
    
21.       (setq i -1)
    
22.       (repeat num
    
23.   (if (not (equal 1e-3 (xdrx_getpropertyvalue e "BulgeAt"
    
24.                 (setq i (1+ i))
    
25.            )
    
26.      )
    
27.       )
    
28.     (xdrx_setpropertyvalue e "BulgeAt" (list i 0.0))
    
29.   )
    
30.       )
    
31.     )
    
32.   )
    
33. )

(defun XD::POLYLine:RemoveBugle (e pt / 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 (setq inx (XD::PolyLine:NearIndex e pt))<br />   (xdrx_setpropertyvalue e "BulgeAt" (list inx 0.0))<br />       )<br />     )<br />     ((= (type pt) 'int)<br />       (if (and<br />       (>= pt 0)<br />       (< pt num)<br />     )<br />   (xdrx_setpropertyvalue e "BulgeAt" (list pt 0.0))<br />       )<br />     )<br />     (t<br />       (setq i -1)<br />       (repeat num<br />   (if (not (equal 1e-3 (xdrx_getpropertyvalue e "BulgeAt"<br />                 (setq i (1+ i))<br />            )<br />      )<br />       )<br />     (xdrx_setpropertyvalue e "BulgeAt" (list i 0.0))<br />   )<br />       )<br />     )<br />   )<br /> )

wzjck01

学习，学习。

wzjck01

学习，学习。

Le9988

学习，学习。