;;;Elise Moss
;;;Moss Designs
;;;October 2005
;;;www.mossdesigns.com

(defun c:lotot ()
  ; get list of lyaouts 
  (setq layout-list (layoutlist))
  ; count how many items in the list
  (setq list-count (rtos(length layout-list) 2 0))
  (alert (strcat "Number of layout sheets: " list-count))
  

);end defun
(princ "\nType 'lotot' to find out how many layout sheets there are.")