Add Zone Border with Ilogic

[johnster100]

Hi there,

I'm havine the same problem as described in this thread:

 http://forums.autodesk.com/t5/Inventor-Customization/Sheet-Size-iLogic-Problem/td-p/3736628

Basically I've made all my borders using the define zone border wizard as it was the quickest and easiest way to do them. When adding them with iLogic they come in the zone numbers, both horizontal and vertical, set to 0.

I do not want to use the solution in the above thread as my template will be used in UK, China and Brazil and I'm worried the language settings will cause errors.

Is there a way I can save \ convert my zone borders to custom borders? I think this would solve all my problems, I really don't want to draw them again. Or has this been fixed in a new version? I'm running 2013. 

thanks,

John

[stephengibson76]

I created my own borders that insert based on sheet size

'A4 Border Portrait LandscapeIf ActiveSheet.Size="A4" And
ActiveSheet.Width="210" And
ActiveSheet.Height="297"Then
ActiveSheet.Border="MSub-BORDER_A4P"
ElseIf ActiveSheet.Size="A4" And
ActiveSheet.Width="297" And
ActiveSheet.Height="210"Then
ActiveSheet.Border="MSub-BORDER_A4L"

'A3 Border Portrait LandscapeElseIf ActiveSheet.Size="A3" And
ActiveSheet.Width="297" And
ActiveSheet.Height="420"Then
ActiveSheet.Border="MSub-BORDER_A3P"
ElseIf ActiveSheet.Size="A3" And
ActiveSheet.Width="420" And
ActiveSheet.Height="297"Then
ActiveSheet.Border="MSub-BORDER_A3L"

'A2 Border Portrait LandscapeElseIf ActiveSheet.Size="A2" And
ActiveSheet.Width="420" And
ActiveSheet.Height="594"Then
ActiveSheet.Border="MSub-BORDER_A2P"
ElseIf ActiveSheet.Size="A2" And
ActiveSheet.Width="594" And
ActiveSheet.Height="420"Then
ActiveSheet.Border="MSub-BORDER_A2L"

'A1 BorderElseIf ActiveSheet.Size="A1" Then
ActiveSheet.Border="MSub-BORDER_A1L"

'A0 BorderElseIf ActiveSheet.Size="A0" Then
ActiveSheet.Border="MSub-BORDER_A0L"

End If

[stephengibson76]

formatted correctly

'A4 Border Portrait Landscape
If ActiveSheet.Size="A4" And
ActiveSheet.Width="210" And
ActiveSheet.Height="297"Then
ActiveSheet.Border="MSub-BORDER_A4P"
ElseIf ActiveSheet.Size="A4" And
ActiveSheet.Width="297" And
ActiveSheet.Height="210"Then
ActiveSheet.Border="MSub-BORDER_A4L"

'A3 Border Portrait Landscape
ElseIf ActiveSheet.Size="A3" And
ActiveSheet.Width="297" And
ActiveSheet.Height="420"Then
ActiveSheet.Border="MSub-BORDER_A3P"
ElseIf ActiveSheet.Size="A3" And
ActiveSheet.Width="420" And
ActiveSheet.Height="297"Then
ActiveSheet.Border="MSub-BORDER_A3L"

'A2 Border Portrait Landscape
ElseIf ActiveSheet.Size="A2" And
ActiveSheet.Width="420" And
ActiveSheet.Height="594"Then
ActiveSheet.Border="MSub-BORDER_A2P"
ElseIf ActiveSheet.Size="A2" And
ActiveSheet.Width="594" And
ActiveSheet.Height="420"Then
ActiveSheet.Border="MSub-BORDER_A2L"

'A1 Border
ElseIf ActiveSheet.Size="A1" Then
ActiveSheet.Border="MSub-BORDER_A1L"

'A0 Border
ElseIf ActiveSheet.Size="A0" Then
ActiveSheet.Border="MSub-BORDER_A0L"

End If