代码来自 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=100137&page=1#pid571715 ``` (defun get_pline-vertexs (e / i v lst)   (setq i -1)   (while (setq v (vlax-curve-getpointatparam e (setq i (1+ i))))     (setq lst (cons v lst))   )   (reverse lst) ) ```