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