12-09-2018
08:08 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-09-2018
08:08 PM
Try this:
Dim oDrawingDoc As DrawingDocument oDrawingDoc = ThisApplication.ActiveDocument Dim oSheet As Sheet oSheet = oDrawingDoc.ActiveSheet Dim oWidthRevTable As Double oWidthRevTable = 15.02 'Set you custom width table Dim oTablePt As Point2d oTablePt = ThisApplication.TransientGeometry.CreatePoint2d(oSheet.Border.RangeBox.MaxPoint.X - oWidthRevTable, oSheet.Border.RangeBox.MaxPoint.Y)'Add Revision table in Top Left Corner If oSheet.RevisionTables.Count = 0 Then Dim oRevTable As RevisionTable oRevTable = oSheet.RevisionTables.Add(oTablePt) Dim oRevStyle As Style For Each oRevStyle In oDrawingDoc.StylesManager.RevisionTableStyles If oRevStyle.Name = "ABC Rev Table" Then oRevTable.Style = oRevStyle End If Next Else MessageBox.Show("Revision Table already exist", "Autodesk Inventor") End If
Please use the ACCEPT AS SOLUTION or KUDOS button if my Idea helped you to solve the problem.
Autodesk Inventor Professional Certified 2014
Autodesk Inventor Professional Certified 2014