求四边形或多边形角点程序

phoenixdjq

求一个四边形或多边形角点程序
记得好像有个命令，忘记了，请高手指点，或者提供一个程序，谢谢

wzg356

;取得pline,lwpline点坐标表，三维,By 无痕
;;(vxs (car(entsel)))
(defun vxs (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)
        )

phoenixdjq

程序已收到，谢谢