Function oViewAdd()

Set oIDW = ThisApplication.Documents.Add(kDrawingDocumentObject, temp_str)

Dim oopt As Control
Dim ostab As Double
Dim oStyle As Long

For Each oopt In frmIDW.Frame_maßstab.Controls

If oopt.Value = True Then
ostab = Val(oopt.Tag)
End If

Next oopt

For Each oopt In frmIDW.Frame_Style.Controls

If oopt.Value = True Then
oStyle = Val(oopt.Tag)
Else: oStyle = frmIDW.Frame_Style.optVis.Tag

End If

Next oopt

Set osheet = oIDW.ActiveSheet

osheet.Size = osheet_str
osheet.Orientation = oorient

osheet.Border.Delete

osheet.AddBorder (osize_str)

Set otg = ThisApplication.TransientGeometry

opointx = osheet.Width / 2
opointy = osheet.height / 2

Set opoint = otg.CreatePoint2d(opointx, opointy)

Set oview = osheet.DrawingViews.AddBaseView(odoc, opoint, ostab, kCurrentViewOrientation, oStyle)

If frmIDW.but_li.Value = True Then

Set opoint = otg.CreatePoint2d(opointx - opointx * 0.9, opointy)
Set oview2 = osheet.DrawingViews.AddProjectedView(oview, opoint, oStyle)

End If

If frmIDW.but_re.Value = True Then

Set opoint = otg.CreatePoint2d(opointx + opointx * 0.9, opointy)
Set oview2 = osheet.DrawingViews.AddProjectedView(oview, opoint, oStyle)

End If

If frmIDW.but_ob.Value = True Then

Set opoint = otg.CreatePoint2d(opointx, opointy + opointy * 0.9)
Set oview2 = osheet.DrawingViews.AddProjectedView(oview, opoint, oStyle)

End If

If frmIDW.but_un.Value = True Then

Set opoint = otg.CreatePoint2d(opointx, opointy - opointy * 0.9)
Set oview2 = osheet.DrawingViews.AddProjectedView(oview, opoint, oStyle)

End If

If frmIDW.but_iso.Value = True Then

Set opoint = otg.CreatePoint2d(opointx / 5, opointy / 5)
Set oview2 = osheet.DrawingViews.AddProjectedView(oview, opoint, kShadedDrawingViewStyle, ostab / 2)

End If

End Function