Extracting attributes from block definitions

Hello all,

I want to extract atrributes from all block definitions in a drawing, via ObjectDBX. How would I get a collection of definitions (rather than a collection of blocks) vla-stylee??

TIA

Steve

 

Sorry,

Collection of Block REFERENCES, not definitions.
Then I can extract the attributes via (getattributes)

 

Hi Steve

This code should help you:

Code:

(defun MeGetAllAtts ( / AttLst CurEnt CurObj CurSet)
(if (setq CurSet (ssget "X" '((0 . "INSERT") (66 . 1))))
(while (setq CurEnt (ssname CurSet 0))
(setq CurObj (vlax-ename->vla-object CurEnt)
AttLst (cons (MeGetAtts CurObj) AttLst)
)
(ssdel CurEnt CurSet)
)
)
AttLst
)
;
; == Function MeGetAtts
; Reads all attribute values from a block
; Arguments [Typ]:
;   Obj = Object [VLA-OBJECT]
; Return [Typ]:
;   > Dotted pair list '(("Tag1" . "Val1")...) [LIST]
; Notes:
;   None
;
(defun MeGetAtts (Obj)
(mapcar
'(lambda (Att)
(cons
(vla-get-TagString Att)
(vla-get-TextString Att)
)
)
(vlax-invoke Obj 'GetAttributes)
)
)

Cheers

 

Hi Jürg,
Note that the OP said they were wanting to use ObjectDBX. Selection sets
cannot be used in this case.

Steve,
Using a method similar to what Jürg posted is the only way. I'd would "For
Each" the Blocks collection looking for those whose IsLayout property =
True, then "For Each" through those looking for those BlockRefs of interest.
From here you should be able to apply what Jürg supplied.

 

Jurg,

Unless I'm missing the point, I can't use ssget to extract info from a dbx object? If there is a way that would solve my problem. Failing that is there another way to extract the info?

Steve

 

Hi Steve

Sorry, I overlooked the point with ObjectDbx.

Thats correct...

As Jeff pointed out, stepping through the collection(s):

Code:

(vlax-for Obj (vla-get-ModelSpace DbxDoc) ;(PaperSpace)
(if (and
(= (vla-get-ObjectName Obj) "AcDbBlockReference")
(vla-get-HasAttributes Obj)
)
(setq AttLst (cons (MeGetAtts Obj) AttLst))
)
)

Cheers