Data extraction from tables to XLS

[gfreddog]

Yes , just type the following at the command prompt or in your lisp:

(TableExport nil "C:/MyData/Tables.CSV" "MyPrefix")

Change the path & filename to the CSV as needed, and the "MyPrefix" can either be replaced with nil if you don't want a prefixed column, or to any other piece of text or a variable containing text.

If I run this as is I can only select one table in the drawing to export. Using AutoCAD 2012 Vanilla.

[gfreddog]

Ok I think that is what I really need but it might be lack of coffee or the head-cold I'm fighting off but how do I trigger this?

If I try this as a LISP I get completely lost:

(vl-load-com)

;TTBL - Export Tables to CSV file

(DEFUN C:TTBL ()

(TableExport nil "C:\Users\gfournier\Documents\AutoCAD Files/Tables.CSV" "MyPrefix")

(defun ReadList (lst /)
(cond
((= (type lst) 'Str) (ReadList (read (strcat "(" (vl-string-translate ",;" " " lst) ")"))))
((= (type lst) 'Sym) (eval lst))
((= (type lst) 'List) (mapcar (function ReadList) lst))
(t lst)
)
)

(defun SelectObjects (pt filter / ss n lst)
(if pt
(progn
(setq pt (ReadList pt))
(if (= (type pt) 'List)
(cond
((and (>= (length pt) 2) (vl-every (function (lambda (i) (member (type i) '(Int Real)))) pt))
(setq n (list (/ (getvar 'ViewSize) (* (getvar 'PickBox) 80.0)) 0.0)
n (cons (car n) n)
ss (ssget "C" (mapcar '- pt n) (mapcar '+ pt n) filter)
)
)
((vl-every (function
(lambda (i)
(and (= (type i) 'List) (vl-every (function (lambda (j) (member (type j) '(Int Real)))) i))
)
)
pt
)
(cond
((= (length pt) 1) (setq lst (SelectObjects (car pt) filter)))
((= (length pt) 2) (setq ss (ssget "C" (car pt) (cadr pt) filter)))
(t (setq ss (ssget "CP" pt filter)))
)
)
)
)
)
(setq ss (ssget "X" filter))
)
(if ss
(progn (setq n (sslength ss)) (while (>= (setq n (1- n)) 0) (setq lst (cons (ssname ss n) lst))))
)
lst
)

(defun TableExport (pt fname prefix / lst eo f row col str)
(if (and (setq lst (SelectObjects pt '((0 . "ACAD_TABLE"))))
(setq f (open fname "a"))
)
(progn
(foreach en lst
(setq eo (vlax-ename->vla-object en)
row -1
)
(while (< (setq row (1+ row)) (vla-get-Rows eo))
(setq col -1
str ""
)
(while (< (setq col (1+ col)) (vla-get-Columns eo))
(setq str (strcat str ",\"" (vla-GetText eo row col) "\""))
)
(setq str (strcat ",\"" (vla-get-Handle eo) "\"" str "\n"))
(if prefix
(setq str (strcat ",\"" prefix "\"" str))
)
(princ (substr str 2) f)
)
)
(close f)
)
)
)

[irneb]

Make sure that if you use backslashes in your path they get doubled. That's why I prefer using forward slashes instead.

So your path should read as either one of these:

"C:/Users/gfournier/Documents/AutoCAD Files/Tables.CSV"
"C:\\Users\\gfournier\\Documents\\AutoCAD Files\\Tables.CSV"

[gfreddog]

Make sure that if you use backslashes in your path they get doubled. That's why I prefer using forward slashes instead.

So your path should read as either one of these:

"C:/Users/gfournier/Documents/AutoCAD Files/Tables.CSV"
"C:\\Users\\gfournier\\Documents\\AutoCAD Files\\Tables.CSV"

This has sat to the side for awhile and I now have time/need to revisit...

Is there a way to write the LISP so it prompts you for the file location each time?

TIA

[gfreddog]

This has sat to the side for awhile and I now have time/need to revisit...

Is there a way to write the LISP so it prompts you for the file location each time?

TIA

I'm definitely having no luck

[irneb]

Sorry, I must've missed this post. Try using the getfiled function. That shoul open a dialog so you can pic a filename. It returns the full path string or nil if the user cancels.