Does Drawing contain an Image

[petervose]

I'm trying to return a list of loaded images on a drawing, but failing. If someone could point me in the right direction it would be greatly appreciated.
Thanks Peter

[rewilson]

(defun getImagePaths (/ data paths)
(if (setq data (dictsearch (namedobjdict) "acad_image_dict"))
(foreach item data
(if (= 350 (car item))
(setq
paths (cons (cdr (assoc 1 (entget (cdr item)))) paths)
)
)
)
)
paths
)


(defun c:dwgOk (/ data item)
(if (setq data (getImagePaths))
(if
(and
(= 1 (length data))
(setq item (car data))
(equal
(strcase
(strcat
(vl-filename-directory item)
"\\"
(vl-filename-base item)
)
)


(strcase
(strcat
(getvar "dwgprefix")
(vl-filename-base (getvar "dwgname"))
)
)
)
)
(princ
"\nFILENAME AND IMAGENAME MATCH"
)
(princ
(alert
"\nMORE THAN ONE IMAGE IS ATTACHED OR\nTHE FILENAMES/PATHS ARE NOT THE SAME"
)
)
)
(princ "\nno images attached")
)
(princ)



)

[petervose]

That's exactly what I was after - Thanks very much for the quick response and the code.
Peter

[rewilson]

You're welcome.........and thanks to Jason Piercey for helping out with the code. 🙂

[Anonymous]

Peter, If the name of the image is of any interest, take a look at the thread "Image detach using lisp" 2/18/2004. My last post there. Joe Burke "petervose" wrote in message news:21291556.1077646533693.JavaMail.jive@jiveforum1.autodesk.com... > I'm trying to return a list of loaded images on a drawing, but failing. If someone could point me in the right direction it would be greatly appreciated. > Thanks Peter