Spline data extraction using lisp

Using autocad 2002, anyone knowing how to extract the control points of a spline drawn and writing into a file using autolisp?

Thanks!

Adit

Test this:

(defun c:test()
 (setq el (entget (car (entsel))))
 (setq file (open (getfiled "Output file" "" "" 5) "w"))
 (repeat (setq i (length el))
   (if (= (car (setq l1 (nth (setq i (1- i)) el))) 10)
     (write-line (strcat (rtos (cadr l1)) "," (rtos (caddr l1))) file)
     )
   )
 (close file)
 )

Thanks for the code, really hepled a lot!!

Adit

Glad to help!

Due to some recent interest, here is the code cleaned:

(defun c:test()
 (setq el (entget (car (entsel))))
 (setq file (open (getfiled "Output file" "" "" 5) "w"))
 (repeat (setq i (length el))
   (if (= (car (setq l1 (nth (setq i (1- i)) el))) 10)
     (write-line (strcat (rtos (cadr l1)) "," (rtos (caddr l1))) file)
     )
   )
 (close file)
 )