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

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s