;; Form www.xdcad.net eachy 2005.9.21
;;获取LightweightPolyline Polyline顶点
;;返回值: 顶点列表
(defun getplvertex (e / n i ptl)
  (setq	n (1+ (fix (vlax-curve-getendparam e)))
	i -1
  )
  (repeat n
    (setq ptl (cons (vlax-curve-getpointatparam e (setq i (1+ i))) ptl))
  )
  (reverse ptl)
)