0 Members and 1 Guest are viewing this topic.
(defun test3A (pl / n p l) (vl-load-com) (setq n -1) (reverse (while (setq p (vlax-curve-getpointatdist pl (setq n (1+ n)))) (setq l (cons p l)) ) ))