Export Extended Data to Excel

[wilsonm2000]

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?

[Moshe-A]

check DATEXTRACTION command

[Anonymous]

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)
)
)

[wilsonm2000]

---

@Moshe-A wrote:

check DATEXTRACTION command

---

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

[wilsonm2000]

---

@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:

[Moshe-A]

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

[wilsonm2000]

---

@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

[Moshe-A]

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

or

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

or

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

[ismar.salkicevicLFF93]

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