iLogic to Rotate a Revision Table

[Anonymous]

Hi all,

I've recently created a new drawing sheet format, that includes a vertical (90deg rotated) revision table. Each time I double click on the sheet in the Sheet formats folder, to create a new sheet the new sheet's revision block / table returns to the normal orientation as opposed to being vertical.

I think in order to rectify this I'll need a ilogic rule of sorts to rotate the table. 

Thanks in advance for the help!

[Anonymous]

PS: I have a small code that moves the table according to the page size, so I was thinking the angle can be specified with that?

If ActiveSheet.Size ="A2" Then
PointX = (ActiveSheet.Width/10) - 8 - 1
PointY = 18.6 + 1
End If


If ActiveSheet.Size ="A1" Then
PointX = (ActiveSheet.Width/10) - 8 - 2
PointY = 18.6 + 2
End If


If ActiveSheet.Size ="A0" Then
PointX = (ActiveSheet.Width/10) - 8 - 2
PointY = 18.6 + 2
End If


Dim oPoint As Point2d
oPoint=ThisApplication.TransientGeometry.Createpoint2d(PointX,PointY)

ActiveSheet.Sheet.RevisionTables.Item("REVISION TABLE").Position=oPoint


InventorVb.DocumentUpdate()

[MechMachineMan]

oDEG = Degrees of rotation in degrees.

ThisApplication.ActiveDocument.ActiveSheet.RevisionTables.Item("REVISION TABLE").Rotation= oDEG * Math.Pi/180

[Anonymous]

Thanks for the reply!

I ran the code and it worked once, however I can't seem to change the angle of roation.

Coudl you explain the " * Math.Pi/180" part of the code and how I can manipulate it to achieve various angles?

Thanks again!

[Anonymous]

Also, is there a way to recall the table's orientation? what I'm thinking to do is write an if statement that says If the table is not equal to 90deg then rotate it

[MechMachineMan]

Angle in degrees * Pi/180 = angle in radians.. It's just the conversion factor as the .Rotation Method only accepts angle in radians.

[Anonymous]

Thanks a mil! is there a way to trigger this when a new sheet is created?