(if (and (setq ss (ssget "x" '((0 . "VIEWPORT"))))
(> (sslength ss) 1)
    )
  (foreach i (layoutlist)
        (setvar "CTAB" i)
    (command "_.mview" "_Lock" "_On" ss "")
  )
)