LISP TXT to XLS

I have a table of 520 rows and 4 columns in AutoCad. Each cell is in a single text format. I need to transfer this table into an excel file. Does anyone know how to do this using lisp routine?

Thank

 

I know how I'd _approach_ it:

1) Select the text from the table and open a file for writing
(setq ss (ssget '((0 . "TEXT")))
cnt 0
len (strlen (getvar "dwgname"))
f (open (strcat
(getvar "DWGPREFIX")
(substr (getvar "DWGNAME") 1 (- len 4))
".DMP"
)
"w"
)
)

2) Sort it by the y-value of the text insertion points (Tony Tanzillo's
lsort routine is perfect for this).

3) Write each line to the file:
(write-line (strcat column1 "," column2 "," column3 "," column4) f)

4) Close the file. (close f)

single text format. I need to transfer this table into an excel file. Does
anyone know how to do this using lisp routine?

 

1a) Change the ".DMP" to ".CSV" in your case.
....
5) Open the resulting file in Excel and save as "filename.XLS".

 

Sure,
Just E-Mail me a 'sample' drawing, & I'll email back the Lisp.
No charge.

Bob Shaw
www.bobscadshop.com

 

Avi,
You should have the lisp now.
Cheers.

Bob

 

try the VTM (Virtual Table Modifier) feature of KozMos OAsis-XLS, download at http://www.ikozmos.com

 

See
http://discussion.autodesk.com/thread.jspa?messageID=3041490