' Start of iLogic code..... ' This iLogic code will renumber hole tags for all hole tables in all sheets of the active drawing ' Define document Dim oDoc As DrawingDocument ' Is the currently active document a drawing? Try oDoc = ThisApplication.ActiveDocument Catch MsgBox("This rule can only be run in a drawing document! - Exiting...", 64, "Cadline iLogic") Return End Try ' Define stuff.... Dim oSheets As Inventor.Sheets = oDoc.Sheets Dim oSheet As Sheet = Nothing Dim RowNo As Integer Dim oTable As HoleTable Dim HoleTableNo As Integer = 1 Dim SheetNo As Integer = 1 ' Loop through all sheets For Each oSheet In oSheets ' Loop through all holetables For Each oTable In oSheet.HoleTables ThisApplication.StatusBarText = "Sheet " & SheetNo & ". Processing Hole Table No. " & HoleTableNo & "...." ' Loop through all rows in hole table For RowNo = 1 To oTable.HoleTableRows.Count ' Change hole tag for this row in table oTable.HoleTableRows.Item(RowNo).HoleTag.Text = HoleTableNo & "." & RowNo Next HoleTableNo += 1 Next SheetNo += 1 Next ' Are there any hole tables on all sheets? If HoleTableNo = 1 Then MsgBox("There are no hole tables in this drawing....", 64, "Cadline iLogic") Exit Sub End If ' End of iLogic code...