Sorry, control over the numbering scheme is not currently possible via the
API.
Sanjay-
wrote in message news:5719738@discussion.autodesk.com...
Hello,
We have used sketched symbols for our revisions in the past, we want to
start using the revision table feature in Inventor 2008. I wrote a small
script that reads the info from the sketched symbols and writes it to the
revision table.
How do I control the numbering scheme of the revision table?
Code snippet below:
Private Sub SkrivRevision(ByVal aLasUtRevision As Variant)
'Debug.Print aLasUtRevision(1, 1, 1)
Dim oApp As Application
Set oApp = ThisApplication
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = oApp.ActiveDocument
Dim oRevTable As RevisionTable
Dim oTG As TransientGeometry
Set oTG = oApp.TransientGeometry
Set oRevTable =
oDrawDoc.ActiveSheet.RevisionTables.Add(oTG.CreatePoint2d(10, 10))
Dim i As Integer
For i = 1 To iMaxRevs
'oRevTable.RevisionTableRows.Add
oRevTable.RevisionTableRows(i).Item(1).Text = aLasUtRevision(1, i,
1) & ""
oRevTable.RevisionTableRows(i).Item(2).Text = aLasUtRevision(2, i,
1) & ""
oRevTable.RevisionTableRows(i).Item(3).Text = aLasUtRevision(3, i,
1) & ""
'Debug.Print sKonvertDate(aLasUtRevision(4, i, 1))
oRevTable.RevisionTableRows(i).Item(4).Text =
sKonvertDate(aLasUtRevision(4, i, 1)) & ""
oRevTable.RevisionTableRows(i).Item(5).Text = aLasUtRevision(5, i,
1) & ""
If iMaxRevs - i > 0 Then oRevTable.RevisionTableRows.Add
Next
End Sub