Are you looking to get the names of all title block definitions in a
drawing? If so, this should do it:
Sub TitleBlockNames()
Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oTitleBlockDef As TitleBlockDefinition
For Each oTitleBlockDef In oDoc.TitleBlockDefinitions
Debug.Print oTitleBlockDef.Name
Next
End Sub
Sanjay-
wrote in message news:5013127@discussion.autodesk.com...
I'm having a bit of trouble getting all the Title Block names from the Title
Block Definition. Does anybody have the code to do this?
Thx in Advance
AllenG
