AutoLISP for coordinate extraction

[Hari Prashanth]

Hi can anyone explain the following LISP coding pls...

It would be very helpful...

 

;;;Select points and export their co-ords to excel file

;;;=========================================

(defun C:EPEX(/ ss fn f e p)

(prompt "\nSelect points to export:")

(if not (setq ss (ssget '((0 . "POINT"))))

(progn (alert "No objects selected!") (quit))

)

(if (not (setq fn (getfiled "Export to file" (getvar "dwgprefix") "csv" 1)))

(progn (alert "No file selected!") (quit))

)

(setq f (open fn "w"))

(while (setq e (ssname ss 0))

(setq p (cdr (assoc 10 (entget e))))

(princ (strcat (rtos (car p)) "," (rtos (cadr p))"\n") f)

(ssdel e ss)

)

(close f)

(alert (strcat "Finish export points to file: " fn))

)

;;;=========================================

[troggarf]

2 requests for homework right next to eachother...

haha!!!!

[Smirnoff]

Now a little experiment with two objectives:

 

1. determine how quickly Google indexes this site;

2. determine how quickly the professor to determine the source of students code.

 

The result speaks for itself :D:D

 

Of course the student has a chance if well be working on it.

[VVA]

Lisp: coordinates of points to excel sheet (+point number)

Point Manager