RevisonTable Add Function

[Anonymous]

I would like to create a macro that adds a revision table into the correct location on my sheet through vba.

I believe I have to use the following function, but I am having issues calling out the command:

Function Add(PlacementPoint As Point2d) As RevisionTable
Member of Inventor.RevisionTables
Creates a new RevisionTable object on the sheet

Can someone please show me some example code to show to add a revision table in this way?

[Anonymous]

The below VBA code can meet your request,
please try it.

Cheers,

Merry

VBA code:

Sub CreateRevTable()
    'This
assumes a drawing document is active
    Dim oDoc As
DrawingDocument
    Set oDoc =
ThisApplication.ActiveDocument
   
    Dim
oPt As Point2d
    Set oPt =
ThisApplication.TransientGeometry.CreatePoint2d(15, 15)
   

    Dim oRevTable As RevisionTable
    Set
oRevTable = oDoc.Sheets(1).RevisionTables.Add(oPt)
   
End
Sub

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

<kingkly> wrote in message
href="news:6065569@discussion.autodesk.com">news:6065569@discussion.autodesk.com...

I
would like to create a macro that adds a revision table into the correct
location on my sheet through vba. I believe I have to use the following
function, but I am having issues calling out the command: Function
Add(PlacementPoint As Point2d) As RevisionTable Member of
Inventor.RevisionTables Creates a new RevisionTable object on the
sheet Can someone please show me some example code to show to add a
revision table in this way?

[Anonymous]

Thanks Merry Jin. This is exactly what I wanted. It will help us update prints faster.