08-10-2023
11:15 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-10-2023
11:15 AM
Hi @mwilsonUG99E. Here is just a partial example iLogic code that points out where all the title block definition related stuff is.
Sub Main
If ThisDoc.Document.DocumentType <> DocumentTypeEnum.kDrawingDocumentObject Then Exit Sub
Dim oDDoc As DrawingDocument = ThisDoc.Document
Dim oTBDefs As TitleBlockDefinitions = oDDoc.TitleBlockDefinitions
If oTBDefs.Count = 0 Then Exit Sub
Dim oFirstTBDef As TitleBlockDefinition = oTBDefs.Item(1)
Dim oSheets As Inventor.Sheets = oDDoc.Sheets
For Each oSheet As Inventor.Sheet In oSheets
If oSheet.TitleBlock IsNot Nothing Then
Dim oSheetTB As TitleBlock = oSheet.TitleBlock
Dim oTBDef As TitleBlockDefinition = oSheetTB.Definition
'and so on
End If
Next 'oSheet
End Sub
If this solved your problem, or answered your question, please click ACCEPT SOLUTION .
Or, if this helped you, please click (LIKE or KUDOS)
.
Wesley Crihfield
(Not an Autodesk Employee)