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,即可實現(xiàn)。。。
承擔因您的行為而導致的法律責任,
本站有權保留或刪除有爭議評論。
參與本評論即表明您已經閱讀并接受
上述條款。