mvports off lsp

[Anonymous]

hello. this lsp is off vports the selected objects.
(defun c:mvf (/ clay ss) 
(setq clay (getvar "clayer"))
(setq ss (ssget))
(command "-vports" "off" ss "")
(setvar "clayer" clay)
(princ)
)

but, I want to turn off the viewports except the selected objects.  some help. plz

thank you for reading it.

[Moshe-A]

Hi,

Something like this?

(defun c:mvf (/ ss)
 (setvar "tilemode" 0)   ; switch to layout
 (command "pspace")      ; make sure in pspace
  
 (if (setq ss (ssget '((0 . "viewport"))))
  (progn
   (command "-vports" "off" "si" "all")
   (command "-vports" "on" "si" ss)   
  )
 )

 (princ)
)

enjoy

moshe

[Anonymous · Accepted solution]

thank you for your help.

---

@Moshe-A wrote:

Hi,

Something like this?

(defun c:mvf (/ ss)
 (setvar "tilemode" 0)   ; switch to layout
 (command "pspace")      ; make sure in pspace
  
 (if (setq ss (ssget '((0 . "viewport"))))
  (progn
   (command "-vports" "off" "si" "all")
   (command "-vports" "on" "si" ss)   
  )
 )

 (princ)
)

enjoy

moshe

---