12-01-2021
05:46 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-01-2021
05:46 AM
In addition to the previous suggestion you could use a Try/Catch statement here.
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
Dim oApp As Application Dim oDoc As DrawingDocument Dim oSheet As Sheet Dim oRevTable As RevisionTable Dim myPoint As Inventor.Point2d oApp = ThisApplication oDoc = ThisDoc.Document oSheet = oDoc.ActiveSheet Try oRevTable = oSheet.RevisionTables.Item(1) Catch MsgBox("There is no RevisionTable on this sheet.",,"iLogic") Exit Sub End Try Dim PointX As Double Dim PointY As Double Dim SizeX As Double Dim SizeY As Double SizeX = oRevTable.RangeBox.MaxPoint.X - oRevTable.RangeBox.MinPoint.X SizeY = oRevTable.RangeBox.MaxPoint.Y - oRevTable.RangeBox.MinPoint.Y PointX = PointX-SizeX PointY = PointY myPoint = oApp.TransientGeometry.CreatePoint2d(PointX, PointY) oRevTable.Position = myPoint