Topic: Display Viewports On/Off

[DanB]

Is it possible to globally change the display on/off for ALL viewports in a drawing in one "command." Drawing contains multiple layouts each with multiple viewports. I would like to be able to turn on/off all of them at once. If this needs to be or can be done through LISP I am okay with that as well. Any ideas or a nudge in the right direction?

Thanks,
Dan

[deegeecees]

You'll have to create that one.

[Dommy2Hotty]

a button...don't know the command off hand...but maybe

Code: [Select]

vport;on;*;

[Bob Wahr]

VBA?

Code: [Select]

Sub VPOn()
Dim objVP As AcadPViewport
Dim objStuff() As AcadEntity
Dim objSSet As AcadSelectionSet
Dim intGrp(0) As Integer
Dim varData(0) As Variant
intGrp(0) = 0
varData(0) = "viewport"
On Error GoTo UhOh
Set objSSet = ThisDrawing.PickfirstSelectionSet
objSSet.Select acSelectionSetAll, , , intGrp, varData

For Each objVP In objSSet
  objVP.ViewportOn = True
Next objVP
BuhBye:
  Exit Sub
UhOh:
  Select Case Err.Number
    Case -2145386494
      Err.Clear
      Resume Next
    Case Else
      Debug.Print Err.Number
      GoTo BuhBye
  End Select
 
End Sub

Sub VPOff()
Dim objVP As AcadPViewport
Dim objStuff() As AcadEntity
Dim objSSet As AcadSelectionSet
Dim intGrp(0) As Integer
Dim varData(0) As Variant
intGrp(0) = 0
varData(0) = "viewport"
On Error GoTo UhOh
Set objSSet = ThisDrawing.PickfirstSelectionSet
objSSet.Select acSelectionSetAll, , , intGrp, varData

For Each objVP In objSSet
  objVP.ViewportOn = False
Next objVP
BuhBye:
  Exit Sub
UhOh:
  Select Case Err.Number
    Case -2145386494
      Err.Clear
      Resume Next
    Case Else
      Debug.Print Err.Number
      GoTo BuhBye
  End Select
 
End Sub


[t-bear]

Time of initial request: 11:58
Time of complete VBA solution: 12:55
just under 1 hour.....you guys scare me!
Bob, did you just bang that out or is it something you had "laying around" somewhere?

[Bob Wahr]

banged it out.  In case anyone is wondering about the error case, using that filter turns up on more viewport than there is in the drawing, I'm 95% sure it's the layout but didn't try to hard to figure it out.  Can't change visibilty on it though so it throws up that error.

[JohnK]

well im 95% sure you can be 100% sure. *lol*

...Im sure its the layout.

[Bob Wahr]

yeah, the extra 5% was because I didn't care enough to verify.

[David Hall]

I go to Vegas and miss all the fun.

[David Hall]

VBA?

Code: [Select]

     GoTo BuhBye
 

Would Resume BuhBye work as well?

[Andrea]

some one give me a lisp doing that.....

I'll sent you as soon I found it !!


 

[MP]

I'll sent you as soon I found it !!

What, you can't share with the rest of the class?