;; | ---------------------------------------------------------------------------
;; | BL_GetBlkDef
;; | ---------------------------------------------------------------------------
;; | Function : Returns the complete block definition list from the symbol table
;; | Argument : 'BlkName' - Block Name
;; | Returns  : The complete block definition list or nil if this fails.
;; | Updated  : April 11, 2000
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun BL_GetBlkDef( BlkName / BlkDefLst ename entl tbl )

(setq BlkDefLst '())
(if (setq tbl (tblsearch "BLOCK" BlkName))
(progn
	(setq ename (LI_item -2 tbl))
	(while (setq ename (entnext ename))
		(setq
			entl (entget ename)
			BlkDefLst (append BlkDefLst (list entl))
		)
	)
))
BlkDefLst
)