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

quanguang · 发表于 2012-6-5 19:27:00

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

mhhfjdfpxh0.jpg

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

Gu_xl · 发表于 2012-6-5 20:33:00

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

quanguang · 发表于 2012-6-5 20:47:00

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

ZZXXQQ · 发表于 2012-6-5 21:07:00

copy

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