;;;Construct a list of entity lists contained in a block.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1/04/2001
;;;>		   EDITED: 05-06-2001
;;;
(defun c:blklst ()
  (setq elist nil)
  (setq blkname (ustr 1 "Block name: " blkname nil))
  (setq blkhead (tblsearch "block" blkname))
  (if (cdr(assoc -2 blkhead))
    (progn
      (setq ename (cdr(assoc -2 blkhead)))
      (while ename
        (if elist
          (setq elist (append elist (list (entget ename))))
          (setq elist (list (entget ename)))
        )
        (setq ename (entnext ename))
      )
    )
    (princ (strcat "\nBlock " blkname " not found! "))
  )
)