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

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

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

望各位大侠帮忙
自动修改方式随意都可，只要能用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

;列图象名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)
)

smartstar 发表于 2012-6-5 21:42:00

学习了！！

flowerson 发表于 2022-7-25 19:35:00

这种方法是图片如果路径不存在的情况打开，就选择不到图像了。有其它办法不？
页: [1]
查看完整版本: 请问如何用lisp获取光栅图像的图像名