;;;Block Lister
;;;by TG Christman
;;;Returns the name and scale of a selected block

(defun c:lblk()
  (setq dp (getvar "luprec"))
  (if (< dp 2)(setvar "luprec" 2))
  (setq blk (entsel "\nPick block to Identify"))(terpri)
  (setq blkyn (cdr (assoc 0(entget (car blk)))))(terpri)
  (while (/= blkyn "INSERT")
    (princ "\nObject is not a block, Please try again")
    (setq blk (entsel "\nPick block to Identify"))(terpri)
    (setq blkyn (cdr (assoc 0(entget (car blk)))))(terpri)
  )
  (setq bnm (cdr (assoc 2(entget (car blk)))))(terpri)
  (setq bsc (cdr (assoc 41(entget (car blk)))))(terpri)
  (setq bscstrng (rtos bsc))
  (princ (strcat "\nThe selected block is named: " bnm))
  (princ (strcat "\nWith a scale factor of: " bscstrng))
  (setvar "luprec" dp)
  (princ)
)
(princ "\nBlock Lister is now loaded")
(princ "\nType LBLK to run")
(princ)