;; | ---------------------------------------------------------------------------
;; | BL_GetAtts
;; | ---------------------------------------------------------------------------
;; | Function : Get the values of the attributes and their flags in a BLOCK
;; |            INSERT entity
;; | Argument : BlkName (entity ename)
;; | Return   : A list containing the the attribute value, tag and flag.
;; | Updated  : June 9, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------


(defun BL_GetAtts ( ename / entl en Att Tag AttLst flag tmp )

(setq
	AttLst '()
	entl    (entget ename)
	tmp     (LI_item 66 entl)
)
(if (and tmp (not (zerop (logand tmp 1))))
(progn
	(setq
		ename (entnext ename)
		entl  (entget ename)
		en    "ATTRIB"
	)
	(while (/= en "SEQEND")
		(setq
			Att    (LI_item 1 entl)
			flag   (LI_item 70 entl)
			Tag    (strcase (LI_item 2 entl))
			AttLst (append AttLst (list (list Att Tag flag ename)))
			ename  (entnext ename)
			entl   (entget ename)
			en     (LI_item 0 entl)
		)
	)
))
AttLst
)