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