Is there anyway of automating the deletion of a title block?
I went and changed about 300 drawings from "ABC" title block to "XYZ".
I would now like to delete "ABC" title block from all those drawings.
(I know, I should have done this when I inserted "XYZ" title block, but it's water under the bridge.)
Using Inventor 2012
TIA,
Ken -
I don't have Inv. 2012, so there may be a better way.
Here's a little macro I tried in Inv. 2010.
You could use the macro with Kent's KWiKBatchRun which you can find at
http://www.kwikmcad.com/icode/32bit/32BitAddins.aspx
Mike
Public Sub Delete_ABC()
' Set a reference to the drawing document.
' This assumes a drawing document is active.
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
oDrawDoc.Update
' Obtain a reference to the desired Title Block definition.
Dim oTitleBlockDef As TitleBlockDefinition
Set oTitleBlockDef = oDrawDoc.TitleBlockDefinitions.Item("XYZ")
' Set a reference to count all sheets in document
Dim oSheets As Sheets
Set oSheets = oDrawDoc.Sheets
Dim iSheets As Integer
For iSheets = 1 To oSheets.Count
' Check to see if the sheet already has a Title Block and delete it if it does.
If Not oSheets(iSheets).TitleBlock Is Nothing Then
oSheets(iSheets).TitleBlock.Delete
End If
Next
' Delete the Title Block from the document
oTitleBlockDef.Delete
End Sub