;|This is a test ,Don't copy it!|;
(defun c:test ()
(setq ent (car (entsel)))
(setq obj (vlax-ename->vla-object ent))
(setq pts (vla-intersectwith obj obj acExtendNone))
(setq par (vlax-curve-getEndParam obj))
(setq i 0)
(while (<= i par)
(setq pt (vlax-curve-getpointatParam obj i))
(princ pt)
(setq i (1+ i))
);while
(princ)
);defun