多段线子线段线长的取得

YueFeng

选择多段线，得到多段各角点距起始点的距离：
(setq ent (car (entsel))
      n   0
      result nil
)
(while
   (setq dist (vlax-curve-getDistAtParam ent n))
   (setq result (cons dist result)
         n (1+ n)
   )
)
(cdr (reverse result))

返回值：
(830.0 1050.0 1880.0 2180.0 2400.0 3370.0 3590.0 4040.0)

根据此列表，得到多段线各子线段线长：

(setq lens '(830.0 1050.0 1880.0 2180.0 2400.0 3370.0 3590.0 4040.0))
(mapcar '- lens (cons 0 (reverse (cdr (reverse lens)))))
返回值：
(830.0 220.0 830.0 300.0 220.0 970.0 220.0 450.0)

根据多段线各子线段线长列表，重新计算得到各点位距超始点距离值列表：
(setq lens '(830.0 220.0 830.0 300.0 220.0 970.0 220.0 450.0))
(setq lenq nil)
(mapcar '(lambda(x) (setq lenq (cons x lenq)) (apply '+ lenq)) lens)
返回值：
(830.0 1050.0 1880.0 2180.0 2400.0 3370.0 3590.0 4040.0)

根据多段线子线段线长列表，得到第几子段线与相对应该子线段的双元表：
(setq lens '(830.0 220.0 830.0 300.0 220.0 970.0 220.0 450.0))
(setq n 0)
(mapcar '(lambda (x) (setq n (1+ n)) (cons n x)) lens)
返回值：
((1 . 830.0) (2 . 220.0) (3 . 830.0) (4 . 300.0) (5 . 220.0) (6 . 970.0) (7 . 220.0) (8 . 450.0))

newer

贴个同功能的XDRX API的

1. (defun _PlSegLengths (e / lens i seg)
   
2.     (setq i        0
   
3.           numVerts (xdrx_polyline_numverts e)
   
4.     )
   
5.     (repeat (1- numVerts)
   
6.         (or (setq seg (xdrx_polyline_getlinesegat e i t))
   
7.             (setq seg (xdrx_polyline_getarcsegat e i t))
   
8.         )
   
9.         (setq lens (cons (cons i (xdge::getpropertyvalue seg "length")) lens)
   
10.               i    (1+ i)
    
11.         )
    
12.         (xdge::free seg)
    
13.     )
    
14.     (reverse lens)
    
15. )
    

(defun _PlSegLengths (e / lens i seg)<br />     (setq i        0<br />           numVerts (xdrx_polyline_numverts e)<br />     )<br />     (repeat (1- numVerts)<br />         (or (setq seg (xdrx_polyline_getlinesegat e i t))<br />             (setq seg (xdrx_polyline_getarcsegat e i t))<br />         )<br />         (setq lens (cons (cons i (xdge::getpropertyvalue seg "length")) lens)<br />               i    (1+ i)<br />         )<br />         (xdge::free seg)<br />     )<br />     (reverse lens)<br /> )<br />

另外一个版本

1. (defun _PLSegLengths (e / g gl i lens)
   
2.     (if (setq g (xdge::constructor e))
   
3.         (progn (setq gl (xdge::getpropertyvalue g "getcurvelist")
   
4.                      i  -1
   
5.                )
   
6.                (setq
   
7.                    lens (mapcar
   
8.                             '(lambda (x)
   
9.                                  (cons (setq i (1+ i)) (xdge::getpropertyvalue x "length"))
   
10.                              )
    
11.                             gl
    
12.                         )
    
13.                )
    
14.                (xdge::free gl g)
    
15.         )
    
16.     )
    
17.     lens
    
18. )
    

(defun _PLSegLengths (e / g gl i lens)<br />     (if (setq g (xdge::constructor e))<br />         (progn (setq gl (xdge::getpropertyvalue g "getcurvelist")<br />                      i  -1<br />                )<br />                (setq<br />                    lens (mapcar<br />                             '(lambda (x)<br />                                  (cons (setq i (1+ i)) (xdge::getpropertyvalue x "length"))<br />                              )<br />                             gl<br />                         )<br />                )<br />                (xdge::free gl g)<br />         )<br />     )<br />     lens<br /> )<br />

命令: (_PLSEGLENGTHS (entlast))
((0 . 455.818) (1 . 473.946) (2 . 471.352) (3 . 711.616) (4 . 428.606) (5 .
726.347) (6 . 659.893))

csharp

(setq n (fix (vlax-curve-getendparam e)))(setq i 0)(repeat n (setq l(cons (list i (- (vlax-curve-getdistatparam (1+ i))(vlax-curve-getdistatparam e))) l) i (1+ i)))

2. 
   
3. (defun f (e / n i l)
   
4.   (setq    n (fix (vlax-curve-getendparam e))
   
5.     i 0
   
6.   )
   
7.   (repeat n
   
8.     (setq l (cons (cons    i
   
9.             (- (vlax-curve-getdistatparam e (1+ i))
   
10.                (vlax-curve-getdistatparam e i)
    
11.             )
    
12.           )
    
13.           l
    
14.         )
    
15.       i (1+ i)
    
16.     )
    
17.   )
    
18.   (reverse l)
    
19. )

<br /> (defun f (e / n i l)<br />   (setq    n (fix (vlax-curve-getendparam e))<br />     i 0<br />   )<br />   (repeat n<br />     (setq l (cons (cons    i<br />             (- (vlax-curve-getdistatparam e (1+ i))<br />                (vlax-curve-getdistatparam e i)<br />             )<br />           )<br />           l<br />         )<br />       i (1+ i)<br />     )<br />   )<br />   (reverse l)<br /> )