Rename image

Does any one know how to (in lisp or vba for ac2002):
1. Check if there is an image with the same file name as the drawing.
2. If it exists an image but with an other file name, rename it to the drawings file name.

/Gösta

 

Are you doing this with the drawing open or closed? I don't think you can rename an image that is attached to an open drawing. You could use (if (setq data (dictsearch (namedobjdict) "acad_image_dict")), then use vl-file-copy.
Jason and Louis helped me with one in this NG that worked on a drawing close reactor, but that was quite some time ago. As I recall, it worked very well. You might search the NG for raster or image filename and find the same code posted. HTH

 

Hmm, NG what’s that?

Some background...
We have a document management system (IFS) who change the filename when a new version is created.
Example, docno: 1, version: A, have 2 files 1-a.dwg and an image file 1-a.cal.
Then I make a new version (B) of the document, the filename changes to: 1-b.dwg and 1-b.cal, but inside the dwg the image attached is 1-a.cal (the old version)!
I am searching for a function that changes the name of the image file when the dwg is opened!
/Gösta

 

NG = newsgroup or discussion group, various areas for discussion
on this server

 

If you're just AutoCad, I don't think you can make that happen. However, RasterDesign has an option called autoreplace that would work.