AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

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

上一篇主題 下一篇主題 向下

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

發表 由 PINRUI 于 2016-06-05, 14:03

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

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

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

文章總數 : 9
年齡 : 27
來自 : 台南市
職業 : 學生
愛好 : 打球
個性 : 活潑
使用年資 : 2年
使用版本 : 2014
經驗值 : 576
威望值 : 0
注冊日期 : 2016-05-02
男 摩羯座 蛇

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2016-06-12, 15:19

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

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17191
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 64603
威望值 : 12753
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

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

發表 由 PINRUI 于 2016-06-12, 16:57

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

是的 麻煩請蘋果爸幫我解答 謝謝
avatar
PINRUI
一般會員
一般會員

文章總數 : 9
年齡 : 27
來自 : 台南市
職業 : 學生
愛好 : 打球
個性 : 活潑
使用年資 : 2年
使用版本 : 2014
經驗值 : 576
威望值 : 0
注冊日期 : 2016-05-02
男 摩羯座 蛇

回頂端 向下

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

發表 由 Atsai 于 2016-06-13, 15:53

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)
)
avatar
Atsai
中級會員
中級會員

文章總數 : 115
年齡 : 42
來自 : 台中
職業 : 工程
愛好 : 看漫畫
個性 : 樂天
使用年資 : 10
使用版本 : 2010
AutoCAD基礎篇等級 : 10星級
積分 : 7
經驗值 : 2901
威望值 : 337
注冊日期 : 2012-04-06
男 金牛座 兔

回頂端 向下

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

發表 由 Tiger&蘋果爸 于 2016-06-14, 04:10

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前輩 這麼熱心在程式中加入註解,對於初學者的確很有幫助~
讚啦!!

____________________________________________________________________________________
avatar
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 17191
年齡 : 41
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 15↑
使用版本 : AutoCAD 2016
經驗值 : 64603
威望值 : 12753
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i11.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

上一篇主題 下一篇主題 回頂端


 
這個論壇的權限:
無法 在這個版面回復文章