Use iLogic to position a revision table dependant on sheet size

Anonymous — Mon, 29 Jun 2015 15:56:00 GMT

Hello All,

I've set up a drawing template that starts with a pop-up form asking the designer to select a sheet size (A0 to A4). When the designer inserts his/her base unit I'd like to insert a revision table.

So far I have used the following ilogic:

Dim oDrawDoc As DrawingDocument
    oDrawDoc = ThisApplication.ActiveDocument
 
    Dim oRTBs As RevisionTables
    oRTBs = oDrawDoc.ActiveSheet.RevisionTables
 
    Dim oLocation As Point2d
    oLocation = ThisApplication.TransientGeometry.CreatePoint2d(10, 10)
 
    'add a new table
    Dim oRTB As RevisionTable
    oRTB = oRTBs.Add(oLocation)

This logic puts the revision table in position (10,10). I'd like to position the revision table in the following positions depending on the selected sheet size:

A0 - (2,3.6)

A1 - (2,3.6)

A2 - (1,2.6)

A3 - (1,2.6)

A4 - (13.7, 7.1)

Thanks in advance for any assistance,

Regards,

Edward

Re: Use iLogic to position a revision table dependant on sheet size

Anonymous — Tue, 30 Jun 2015 13:55:04 GMT

The code below seems to work!!

SyntaxEditor Code Snippet

'Set up list of sheet sizes
MultiValue.SetList("SSize", "A0", "A1", "A2", "A3", "A4")
SSize = InputListBox("Choose Your Size", MultiValue.List("SSize"), SSize, Title := "Paper select", ListName := "List")
ActiveSheet.ChangeSize(SSize, MoveBorderItems := True)
Select Case SSize
Case "A0"
oLocation = ThisApplication.TransientGeometry.CreatePoint2d(2, 3.6)
Case "A1"
oLocation = ThisApplication.TransientGeometry.CreatePoint2d(2, 3.6)
Case "A2"
oLocation = ThisApplication.TransientGeometry.CreatePoint2d(1, 2.6)
Case "A3"
oLocation = ThisApplication.TransientGeometry.CreatePoint2d(1, 2.6)
Case "A4"
oLocation = ThisApplication.TransientGeometry.CreatePoint2d(13.7, 7.1)
End Select

Dim oDrawDoc As DrawingDocument
    oDrawDoc = ThisApplication.ActiveDocument
 
    Dim oRTBs As RevisionTables
    oRTBs = oDrawDoc.ActiveSheet.RevisionTables

 'add a new table
    Dim oRTB As RevisionTable
    oRTB = oRTBs.Add(oLocation)

ThisApplication.ActiveView.Fit

topic Re: Use iLogic to position a revision table dependant on sheet size in Inventor Forum

Use iLogic to position a revision table dependant on sheet size

Re: Use iLogic to position a revision table dependant on sheet size