; CADLabo.com - selected top-level objects
(defun c:CR_COUNT (/ ss)
  (setq ss (ssget))
  (if ss
    (progn
      (princ "\nCount: ")
      (princ (sslength ss))
    )
    (princ "\nNothing selected.")
  )
  (princ)
)