Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

Hi @c.neutschK4ZB6 

 

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