Topic: Best way to get a list of block names defined in an objectdbx document?

[mkweaver]

I need to get a list of block definitions which have attributes contained in an objectdbx document.

I know I can iterate the database and find block insertions and from those check to see that they have attributes, but I don't want to exclude defined blocks which are not inserted.

I'm hoping to avoid iterating the block definition.

Any suggestions welcome.

Mike

[JohnK]

Code: [Select]

(vlax-for x
 (setq dbxdoc-block-collection (vla-get-blocks $dbxdoc$))
 (if  <something>
  <blah, blah>
 )
)

[T.Willey]

I didn't see a way to test if a block definition has attribute with ActiveX, but it seems like you can with dxf codes.  Look at code 70, and see if bit 2 is set.

[JohnK]

;   HasAttributes (RO) = -1

[T.Willey]

;   HasAttributes (RO) = -1

Block Definition, not Block Reference.

; Property values:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00c2eb8c>
;   BlockScaling = 0
;   Comments = ""
;   Count (RO) = 4
;   Document (RO) = #<VLA-OBJECT IAcadDocument 072f8dd4>
;   Explodable = -1
;   Handle (RO) = "C3"
;   HasExtensionDictionary (RO) = 0
;   IsDynamicBlock (RO) = 0
;   IsLayout (RO) = 0
;   IsXRef (RO) = 0
;   Layout (RO) = AutoCAD.Application: The property is not available in current state
;   Name = "Det-Bub"
;   ObjectID (RO) = 2127741080
;   ObjectName (RO) = "AcDbBlockTableRecord"
;   Origin = (0.0 0.0 0.0)
;   OwnerID (RO) = 2127629320
;   Path = AutoCAD.Application: Not applicable
;   Units = 1
;   XRefDatabase (RO) = AutoCAD.Application: No database
; Methods supported:

[JohnK]

Ahh, i see. Yes, go for DXF codes then.

[mkweaver]

Ahh, i see. Yes, go for DXF codes then.

But, can I get the DXF codes for on object in an objectdbx document?

[jbuzbee]

Yes
(vlax-vla-object->ename dbxdoc)

I do this all the time for working with dictionaries.  If there was just a vla-has function . . . 

[T.Willey]

If there was just a vla-has function . . . 

Kind of round-about, but I have done it like

Code: [Select]

(if (vl-catch-all-error-p (vl-catch-all-apply 'vla-Item (list ColObj Name)))
 .... doesn't exist
 .... does exist
)

[mkweaver]

Yes
(vlax-vla-object->ename dbxdoc)

I do this all the time for working with dictionaries.  If there was just a vla-has function . . . 

. . .
Well, doesn't that open up a whole new world.

I've been working with vlisp since Autodesk first made it available for purchase, and never tried that on an objectdbx object.  This solves several problems all at once.

Thanks,
Mike

[jbuzbee]

Kind of round-about, but I have done it like

Yep, when theres absolutely no other way.  I find that whole error catching thing messy . . .

Interesting thing is most of the AEC type libraries that ship with ADT / Architecture have a has method for the different collections.