Modification of block data export lisp

[AbdRF]

Hi,
I am using this awesome lisp to export block details (Name,coordinates,rotation,etc).I need it to also give attribute value with column heading as tag name.
Attached Image shows the present data given by lisp. I am also attaching the lisp file and sample dwg with attribute block.




blkdata.lsp

Block data sample.dwg

Thanks

[BIGAL]

Something like this use tagstring for getting tag name. This is not tested. May need tlst reversed. Easiest to test on real dwg.

 

(setq tlst '())
(if (vlax-property-available-p blk 'attributes)
(progn
(foreach att  blk 'getattributes)
     (setq tlst (cons (vla-get-textstring att)))
)
)
(setq blst (cons tlst blst))

 

 

 

[AbdRF]

On 2/12/2020 at 7:53 AM, BIGAL said:

Something like this use tagstring for getting tag name. This is not tested. May need tlst reversed. Easiest to test on real dwg.

 

(setq tlst '())
(if (vlax-property-available-p blk 'attributes)
(progn
(foreach att  blk 'getattributes)
     (setq tlst (cons (vla-get-textstring att)))
)
)
(setq blst (cons tlst blst))

Thanks @BIGAL
Will try it out