Topic: Display Viewport Objects

[Birdy]

We use multiple layout tabs in drawing files.
I often have to copy/paste a viewport from one layout to another, but when I do, the "display objects in viewport" is always -NO-.

Is there a way, (or system variable) to have those objects displayed when I paste the VP by default?

Not a big problem, but kinda would be nice if I didn't hafta select, rtclk, display viewport objects, YES.

[David Hall]

not that I have found.  I wrote some vba to turn it on, and zoom extents inside a VP if you want.

[Birdy]

Thanks. I'll try it if you don't mind.

[PHX cadie]

Glad you asked that, though sorry I do not have the answer, I've always wondered "Whats the point?"

[David Hall]

you have to pick the vp, but it does work

Code: [Select]

Public Sub VPON()
    On Error GoTo ERR_CONTROL
    Dim vp As AcadPViewport
    Dim OBJSELSET As AcadSelectionSet
    Set OBJSELSET = ThisDrawing.SelectionSets.Add("VPL")
    OBJSELSET.SelectOnScreen
    For Each vp In OBJSELSET
        vp.Display True
        If vp.DisplayLocked = True Then
            vp.DisplayLocked = False
            ThisDrawing.MSpace = True
            ZoomExtents
            ThisDrawing.MSpace = False
            vp.DisplayLocked = True
        Else
            ThisDrawing.MSpace = True
            ZoomExtents
            ThisDrawing.MSpace = False
            vp.DisplayLocked = True
        End If
    Next
Exit_Here:
    ThisDrawing.SelectionSets.Item("VPL").Delete
    Exit Sub
ERR_CONTROL:
    Select Case Err.Number
    Case "-2145320851"
        ThisDrawing.SelectionSets.Item("VPL").Delete
        Err.Clear
        Resume
    Case Else
        MsgBox Err.Number & Err.Description
        Err.Clear
        Resume
    End Select
End Sub

[Birdy]

I thought I'd check if there was a system variable that I was missing before thinking about a programmatic solution.  Although it's not a big deal... just seems like a minor inconvience.

<edit> Thanks for the programmatic solution.  I'll have to try it later though... <PuttingOnFireStompingBoots>