Try this for block vaues as text. No mention of what to do with the answer, a table, a csv, to Excel please advise.
Code:
(defun c:txblk ( / ss bname lst lst2 x)
(defun Nestedtext (blockName / ename ret)
(setq ename (tblobjname "block" blockName)
ret (entget ename)
)
(setq lst '())
(if ename
(while (setq ename (entnext ename))
(if (= (car (assoc 1 (entget ename))) 1)
(setq lst (cons (cdr (assoc 1 (entget ename))) lst))
)
)
)
(setq lst (reverse lst))
)
(setq lst2 '())
(setq ss (ssget '((0 . "insert"))))
(repeat (setq x (sslength ss))
(setq bname (cdr (assoc 2 (entget (ssname ss (setq x (1- x)))))))
(Nestedtext bname)
(setq lst2 (cons lst lst2))
)
(setq lst2 (reverse lst2))
(princ lst2)
(princ)
)
(c:txblk)