Community
Inventor Programming - iLogic, Macros, AddIns & Apprentice
Inventor iLogic, Macros, AddIns & Apprentice Forum. Share your knowledge, ask questions, and explore popular Inventor topics related to programming, creating add-ins, macros, working with the API or creating iLogic tools.
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

Ilogic to export rev table and re-insert as std table with formatting

1 REPLY 1
Reply
Message 1 of 2
DClunie2
289 Views, 1 Reply

Ilogic to export rev table and re-insert as std table with formatting

HI All

 

I am trying to get the vault revision table up and running within our office and all is good except for the wipping of revision table history of revisions that happened before i turned the Vault professional feature on.

 

To try and get over this i am trying to the following with an ilogic external rule 

 

  1. Export current revision table with all data present
  2. Save in same location of file
  3. Import back into dwg as a table

We then can synk properties from vault and still preserve history.

 

I can see the benifits of the vault revision history but wipping existing data makes no sense and cause most companys from what i can gather a major headacke.

 

hopefully someone can advise on this as it will make the justification of turning this feature on worthwhile.

 

 

1 REPLY 1
Message 2 of 2
xiaodong_liang
in reply to: DClunie2

Hi,

 

I am not quite sure what the scenario is regarding with Vault, but in Inventor, you can get the information of revision table by API. The help document of Inventor API contains a sample as below. I think it would not be difficult to you to convert it to iLogic.

 

If I misunderstood your question, could you elaborate with more information, or necessary snapshots/files?

 

Public Sub RevisionTableQuery()

    ' Set a reference to the drawing document.

    ' This assumes a drawing document is active.

    Dim oDrawDoc As DrawingDocument

    Set oDrawDoc = ThisApplication.ActiveDocument

 

    ' Set a reference to the first revision table on the active sheet.

    ' This assumes that a revision table is on the active sheet.

    Dim oRevTable As RevisionTable

    Set oRevTable = oDrawDoc.ActiveSheet.RevisionTables.Item(1)

 

    ' Iterate through the contents of the revision table.

    Dim i As Long

    For i = 1 To oRevTable.RevisionTableRows.Count

        ' Get the current row.

        Dim oRow As RevisionTableRow

        Set oRow = oRevTable.RevisionTableRows.Item(i)

 

        ' Iterate through each column in the row.

        Dim j As Long

        For j = 1 To oRevTable.RevisionTableColumns.Count

            ' Get the current cell.

            Dim oCell As RevisionTableCell

            Set oCell = oRow.Item(j)

 

            ' Display the value of the current cell.

  1. Print "Row: " & i & ", Column: " & oRevTable.RevisionTableColumns.Item(j).Title & " = "; oCell.Text

        Next

    Next

End Sub

 

 

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Autodesk Design & Make Report