Visual LISP, AutoLISP and General Customization

[#1]

Greetings!

HEADACHE!

I am trying to write a LISP that does the following:

-Open drawing

-Saveas as NEW drawing based on certain criteria from DCL menu

-Deletes old drawing

-*THEN, if drawing contain attached IMAGE FILE (.tiff in my case)

-Rename image file and repath image file based on the new file name

I have gotten it to do all of this, except I can not figure out how to change the "reference name" of the attached image file (.tiff)

Is this read-only data? I can manualy change it under xref manager, so there should be a way to do it via code...

The closest I have gotten:

;;after renaming and repath image file...

(SETQ NAME2 (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4)))

(setq item (vlax-ename->vla-object (entlast)));convert to vl object

  (setq check (vlax-property-available-p item "Name" T));check if the entity can be updated

  ;if it can
  (if check

   ;change value to match
   (vlax-put-property item 'Name NAME2))

'Name seems to be valid w/ xref'd blocks but not xref'd/attached image files..

Any help is greatly apprecated!

Thanks

[#2]

Hi,

check this...it will return T if it successed or nil if not

(defun rename_raster_image (AcDbRasterImage NewImageName)
 (if (vlax-property-available-p AcDbRasterImage 'name t)
  (if (not
        (vl-catch-all-error-p
	 (vl-catch-all-apply
	   '(lambda ()
	      (vlax-put-property AcDbRasterImage 'Name NewImageName)
	    )
	 )
        )
      )
   t
  )
 )
)

Moshe