如何修改光栅图片完整路径为相对路径
(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)
)
image图片没有path属性，怎么修改完整路径为相对路径呢。 用 vla-put-imagefile 函数
页:
[1]