Extract Points Coordinates by picking

A friend of mine ask me if there is a lisp or arx routine that could
extract the coordinates of picked points in autocad or autodesk
vertical products to an excel or access file. In other words the output
of the ID command will be redirect to a file compatible with excel or
access.

Hoping to hear from you soon.

Have a nice weekend.

 

Some lines LISP write the coordinates into a text file:

(defun c:WriteCoordinates (/ f p0 px py pz)
(setq f (open "MyFile.txt" "w"))
(while (setq p0 (getpoint "\nPick a point"))
(setq px (rtos (car p0) 2 4))
(setq py (rtos (cadr p0) 2 4))
(setq pz (rtos (caddr p0) 2 4))
(write-line (strcat px "," py "," pz) f)
)
(close f)
(princ)
)

Now you can read this file (CDF-format) with EXCEL.

HTH
Juergen

 

Nice job, Juergen! This txt file ends up where exactly, and why?
Is there any way to aim the output more precisely?

 

(setq f (open "C:\\MyPath\\MyFile.txt" "w"))

....modify MyPath and MyFile to suit.
___

 

Run the lisp and search the file ;-)

Hmm, a good question. The next question please ... ;-)

This was an example. You can/have to specify the output file name
and path


Juergen

 

I did.

: }