;; |----------------------------------------------------------------------------
;; |BL_GetAllBlks
;; |----------------------------------------------------------------------------
;; | Function : Find out the names of the 'normal' blocks in the drawing
;; | Argument : none
;; | Returns  : A list of all current 'normal' blocks
;; | Updated  : April 17, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun BL_GetAllBlks ( / BlkLst XrefLst Lst tmp )

(setq
	BlkLst '()
	Lst (MI_tbldata "BLOCK")
)
(if Lst
(progn
	(setq Lst (cadr Lst))
	(foreach tmp Lst
		(if (member (LI_item 70 tmp) (list 0 2))		; Normal block and block with attribute
			(setq BlkLst (cons (LI_item 2 tmp) BlkLst))
		)
	)
))

(if BlkLst
	(setq BlkLst (acad_strlsort (mapcar 'strcase BlkLst)))
)
BlkLst
)