Topic: How to get the image list with lisp?

[guohq]

How to get the image list with lisp whether the image is deleted or no!

[guohq]

(defun ImageLst ( / dicts  err imgdict num nn img rtn)
  (setq dicts (vla-get-dictionaries (vla-get-activedocument (vlax-get-acad-object))))
  (setq err (vl-catch-all-apply 'vla-item (list dicts "ACAD_IMAGE_DICT")))
  (if (vl-catch-all-error-p err)
    (setq rtn nil)
    (progn
      (setq imgdict (vla-item dicts "ACAD_IMAGE_DICT"))
      (setq num (vla-get-count imgdict) rtn'() nn 0)
      (repeat num
   (setq img (vla-item imgdict nn) nn (1+ nn))
   (setq rtn (cons img rtn))
   )
      )
    )
  )

[Lee Mac]

Could be shortened:

Code: [Select]

(defun ImageLst (/ img lst)
  (vl-load-com)
  (if (vl-catch-all-error-p
        (setq img
          (vl-catch-all-apply 'vla-item
            (list
              (vla-get-dictionaries
                (vla-get-activedocument
                  (vlax-get-acad-object))) "ACAD_IMAGE_DICT")))) nil
    (vlax-for i img
      (setq lst (cons i lst))))
  lst)


[CAB]

More:
http://www.theswamp.org/index.php?topic=25090.msg302299#msg302299