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

AutoLISP 與 Visual LISP 概述

3頁(共3頁) 上一頁  1, 2, 3

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

AutoLISP 與 Visual LISP 概述

發表 由 Tiger&蘋果爸 于 2009-10-30, 02:20

主題回顧 :

以前剛開始學 AutoLISP 時候,記得都是使用 Windows 記事本 來編輯攥寫,但是非常的辛苦,因為 括弧及雙引線 等語法都要成雙成對,而且還有一些函數、運算子、字串、整數及實數常常傻傻分不清楚,正因為 記事本 的環境為白底黑字,所以除非很清楚程式語法構架,但是老手也會常常找不到哪裡缺一個括弧。

使用 記事本 開啟 LISP檔案:


在這裡跟各位分享另一個 編輯攥寫 AutoLISP 的環境 [Visual LISP],使用這個軟體工具可以快速隨寫隨測,我覺得最棒的地方是預設內定使用文字顏色來區分所有的 函數、運算子、字串、整數及實數等等,所以對於初學LISP的朋友算是一大福音,再也不會被搞混囉,而且還可以幫你整理編排程式碼以及立即載入作用中的視窗。

VLISP指令:


「VLISP指令」顯示 Visual LISP 互動式開發環境。


使用 Visual LISP 開啟 LISP檔案:


以下程式碼是我上第一堂課學會使用 polar函數,polar函數可以求某點的指定角度和指定距離處的點,所以我試著使用它來畫出H型鋼的斷面尺寸,有興趣的朋友可以試看看,但是寫的不是很工整也請多多包含啦!!
代碼:
(defun C:RHSTEEL ()
  (SETVAR "CMDECHO" 0)
  (SETQ OLDOSMODE (GETVAR "OSMODE"))
  (SETVAR "OSMODE" 0)
 (setq P1 (getpoint "\n基準點")
 H (GETREAL "\nH=")
 W (GETREAL "W=")
 t1 (GETREAL "t1=")
 t2 (GETREAL "t2=")
 )
 (setq P2 (polar P1 0 W)
 P3 (POLAR p2 (* pi 0.5) t2)
 P4 (POLAR p3 pi (- (* W 0.5)(* t1 0.5)))
 P5 (POLAR p4 (* pi 0.5) (- (* H 1)(* t2 2)))
 P6 (POLAR p5 0 (- (* W 0.5)(* t1 0.5)))
                        P7 (POLAR p6 (* pi 0.5) t2)
 P8 (POLAR p7 PI W)
 P9 (POLAR p8 (* pi 1.5) t2)
       P10 (POLAR p9 0 (- (* W 0.5)(* t1 0.5)))
                       P11 (POLAR p10 (* pi 1.5) (- (* H 1)(* t2 2)))
       P12 (POLAR p11 pi (- (* W 0.5)(* t1 0.5)))
                        A1 (POLAR P11 PI t1)
                        A2 (POLAR P11 (* PI 0.5) t2)
                        A3 (POLAR P10 PI t1)
                        A4 (POLAR P10 (* PI 1.5) t2)
                        A5 (POLAR P4 0 t1)
                        A6 (POLAR P4 (* PI 0.5) t2)
                        A7 (POLAR P5 0 t1)
                        A8 (POLAR P5 (* PI 1.5) t2)
 )
(command "OSMODE" "0")
(command "Pline" P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 "c")
(command "ZOOM" P1 P7)
(command "FILLET" "R" "13" "FILLET" A1 A2 "FILLET" A3 A4 "FILLET" A5 A6 "FILLET" A7 A8 "FILLET" "R" "0")
(command "ZOOM" "P")
(SETVAR "OSMODE" OLDOSMODE)
(PRIN1)
 )

PS:相關函數說明可以自行參考書籍或是F1使用者說明,也可以參考 明經通道 的說明(簡體版)。
另外也可以把LISP作成工具列,或是掛在工具選項板中,當然指令式輸入或功能表都可以,這要看您個人的使用需求而定~


影音範例展示:(記得打開喇叭)

http://www.youtube.com/watch?v=oYpycdDx9QQ

說明:
■什麼是 AutoLISP ?
AutoLISP 是一種功能完備的解譯式程式語言,您可使用它呼叫 AutoCAD 指令、系統變數和對話方塊。AutoLISP 基於 LISP 程式設計語言,這種語言簡單易學且功能非常強大。因為 AutoCAD 具有內建 LISP 解譯器,所以您可以在指令行中輸入 AutoLISP 程式碼,也可以從外部檔案載入 AutoLISP 程式碼。

■什麼是 Visual LISP  ?
Visual LISP (VLISP) 是一種旨在加速 AutoLISP 程式開發的軟體工具。提供可提昇生產力的整合式開發環境 (IDE) (包括編譯器、除錯器以及其他開發工具),因而增強了 AutoLISP 功能。使用 Visual LISP 時,您可以在「指令」提示下輸入程式碼作實驗,就可以立即看到結果。 這使 AutoLISP 成為一種易於驗證的簡單語言,而不論您的程式設計經驗如何。

■「記事本」概觀
[記事本] 是基本的文字編輯器,可用以建立簡單的文件。[記事本] 一般多用於檢視或編輯文字 (.txt) 檔案,但許多使用者會發現 [記事本] 在建立網頁方面,也非常地簡單好用。

◆《評論》 LISP是什麼語言?
http://tw.knowledge.yahoo.com/question/article?qid=1706122002871

參考引用資料:
AutoCAD 2010 使用者說明



補上翔虹吳老師的網站分享:
AutoLISP的關鍵、基本結構及語法
http://www.autocad.com.tw/lisp_2.htm

快速分類瀏覽AutoLISP功能函數(一)
http://www.autocad.com.tw/lisp_3.htm

快速分類瀏覽AutoLISP功能函數(二)
http://www.autocad.com.tw/lisp_4.htm


Tiger&蘋果爸 在 2013-07-05, 05:10 作了第 3 次修改

____________________________________________________________________________________





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

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

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

回頂端 向下


回復: AutoLISP 與 Visual LISP 概述

發表 由 Beck 于 2016-10-05, 06:23

我是有掠人之美的運用Lisp的便捷,很想往這方面領域邁進但不得其門而入,希望先進們給個建議。

Beck
一般會員
一般會員

文章總數 : 56
年齡 : 52
來自 : 新竹
職業 : 配管系統設計
愛好 : 郊遊
個性 : 和善
使用年資 : 25 年
使用版本 : 2010/2012
經驗值 : 2233
威望值 : 72
注冊日期 : 2011-08-16
男 天秤座 龍

回頂端 向下

回復: AutoLISP 與 Visual LISP 概述

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

Beck 寫到:我是有掠人之美的運用Lisp的便捷,很想往這方面領域邁進但不得其門而入,希望先進們給個建議。
我自己的經驗學習lisp程式,如果可以請找老師學習,可以避免走冤旺路。
或者找一個朋友前輩同好,遇到問題可以立即詢問!

若是自學的話可以蒐集相關資源,再上各大討論區研究練習~
過程中可以參考前輩們的程式碼參考學習使用,每天不斷摸索練習!
竊喜

____________________________________________________________________________________





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

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

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

回頂端 向下

3頁(共3頁) 上一頁  1, 2, 3

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


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