[討論]圖片利用LISP來開啟

各位前輩好，我工作中需要CAD使用到JPG檔的圖片，想說寫個LISP讓工作更有效率
自己不是專工繪圖這方面，只會用簡易的2D，也剛學習LISP

(DEFUN C:II()
 (setvar "cmdecho" 0)
 (command "_imageattach" "D:/新增資料夾"); 插入圖片
 (prin1))
以上是錯的

我是要寫說在D槽中的新增資料夾開啟，然後在選擇自己要的圖片
不知道寫錯需要改
懇求各位幫幫忙 謝謝

你是想要完成「imageattach外部參考圖片檔」的lisp程式嗎？

Tiger&蘋果爸 寫到:你是想要完成「imageattach外部參考圖片檔」的lisp程式嗎？

是的 麻煩請蘋果爸幫我解答 謝謝

PINRUI 寫到:各位前輩好，我工作中需要CAD使用到JPG檔的圖片，想說寫個LISP讓工作更有效率
自己不是專工繪圖這方面，只會用簡易的2D，也剛學習LISP
…

下面的代碼是插入單一圖片，可以再依自己的需求修改。

代碼:


(defun c:test (/ os ff pt)
  (setq os (getvar "osmode"));獲取鎖點的設定
  (setq ff (getfiled "選取圖片檔" "" "bmp;jpg" 2));副檔名的部份可以自己再加
  (setq pt nil)
  (setq pt (getpoint "\n選擇插入點:"))
  (setvar "osmode" 0);解除鎖點設定
  (command "-image" "attach" ff pt "1" "0");這個指令可以查cad的說明文件
  (command "zoom" "e");視窗放大，可視需求自己改囉！
  (setvar "osmode" os);恢復鎖點設定
  (princ)
)


Atsai 寫到:

PINRUI 寫到:各位前輩好，我工作中需要CAD使用到JPG檔的圖片，想說寫個LISP讓工作更有效率
自己不是專工繪圖這方面，只會用簡易的2D，也剛學習LISP
…

下面的代碼是插入單一圖片，可以再依自己的需求修改。

代碼:


(defun c:test (/ os ff pt)
  (setq os (getvar "osmode"));獲取鎖點的設定
  (setq ff (getfiled "選取圖片檔" "" "bmp;jpg" 2));副檔名的部份可以自己再加
  (setq pt nil)
  (setq pt (getpoint "\n選擇插入點:"))
  (setvar "osmode" 0);解除鎖點設定
  (command "-image" "attach" ff pt "1" "0");這個指令可以查cad的說明文件
  (command "zoom" "e");視窗放大，可視需求自己改囉！
  (setvar "osmode" os);恢復鎖點設定
  (princ)
)


謝謝 Atsai前輩 這麼熱心在程式中加入註解，對於初學者的確很有幫助～