topic Re: Export Extended Data to Excel in AutoCAD Forum

Export Extended Data to Excel

wilsonm2000 — Wed, 28 Feb 2018 17:40:15 GMT

We have drawings with blocks that have custom Extended data attributes. Is there a way to export the data within these attributes to Excel file?

Re: Export Extended Data to Excel

Moshe-A — Wed, 28 Feb 2018 18:01:15 GMT

check DATEXTRACTION command

Re: Export Extended Data to Excel

Anonymous — Wed, 28 Feb 2018 18:02:40 GMT

Would this work? Using the burst command, then use the scripts.

(defun LM:writecsv ( lst csv / des sep )
(if (setq des (open csv "w"))
(progn
(setq sep (cond ((vl-registry-read "HKEY_CURRENT_USER\\Control Panel\\International" "sList")) (",")))
(foreach row lst (write-line (LM:lst->csv row sep) des))
(close des)
t
)
)
)
(defun LM:lst->csv ( lst sep )
(if (cdr lst)
(strcat (LM:csv-addquotes (car lst) sep) sep (LM:lst->csv (cdr lst) sep))
(LM:csv-addquotes (car lst) sep)
)
)

(defun LM:csv-addquotes ( str sep / pos )
(cond
( (wcmatch str (strcat "*[`" sep "\"]*"))
(setq pos 0)
(while (setq pos (vl-string-position 34 str pos))
(setq str (vl-string-subst "\"\"" "\"" str pos)
pos (+ pos 2)
)
)
(strcat "\"" str "\"")
)
( str )
)
)

(defun C:ttt(/ lst ss i el x fn)
(setq lst (list) ss (ssget (list (cons 0 "TEXT"))) )
(repeat (setq i (sslength ss))
(setq x (ssname ss (setq i (1- i))))
(setq el (entget x))
(if (= (cdr (assoc 0 el)) "TEXT")
(setq lst (append lst (list (list (cdr (assoc 1 el))))))
)
)
(setq fn (vl-filename-mktemp nil nil ".csv"))
(if (and lst (LM:WriteCSV (reverse lst) fn))
(startapp "explorer" fn)
)
)

Re: Export Extended Data to Excel

wilsonm2000 — Wed, 28 Feb 2018 18:12:29 GMT

@Moshe-A wrote:

check DATEXTRACTION command

That was the first thing I tried, it doesn't pick up the Extended Data 😞

Re: Export Extended Data to Excel

wilsonm2000 — Wed, 28 Feb 2018 18:18:12 GMT

@Anonymous wrote:

Would this work? Using the burst command, then use the scripts.

(defun LM:writecsv ( lst csv / des sep )
(if (setq des (open csv "w"))
(progn
(setq sep (cond ((vl-registry-read "HKEY_CURRENT_USER\\Control Panel\\International" "sList")) (",")))
(foreach row lst (write-line (LM:lst->csv row sep) des))
(close des)
t
)
)
)
(defun LM:lst->csv ( lst sep )
(if (cdr lst)
(strcat (LM:csv-addquotes (car lst) sep) sep (LM:lst->csv (cdr lst) sep))
(LM:csv-addquotes (car lst) sep)
)
)

(defun LM:csv-addquotes ( str sep / pos )
(cond
( (wcmatch str (strcat "*[`" sep "\"]*"))
(setq pos 0)
(while (setq pos (vl-string-position 34 str pos))
(setq str (vl-string-subst "\"\"" "\"" str pos)
pos (+ pos 2)
)
)
(strcat "\"" str "\"")
)
( str )
)
)

(defun C:ttt(/ lst ss i el x fn)
(setq lst (list) ss (ssget (list (cons 0 "TEXT"))) )
(repeat (setq i (sslength ss))
(setq x (ssname ss (setq i (1- i))))
(setq el (entget x))
(if (= (cdr (assoc 0 el)) "TEXT")
(setq lst (append lst (list (list (cdr (assoc 1 el))))))
)
)
(setq fn (vl-filename-mktemp nil nil ".csv"))
(if (and lst (LM:WriteCSV (reverse lst) fn))
(startapp "explorer" fn)
)
)

Unfortunately it won't work in this situation. I have took a screenshot of the data I am trying to extract:

Re: Export Extended Data to Excel

Moshe-A — Wed, 28 Feb 2018 18:21:29 GMT

you are mixing phrases

1) there is block attributes

2) there is extended data (XDATA)

3) there is dictinary extended data

anyhow to extract option 2, 3 you need an application

Re: Export Extended Data to Excel

wilsonm2000 — Wed, 28 Feb 2018 18:25:05 GMT

@Moshe-A wrote:

you are mixing phrases

1) there is block attributes

2) there is extended data (XDATA)

3) there is dictinary extended data

anyhow to extract option 2, 3 you need an application

You have an Extended Data tab in properties, My block has custom fields in this tab, that's the data I am trying to extract, see my screenshot

Re: Export Extended Data to Excel

Moshe-A — Wed, 28 Feb 2018 18:39:19 GMT

The Extended Data is available through vertical products built on AutoCAD like AutoCAD Architecture and AutoCAD MEP.

maybe you need to move this to:

https://forums.autodesk.com/t5/autocad-architecture-forum/bd-p/248

https://forums.autodesk.com/t5/autocad-civil-3d-forum/bd-p/66

https://forums.autodesk.com/t5/autocad-map-3d-forum/bd-p/85

Betreff: Export Extended Data to Excel

ismar.salkicevicLFF93 — Mon, 25 Apr 2022 06:24:02 GMT

Did you find a solution to the Problem?
I´m still searching