topic Revision Table - delete table, add table, add text to active row in Inventor Programming Forum

Revision Table - delete table, add table, add text to active row

gavinc — Tue, 29 Jul 2014 23:48:25 GMT

I'm new to i-logic and VBA.

I have a lot of drawings that I need to delete inactive rows of a revision table and update all cells with the same information.

I was thinking it may be best to delete the table and then add it back into the drawing at a specific location relative to the sheet size of the drawing.

Is that the best way or would it be easier to delete inactive rows of the revision table, then add the required information into the cells.

I would like the cell information to remain in the form for the next drawing I open, so it can be repeated easily. Would this need to come from a spreadsheet? How can I achieve this?

Can anyone help please?

Re: Revision Table - delete table, add table, add text to active row

xiaodong_liang — Wed, 06 Aug 2014 13:22:09 GMT

Hi,

The current API provides the property to check if the row is active and the method to delete it. e.g. the VBA code below iterates all revision table of the active sheet and deletes the inactive rows.

hope this helps.

Sub deleteinActiveRow()

    Dim oDrawingDoc As DrawingDocument
    Set oDrawingDoc = ThisApplication.ActiveDocument
    
    Dim oActiveSheet As Sheet
    Set oActiveSheet = oDrawingDoc.ActiveSheet
    
    Dim oEachRevisionTable As RevisionTable
    Dim oEachRow As RevisionTableRow
    For Each oEachRevisionTable In oActiveSheet.RevisionTables
        For Each oEachRow In oEachRevisionTable.RevisionTableRows
            If oEachRow.IsActiveRow = False Then
                'if it is inactive row, delete it
                oEachRow.Delete
            Next
        Next
        
    Next
End Sub

Re: Revision Table - delete table, add table, add text to active row

gavinc — Wed, 06 Aug 2014 21:46:52 GMT

Thank you. I am getting a compile error "Next without For"

Re: Revision Table - delete table, add table, add text to active row

xiaodong_liang — Thu, 07 Aug 2014 03:31:44 GMT

sorry, a typo:

If oEachRow.IsActiveRow = False Then
'if it is inactive row, delete it
oEachRow.Delete
End If