;TIP582.LSP   Identify Elenents   (c)1990, Steve Kirk
(defun c:rad (/ A B C D E)
  (graphscr)
  (setq A (entsel
    "\nChoose Entity: radius is "))
  (setq B (car A)) ;entity list
  (setq C (entget B)) ;extract
  (setq D (assoc 40 C)) ;isolate radius
  (setq E (cdr D)) ;return radius value
  (prompt (rtos E))(prin1) ;print radius
)
(defun c:lay (/ A B C D E)
  (graphscr)
  (setq A (entsel
    "\nChoose Entity: layer is "))
  (setq B (car A))
  (setq C (entget B))
  (setq D (assoc 8 C))
  (setq E (cdr D))
  (prompt E)(prin1)
)