（XD::Polyline:DivideAtSeg）多段线每段单独取等分点

newer

1. (defun XD::Polyline:DivideAtSeg (poly div / div1 g len pts segs x isge)
   
2.   (if (or
   
3.         (and
   
4.           (= (xdge::type poly) "kCompositeCrv3d")
   
5.           (setq g poly
   
6.                 isge t
   
7.           )
   
8.         )
   
9.         (setq g (xdge::constructor poly))
   
10.       )
    
11.     (progn
    
12.       (setq segs (xdge::getpropertyvalue g "getcurvelist"))
    
13.       (setq pts (apply
    
14.                   'append
    
15.                   (mapcar
    
16.                     '(lambda (x)
    
17.                        (setq div1 div)
    
18.                        (if (= (type div) 'REAL)
    
19.                          (setq len (xdge::getpropertyvalue x "length")
    
20.                                div1 (fix (/ len div))
    
21.                          )
    
22.                        )
    
23.                        (xdge::getpropertyvalue x "getsamplepoints"
    
24.                                                (1+ div1)
    
25.                        )
    
26.                      )
    
27.                     segs
    
28.                   )
    
29.                 )
    
30.       )
    
31.       (if (not isge)
    
32.         (xdge::free g)
    
33.       )
    
34.       (xdge::free segs)
    
35.     )
    
36.   )
    
37.   pts
    
38. )
    

(defun XD::Polyline:DivideAtSeg (poly div / div1 g len pts segs x isge)<br />   (if (or<br />         (and<br />           (= (xdge::type poly) "kCompositeCrv3d")<br />           (setq g poly<br />                 isge t<br />           )<br />         )<br />         (setq g (xdge::constructor poly))<br />       )<br />     (progn<br />       (setq segs (xdge::getpropertyvalue g "getcurvelist"))<br />       (setq pts (apply<br />                   'append<br />                   (mapcar<br />                     '(lambda (x)<br />                        (setq div1 div)<br />                        (if (= (type div) 'REAL)<br />                          (setq len (xdge::getpropertyvalue x "length")<br />                                div1 (fix (/ len div))<br />                          )<br />                        )<br />                        (xdge::getpropertyvalue x "getsamplepoints"<br />                                                (1+ div1)<br />                        )<br />                      )<br />                     segs<br />                   )<br />                 )<br />       )<br />       (if (not isge)<br />         (xdge::free g)<br />       )<br />       (xdge::free segs)<br />     )<br />   )<br />   pts<br /> )<br />

应用例子：

1. (defun c:tt ()
   
2.   (if
   
3.     (and (xdrx_initssget "选择多段线<退出>:")
   
4.          (setq ss (xdrx_ssget '((0 . "LWPOLYLINE"))))
   
5.          (/= ""
   
6.              (setq div (getstring "\n输入每段等分数（实数等分距离）<退出>:"))
   
7.          )
   
8.     )
   
9.      (progn
   
10.        (if (xdrx_string_regexps "^[0-9.]+$" div)
    
11.          (progn        (if (xdrx_string_regexps "^[0-9]+$" div)
    
12.                   (setq div (atoi div))
    
13.                   (setq div (atof div))
    
14.                 )
    
15.                 (mapcar        '(lambda        (x)
    
16.                           (setq pts (xd::polyline:divideatseg x div))
    
17.                           (mapcar '(lambda (y) (xdrx_grdraw 2 0 y 3 2)) pts)
    
18.                         )
    
19.                         (xdrx_pickset->ents ss)
    
20.                 )
    
21.          )
    
22.        )
    
23.      )
    
24.   )
    
25.   (princ)
    
26. )
    

(defun c:tt ()<br />   (if<br />     (and (xdrx_initssget "选择多段线<退出>:")<br />          (setq ss (xdrx_ssget '((0 . "LWPOLYLINE"))))<br />          (/= ""<br />              (setq div (getstring "\n输入每段等分数（实数等分距离）<退出>:"))<br />          )<br />     )<br />      (progn<br />        (if (xdrx_string_regexps "^[0-9.]+$" div)<br />          (progn        (if (xdrx_string_regexps "^[0-9]+$" div)<br />                   (setq div (atoi div))<br />                   (setq div (atof div))<br />                 )<br />                 (mapcar        '(lambda        (x)<br />                           (setq pts (xd::polyline:divideatseg x div))<br />                           (mapcar '(lambda (y) (xdrx_grdraw 2 0 y 3 2)) pts)<br />                         )<br />                         (xdrx_pickset->ents ss)<br />                 )<br />          )<br />        )<br />      )<br />   )<br />   (princ)<br /> )<br />