Option Explicit On
Sub Main()
If ThisApplication.ActiveDocumentType <> kDrawingDocumentObject Then
    MsgBox("This is drawing level command, Have a drawing active and re-run the command",,"Command Document Mismatch")
    Exit Sub
End If

If (ActiveSheet.Name <> "Sheet:1") Then Return
Dim viewL = ActiveSheet.View("VIEW1")
Dim view = viewL.View
If (view.BreakOperations.Count > 0) Then
	For Each breakB As BreakOperation In view.BreakOperations
	  view.BreakOperations(1).Delete
  	Next
End If

'Dim SheetCenter = ThisApplication.TransientGeometry.CreatePoint2d((ActiveSheet.Sheet.Height / 2),(ActiveSheet.Sheet.Width / 2))
'view.Position = SheetCenter

Dim modelDocName = IO.Path.GetFileName(viewL.ModelDocument.FullFileName)
Logger.Info(modelDocName)

Dim BreakCenter1 As Double = Parameter(modelDocName, "BKC1")
Logger.Info("BreakCenter1: " & BreakCenter1)

Dim StartbreakWidth1 As Double = Parameter(modelDocName, "BKS1")
Logger.Info("StartbreakWidth1: " & StartbreakWidth1)
Dim EndbreakWidth1 As Double = Parameter(modelDocName, "BKE1") 
Logger.Info("EndbreakWidth1: " & EndbreakWidth1)

'Dim OverallBreakWidth1 As Double = StartbreakWidth1+EndbreakWidth1

Dim viewXPos = view.Center.X - view.Width / 2
Dim factorX =  view.Scale * 2.54 ' multiply by view scale and convert inch to cm
Dim startPt1 = ThisApplication.TransientGeometry.CreatePoint2d(viewXPos + (BreakCenter1 - StartbreakWidth1)*factorX, 2.5)
Logger.Info("startPt1: " & startPt1.X & ", " & startPt1.Y)

Dim endPt1 = ThisApplication.TransientGeometry.CreatePoint2d(viewXPos + (BreakCenter1 + EndbreakWidth1)*factorX, 2.9)
Logger.Info("endPt1: " & endPt1.X & ", " & endPt1.Y)

view.BreakOperations.Add(BreakOrientationEnum.kHorizontalBreakOrientation, startPt1, endPt1, kStructuralBreakStyle, 2)
End Sub