Template

[Anonymous]

Ok, I created a drawing template and inside the template I created a revision table, I need to know how to give it a insertion point or something to keep one corner of the revision table to stay to a selected point on the title block so that when I change from landscape to portrait it will always stay at the same location so the user dont have to move it.

[Anonymous]

I have just asked the forum a similar question.  When I get a response I'll let you know,

Regards,

Edward

[mcgyvr]

The rev table will "snap" to drawing borders during placement but will NOT anchor itself to a border corner,etc.. when changing sheet sizes.

You just have to reposition it again. 

[Anonymous]

Hello rnewcomb,

Insert this rule and adapt to your requirements,

Regards,

Edward

'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

[Anonymous]

I should have mentioned you will need to set up the sheet size values.  Follow the instructions below.