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
Coding with Visual Basic 