(defun c:nl ()
  (setq curlayout (getvar "CTAB")
llist   (reverse (cdr (getlayouts)))
len   (length llist)
count   1
  )
  (while (and (/= nil count)
      (/= nil (setq layname (car (car llist))))
)
    (if (= curlayout "Model")
      (progn
(setvar "CTAB" layname)
(setq count nil)
      )
    )
    (setq llist (cdr llist))
    (if (= curlayout layname)
      (progn
(if (/= nil (setq layname (car (car llist))))
  (progn
    (setvar "CTAB" layname)
    (setq count nil)
  )
  (progn
    (setvar "CTAB" "Model")
  )
)
      )
    )
  )
)
(defun getlayouts (
   /
   rtlist
   docObj
   layoutsCol
  )
  (setq
    docObj     (vla-get-activedocument (vlax-get-acad-object))
    layoutsCol (vla-get-layouts docObj)
  )
  (vlax-for layoutObj layoutsCol
    (setq
      rtlist (append (list
       (list
(vlax-get-property layoutObj 'Name)
layoutObj
       )
     )
     rtlist
     )
    ) ;end setq
  ) ;end vlax-for
) ;end getlayouts