;Locks all viewports in all layouts
;(C)2010 CAD Studio - www.cadstudio.cz
;
(defun C:LockAllVp ( / i oldlo oldcmde)
 (setq oldcmde (getvar "CMDECHO"))
 (setvar "CMDECHO" 0)
 (setq oldlo (getvar "CTAB"))
;cannot lock model
; (setvar "CTAB" "Model")
;all layouts
 (foreach i (layoutlist)
  (progn 
   (setvar "CTAB" i)
   (command "_-VPORTS" "_Lock" "_on" "_all" "")
   );progn 
 )
 (setvar "CTAB" oldlo)
 (setvar "CMDECHO" oldcmde)
 (princ "\nAll viewports locked.")
 (princ)
)

(princ "\nLOCKALLVP command loaded. (C)2010, CAD Studio - www.cadstudio.cz")
(princ "\n_______ CAD, BIM, GIS/FM custom application development ________ ")

(princ)