Topic: Image path question

[V-Man]

How do I go about stripping an images saved path?

I use the below code for stripping xref saved paths...

Code: [Select]


(defun c:spath (/ BLKNAM CNT XNAME)
(prompt "\n[X-REPATH] - Strips all Xref paths.")
(prompt "\nX-REPATH Working... please wait ")
(setq CNT 1)
(while (setq BLKNAM (tblnext "BLOCK" CNT))
(setq CNT nil)
(if (and (/= (assoc 1 BLKNAM) nil)
(> (- (strlen (cdr (assoc 1 BLKNAM))) 4)
(strlen (cdr (assoc 2 BLKNAM)))
)
)
(command ".xref" "path" (cdr (assoc 2 BLKNAM)) (cdr (assoc 2 BLKNAM)) )
)
)
(prompt "\nX-REPATH Done! ")
(princ)
)


[daron]

Images are a little bit more complicated and I've only found it possible through ActiveX. Even that is difficult. If you don't get too much further here, I'll see what I can drudge up on image paths. The problem with repathing is, at least for me, it seemed that the image was active, even though it was pathed wrong and changing it was like renaming a file that's open.

[V-Man]

I came up with this so far...

Code: [Select]


(setq imagedict (dictsearch (namedobjdict) "ACAD_IMAGE_DICT"))


[Mark]

How about an activeX method.

Code: [Select]


(vl-load-com)
(vlax-for obj
  (vla-get-modelspace
(vla-get-activedocument (vlax-get-acad-object))
)
   (if
(= (vlax-get-property obj 'ObjectName) "AcDbRasterImage")
 (setq img_path (vlax-get-property obj 'ImageFile))
 )
   )