0 Members and 1 Guest are viewing this topic.
(ssget "X" '((0 . "IMAGE")))
(vl-filename-extension (vla-get-ImageFile (vlax-ename->vla-object Ent) ))
Thank you Mr. T.
(vlax-map-collection (vla-get-filedependencies (vla-get-activedocument (vlax-get-acad-object) ) ) '(lambda (x) (if (= (vla-get-feature x) "Acad:Image") (setq lst (append lst (list (vla-get-fullfilename x))) ) ))