请问如何用lisp获取光栅图像的图像名

quanguang

光栅图像的名字有问题，我想利用lisp自动修改它的图像名字，不知道如何做，见下图


望各位大侠帮忙
自动修改方式随意都可，只要能用lisp读出光栅图像的名字就行

Gu_xl

;;取得光栅图像对象的文件名
(setq filename (cdr (assoc 1 (entget (cdr (assoc 340 (entget (car(entsel “\n选择光栅图像对象:”)))))))))

quanguang

谢谢Gu_xl 老大，不过好像运行不了，总是提示“tt ; 错误: 参数类型错误: stringp nil”！！
zzxxqq老大帮我解决啦
(cdr(assoc 3 (entget(cdr(assoc 330 (entget(cdr(assoc 340 (entget(car(entsel)))))))))))

ZZXXQQ

1. ;列图象名image name 明经 ZZXXQQ 2012.6.5
   
2. (defun c:tt ()
   
3. (if (setq ss (ssget '((0 . "IMAGE")))) (progn
   
4.   (setq i 0)
   
5.   (repeat (sslength ss)
   
6.    (setq ent (entget(ssname ss i)))
   
7.    (princ "\n")
   
8.    (princ (cdr(assoc 3 (entget(cdr(assoc 330 (entget(cdr(assoc 340 ent)))))))))
   
9.    (setq i (1+ i))
   
10.   )
    
11. ))
    
12. (princ)
    
13. )
    

;列图象名image name 明经 ZZXXQQ 2012.6.5<br /> (defun c:tt ()<br /> (if (setq ss (ssget '((0 . "IMAGE")))) (progn<br />   (setq i 0)<br />   (repeat (sslength ss)<br />    (setq ent (entget(ssname ss i)))<br />    (princ "\n")<br />    (princ (cdr(assoc 3 (entget(cdr(assoc 330 (entget(cdr(assoc 340 ent)))))))))<br />    (setq i (1+ i))<br />   )<br /> ))<br /> (princ)<br /> )<br />

smartstar

学习了！！

flowerson

这种方法是图片如果路径不存在的情况打开，就选择不到图像了。有其它办法不？