如何修改光栅图片完整路径为相对路径

(defun C:tt11 (/ ssg xpath i obj enl elist blkdef path n Sub_Path)
  (setq ssg (ssget  '((0 . "IMAGE"))))
  (setq XPath (getvar "dwgprefix")) ;_取得当前文档路径
  (setq i 0)
  (setq n 0)
  (if ssg
  (repeat (sslength ssg)
    (setq ent (ssname ssg i))
    (setq obj (Vlax-Ename->Vla-Object ent))
      (progn
      (setq path(Vlax-Get obj 'ImageFile ));取得图像路径
      (setq m (vl-string-mismatch XPath path 0 0 t)) ;_前面有多少个相同的字符
      (setq Sub_Path (substr path (1+ m))) ;获取路径的子串
      (vla-put-path obj (strcat "." Sub_Path)) ;路径改为相对路径    xxxxx 没有path属性，该怎么解决
      (setq n (1+ n))
      )
    
    (setq i (1+ i))
  )
  )
  (princ)
)