CAD图片的搜索功能太过麻烦了,我们可以用记事本写一个Autolisp的程序。
程序如下:
(defun c:SearchImages (/ ss ent)
(setq ss (ssget "_X" '((0 . "IMAGE"))))
(if ss
(progn
(repeat (setq i (sslength ss))
(setq ent (entget (ssname ss (setq i (1- i)))))
(prompt (strcat "\nImage found: " (cdr (assoc 1 ent))))))
(prompt "\nNo 没有在此文件中找到对应的图片."))
(princ)
)
写好后另外为lsp格式的方档。然后打开CAD,选择“工具”-“autolisp”-"加载应用程序"。

在命令行中运行SearchImages,即可实现。。。







承担因您的行为而导致的法律责任,
本站有权保留或删除有争议评论。
参与本评论即表明您已经阅读并接受
上述条款。