Topic: (Challenge) polyline approximation

[CAB]

How about a  variant of gile's test3?

Code: [Select]

(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))
    )
  )
)

[JohnK]

Cool code guys!