Sub Main
Teller=iTrigger0
'iLogicVb.RunRule("Gestandaardiseerde rol", "Rule0")
Bmaat=Parameter("Gestandaardiseerde rol.iam", "Bmaat")
Select Case Bmaat
Case <400
	ActiveSheet.View("Lengteaanzicht").ScaleString="1:2"
Case <1000
	ActiveSheet.View("Lengteaanzicht").ScaleString="1:5"
	BreakWithFactor=5
Case <1250
	ActiveSheet.View("Lengteaanzicht").ScaleString="1:7,5"
	BreakWithFactor=7.5
Case >1250
	ActiveSheet.View("Lengteaanzicht").ScaleString="1:10"
	BreakWithFactor=10

End Select

If "1:2" <> ActiveSheet.View("Lengteaanzicht").ScaleString Then
	DeleteBreaks
End If
End Sub

Dim Bmaat As Double
Dim BreakWithFactor As Double

Sub DeleteBreaks
If (ActiveSheet.Name <> "Rol_compleet:1") Then Return
Dim viewL = ActiveSheet.View("Lengteaanzicht")
Dim view = viewL.View
If (view.BreakOperations.Count > 0) Then
  view.BreakOperations(1).Delete
End If

Dim xMid As Double = view.Center.X
Dim yMid As Double = view.Center.Y
Dim modelDocName = IO.Path.GetFileName(viewL.ModelDocument.FullFileName)
'If (Bmaat > 1000) Then Return
	
	Dim breakWidth As Double = (((Bmaat-300)/BreakWithFactor))	
	Dim startPt = ThisApplication.TransientGeometry.CreatePoint2d((xMid - (breakWidth*0.05)), yMid)
	Dim endPt = ThisApplication.TransientGeometry.CreatePoint2d((xMid + (breakWidth*0.05)), yMid)

	view.BreakOperations.Add(BreakOrientationEnum.kHorizontalBreakOrientation, startPt, endPt, BreakStyleEnum.kStructuralBreakStyle, 10, 0.3)
End Sub