获取多段线的顶点表

Lisphk

参数是多段线实体名或VLA对象名，LWPOLYLINE和POLYLINE都适用。

1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
2. ;;; Poly-Pts (gile) (X-Y Modified)
   
3. ;;; Returns the vertices list of any type of polyline (WCS coordinates)
   
4. ;;;
   
5. ;;; Argument
   
6. ;;; pl : a polyline (ename or vla-object)
   
7. (defun Poly-Pts        (pl / pa pt lst)
   
8.   (vl-load-com)
   
9.   (setq        pa (if (vlax-curve-IsClosed pl)
   
10.              (vlax-curve-getEndParam pl)
    
11.              (+ (vlax-curve-getEndParam pl) 1)
    
12.            )
    
13.   )
    
14.   (while (setq pt (vlax-curve-getPointAtParam pl (setq pa (- pa 1))))
    
15.     (setq pt (list (car pt) (cadr pt)))
    
16.     (setq lst (cons pt lst))
    
17.   )
    
18. )
    

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;; Poly-Pts (gile) (X-Y Modified)<br /> ;;; Returns the vertices list of any type of polyline (WCS coordinates)<br /> ;;;<br /> ;;; Argument<br /> ;;; pl : a polyline (ename or vla-object)<br /> (defun Poly-Pts        (pl / pa pt lst)<br />   (vl-load-com)<br />   (setq        pa (if (vlax-curve-IsClosed pl)<br />              (vlax-curve-getEndParam pl)<br />              (+ (vlax-curve-getEndParam pl) 1)<br />            )<br />   )<br />   (while (setq pt (vlax-curve-getPointAtParam pl (setq pa (- pa 1))))<br />     (setq pt (list (car pt) (cadr pt)))<br />     (setq lst (cons pt lst))<br />   )<br /> )<br />

wowan1314

nice  
- 1 + 1 改为 1+ 1-
测试了下，比直接从组码表提取要快一点！
但是如果是vla对象名就要慢一点了！