;; ! ***************************************************************************
;; ! IM_GetImagesLst
;; ! ***************************************************************************
;; ! Function : Returns the list of all images attached to the current drawing
;; ! Arguments: 'none'
;; ! Returns  : The attached images are returned as a list of path and image
;; !            file name wil complete path.
;; ! Action   :
;; ! Updated  : March 3, 2000
;; ! e-mail   : rakesh.rao@4d-technologies.com
;; ! Web      : www.4d-technologies.com
;; ! ***************************************************************************


(defun IM_GetImagesLst( / ImgLst _ImgLst ename )

(setq ImgLst (dictsearch (namedobjdict) "ACAD_IMAGE_DICT"))
(if ImgLst
(progn
	(setq ImgLst (LI_mitem 350 ImgLst))
	(if ImgLst
	(progn
		(setq _ImgLst '())
		(foreach ename ImgLst
			(setq _ImgLst (cons (LI_item 1 (entget ename)) _ImgLst))
		)
		(setq ImgLst (reverse _ImgLst))
	))
))
ImgLst
)