Add a Viewport and Show Front View

This will create a viewport in paper space and instead of the standard top view, the viewport will show as the front view

    center(0) = 5.4682: center(1) = 1.4055
    dblviewdirection(0) = 0: dblviewdirection(1) = -1: dblviewdirection(0) = 0
    Set pviewportObj = acadDoc.PaperSpace.AddPViewport(center, vpwidth, 2.2565)
    pviewportObj.direction = dblviewdirection
    pviewportObj.Layer = "viewport"
    pviewportObj.Display True
    acadDoc.MSpace = True
    zoompoint1(0) = -(anchboltrad + 1 * iscale): zoompoint1(2) = domerad - H_total
    zoompoint2(0) = anchboltrad + 1 * iscale: zoompoint2(2) = domerad
    acadDoc.Application.ZoomWindow zoompoint1, zoompoint2
    acadDoc.MSpace = False
    pviewportObj.DisplayLocked = True
    acadDoc.Regen acAllViewports