Community
Solved! Go to Solution.
Solved by GVDB. Go to Solution.
You can try this:
Set oApprenticeApp = New ApprenticeServerComponent
'Open drawing
Dim oApprenticeServerDWGDoc As ApprenticeServerDrawingDocument
Set oApprenticeServerDWGDoc = oApprenticeApp.Open(strDWGName)
dim oBox2D as inventor.Box2D
set oBox2D = oApprenticeServerDWGDoc.Sheets.Item(1).Border.RangeBox