Topic: Turn all layout viewports ON-OFF in a drawing

[Ndruu]

We have relatively big files with a lot of xrefs and a whole lot of Layouts with 3-5 viewports (. Switching between Layouts is painfully slow in these drawings. That's why I came up with the idea to turn the viewports OFF, when we don't need them, so switching can be sped up.

I have this little code to do the job for me, but it only works in some cases. You can even run it from Model space.
But it only works if you create the viewports in the same session as when you run the lisp.

Try it: Draw something in Model space, create multiple Layouts then make a viewport on each one.
Run the code AVPOFF and it will turn all viewports off on all Layouts. Save the drawing, close and reopen it and run the code AVPON. It will only turn on those viewports that were on the last activated Layout.

According to the Autocad help file:
DXF 68 || Viewport status field: || -1 = On, but is fully off screen, or is one of the viewports that is not active because the $MAXACTVP count is currently being exceeded. // 0 = Off // <positive value > = On and active. The value indicates the order of stacking for the viewports, where 1 is the active viewport, 2 is the next, and so forth

DXF 69 || Viewport ID || Couldn't find any further description...

The problem is Viewport ID resets to 0 every time you close the drawing.  You have to cycle through all layouts to get the true Viewport ID values.

I would like to do this job without alternating through paperspaces. Can it be done?

Code: [Select]

(defun c:avpoff (/ ss i d1 d2 d3 d4)
  (vl-load-com)
  (if
    (setq ss (ssget "_X"
    (list (cons -4 "<AND")
  (cons 0 "VIEWPORT")
  (cons -4 "!=")
  (cons 69 1)
  (cons -4 "!=")
  (cons 68 0)
  (cons -4 "AND>")
    )
     )
    )
     (progn
       (setq i 0)
       (repeat (sslength ss)
(vla-put-viewporton
   (vlax-ename->vla-object (ssname ss i))
   :vlax-false
)
(setq i (1+ i))
       )
     )
  )
  (setvar 'qaflags 0)
  (princ "\nDone! All viewports are inactive!")
  (princ)
)

(defun c:avpon (/ ss1 i1 d1 d2 d3 d4)
  (vl-load-com)
  (if
    (setq ss1 (ssget "_X"
     (list (cons -4 "<AND")
   (cons 0 "VIEWPORT")
   (cons -4 "!=")
   (cons 69 1)
   (cons -4 "<")
   (cons 68 1)
   (cons -4 "AND>")
     )
      )
    )
     (progn
       (setq i1 0)
       (repeat (sslength ss1)
(vla-put-viewporton
   (vlax-ename->vla-object (ssname ss1 i1))
   :vlax-true
)
(setq i1 (1+ i1))
       )
     )
  )
  (princ "\nDone! All viewports are active!")
  (princ)
)

[ronjonp]

Try using this to get the VPORTS:

Code - Auto/Visual Lisp: [Select]

1. (setq ss (ssget "_X" '((0 . "VIEWPORT") (-4 . "!=") (69 . 1))))

[Rod]

FYI Turning off the layer the viewports are on will still be slow when switching between layouts. But freezing the layer will make a big difference.

[Ndruu]

Try using this to get the VPORTS:

Code - Auto/Visual Lisp: [Select]

1. (setq ss (ssget "_X" '((0 . "VIEWPORT") (-4 . "!=") (69 . 1))))

Thank you ronjonp! Unfortunately it didn't work, it still gives me the same "Automation Error. Not in paperspace" message.
The last break point in the code is at this line:

Code: [Select]

(vla-put-viewporton (vlax-ename->vla-object (ssname ss i)) :vlax-false)

FYI Turning off the layer the viewports are on will still be slow when switching between layouts. But freezing the layer will make a big difference.

Rod: Thank you too! I tried it and I could not measure any difference. Switching from one layout to another took 33s and another 25s to regenerate. I tried it on a drawing that has 380k objects, 48 xrefs in it.

[PKENEWELL]

According to Autodesk help, you should use the (vla-Display) method to control the display of a viewport on or off:

Code - Auto/Visual Lisp: [Select]

1. (vla-Display (vlax-ename->vla-object (ssname ss i)) :vlax-true)
2.