AutoLISP 與 Visual LISP 概述

主題回顧 :


以前剛開始學 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作成工具列，或是掛在工具選項板中，當然指令式輸入或功能表都可以，這要看您個人的使用需求而定~

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

https://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

很謝謝蘋果爸的用心,影片加上聲音的確聽起來更容易瞭解.感謝哪!!

想問問有沒有lisp 是可以用來數 block 我數目??

hopo0113 寫到:想問問有沒有lisp 是可以用來數 block 我數目??

您好:
請先完成升等手續後始可到討論區發表討論。
謝謝配合~

[新手請進]升等辦法:回覆規定五篇文章，立即升等一般會員!!
http://autocad.bestoforum.net/forum-f8/topic-t1685.htm

Visual LISP真是方便，用記事本的年代看到眼花，而且很有挑戰性，且有成就感，日後碰到工作都想用lisp 。

完全沒寫程式的底子
很多大大的程式很好用
不過都不太會用

很不錯的教學，謝啦！

哇～！糟糕…按錯了，「帖子威望」的投票按到負分了，原本想要下載原始碼的說。

耗呆小綿羊 寫到:
哇～！糟糕…按錯了，「帖子威望」的投票按到負分了，原本想要下載原始碼的說。

沒關係啦~
下次在幫我家回來就好!!

謝謝 蘋果爸 的苦心~感動ㄝ
點燃了我學LISP的火苗!

市面上曾經有書(AutoCAD工x標x零x庫, 內附光碟 list程式)
有大部份的型鋼(H,I,[,C,L,鋼軌等)真的粉好用,良心推薦
不過好像沒賣了.

好有深度...還是要努力學習阿?

大大
繪圖裡經常有好多線要加總，如何統計好幾個線段總長度，
可以幫幫忙。感恩

現在才爬到這篇文章真是我的錯……
早點看到這篇，就不用瞎子摸象似的胡亂試驗了

謝謝蘋果爸的教學

影片加聲音的學習，覺得可以縮短摸索的時間
對於autolisp程式語言部分，個人覺得有比較困難一點
等以後基礎打穩一點再來好好學習一下。
～感謝蘋果爸的分享～

蘋果爸文章中的超連結位置
 ◆明經通道 AutoLISP 函數
http://www.mjtd.com/object/autolisp/ALR.default.001.htm
已經失效.
明經通道的網站還在,所以應該是網站有改版的關係.
 ◆明經通道
http://www.mjtd.com/

RyanGuo 寫到:蘋果爸文章中的超連結位置
 ◆明經通道 AutoLISP 函數
http://www.mjtd.com/object/autolisp/ALR.default.001.htm
已經失效.
明經通道的網站還在,所以應該是網站有改版的關係.
 ◆明經通道
http://www.mjtd.com/

謝謝RyanGuo提醒連結失效！ 
應該是版權問題，所以不再免費分享了～


補上翔虹吳老師的網站分享：
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

請問一下 AutoLISP 可以計算 AutoCAD 檔案裡 "圖塊的長度", 和圖塊裡面"其他圖塊的相對間距"

然後輸出為一個EXCEL 檔案嗎?

謝謝!

Kenny

adolescent77 寫到:請問一下 AutoLISP 可以計算 AutoCAD 檔案裡 "圖塊的長度", 和圖塊裡面"其他圖塊的相對間距"
然後輸出為一個EXCEL 檔案嗎?
謝謝!
Kenny

可以的，你可以直接試試看～
  

不好意思, 我並不會寫Autolisp, 是因為公司有急需, 要我上來問看看
請問一下, 蘋果爸 你知道有人在代寫嗎?
公司傾向付費找人代寫 ( 因為急需 )
謝謝!

adolescent77 寫到:不好意思, 我並不會寫Autolisp, 是因為公司有急需, 要我上來問看看
請問一下, 蘋果爸 你知道有人在代寫嗎?
公司傾向付費找人代寫 ( 因為急需 )
謝謝!

您可以將需求發表在「職缺快遞」尋找代寫LISP人才。
最好補充圖片方便了解需求，我在幫您PO論壇信通知會員朋友們～

[職缺快遞]找人才-AutoCAD繪圖人員...<範例>

職缺快遞版區
https://www.autocad-tw.com/f37-forum

謝謝 蘋果爸!!!

Tiger&蘋果爸 寫到:

adolescent77 寫到:不好意思, 我並不會寫Autolisp, 是因為公司有急需, 要我上來問看看
請問一下, 蘋果爸 你知道有人在代寫嗎?
公司傾向付費找人代寫 ( 因為急需 )
謝謝!

您可以將需求發表在「職缺快遞」尋找代寫LISP人才。
最好補充圖片方便了解需求，我在幫您PO論壇信通知會員朋友們～

[職缺快遞]找人才-AutoCAD繪圖人員...<範例>

職缺快遞版區
https://www.autocad-tw.com/f37-forum

https://www.autocad-tw.com/t17071-topic#114687

我已經po好了, 不知道格式可不可以
請幫我PO論壇信
謝謝 蘋果爸!!!

好有用的影片，我是新手，努力學習中，多謝蘋果爸的付出!

大家都好厲害啊, 感謝無私分享 ^^

加入聲音使教學更聲動了，也比較容易了解，感恩。