Delete Revision Table

[Anonymous]

hi everyone

I'm looking for a piece of code that will look for a revision table and if it finds one it will delete it.

Also

looking for the reverse... If no revision table exists , then add one.

thanks as always

[MechMachineMan]

These should get you started:

Sub Main() 
    oDoc = ThisDoc.Document
    Call PurgeRevTables(oDoc)
    'Call AddRevTables(oDoc)
End Sub

Sub PurgeRevTables(oDoc As Document)
    For Each oSheet in oDog
        If oSheet.RevisionTables.Count > 0 Then
             For Each oRevTable in oSheet.RevisionTables
                 oRevTable.Delete
             Next
        End if
    Next
End Sub

Sub AddRevTables(oDoc As Document)

   Dim oTG As TransientGeometry = oDoc.Parent.TransientGeometry
   oPT = oTG.CreatePoint2D(20,20)
   
   For Each oSheet in oDog
        If oSheet.RevisionTables.Count > 0 Then
             oSheet.RevisionTables.Add2(oPT)
        End if
   Next
End Sub     

[Jusdoo]

I have developed an app to operate revision tables. For trial version, it just limits the time and number of sheets to use. hope it will help.

https://apps.autodesk.com/INVNTOR/en/Detail/Index?id=7788639131627009214&appLang=en&os=Win64