AutoLISP 與 Visual LISP 概述

[Tiger&蘋果爸]

以前剛開始學 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

[米虫]

是不是微軟版本的autolisp 跟DOS版本R12一樣 修改LISP內容就可變更指令的功能

[米虫]

奇怪 講解中H型鋼內的圓角怎沒參數 那圓角很重要 不是隨便定的ㄟ
因為我常用到H型鋼

[Tiger&蘋果爸]

奇怪 講解中H型鋼內的圓角怎沒參數 那圓角很重要 不是隨便定的ㄟ
因為我常用到H型鋼

被發現了!!
因為第一堂課還沒有學 判斷式，所以我的R值是給固定的!!

根據鋼構手冊R值是會變的!
謝謝補充~

[lindalin]

連問的問題都好有深度ㄚ...

[米虫]

拍謝..畫H型鋼這東西 摸了好多年 當然對它很熟悉...失禮了

[Tiger&蘋果爸]

連問的問題都好有深度ㄚ...

R值是指以下部分喔~

[judyyai]

有聲音教學!更清楚了解內容為何!
蘋爸!辛苦了!
讚

JUDY也學到一些

[lindalin]

所以說那個R值是要套公試算的嗎？如依B 或 H值 然後乘除嗎？

[id66fion]

好棒的一篇文~
因為visual lisp的功能很多不知道
所以都用 記事本去修改
在這影片中 我看到了我所需要的資訊~
謝謝!!

[Tiger&蘋果爸]

有聲音教學!更清楚了解內容為何!
蘋爸!辛苦了!
讚

JUDY也學到一些

謝謝JUDY的支持啦~
聲音是昨晚等小蘋果睡的時候才錄製的!!

[Tiger&蘋果爸]

所以說那個R值是要套公試算的嗎？如依B 或 H值 然後乘除嗎？

R值不是使用公式試算，而是工業標準(鋼設計手冊有說明)。
http://tech.ths.com.tw/ths1/1_111.htm

[學習者]

LISP→這工具是怎樣如何學習他是像c語言之類的嗎?
由於對程式一竅不通，要怎樣學如何學?
還有影片上的"聚合線多重接合"是寫出來的嗎?還是本上cad就有功能?

[小青蛙]

LISP→這工具是怎樣如何學習他是像c語言之類的嗎?
由於對程式一竅不通，要怎樣學如何學?
還有影片上的"聚合線多重接合"是寫出來的嗎?還是本上cad就有功能?

◆明經通道 选择AutoLISP还是VBA
http://www.mjtd.com/Develop/ArticleShow.asp?ArticleID=1086
.影片上的"聚合線多重接合"是寫出來的嗎?
很明顯是lisp寫的,相當好用的語法對於cad/cam多重聚合線可演算cnc機械路徑..

[lindalin]

Tiger&蘋果爸寫到:
R值不是使用公式試算，而是工業標準(鋼設計手冊有說明)。
http://tech.ths.com.tw/ths1/1_111.htm

瞭解...每天最期待的就是蘋果爸及各位同好的新文章喔～

[Tiger&蘋果爸]

LISP→這工具是怎樣如何學習他是像c語言之類的嗎?
由於對程式一竅不通，要怎樣學如何學?
還有影片上的"聚合線多重接合"是寫出來的嗎?還是本上cad就有功能?

◆明經通道 选择AutoLISP还是VBA
http://www.mjtd.com/Develop/ArticleShow.asp?ArticleID=1086
.影片上的"聚合線多重接合"是寫出來的嗎?
很明顯是lisp寫的,相當好用的語法對於cad/cam多重聚合線可演算cnc機械路徑..

這是一個很簡單的LISP，只要你有學過相信你會很快上手~
其實使用 指令字串(巨集) 也是可以的，我覺得還蠻有趣的!!
^C^CPEDITACCEPT;1;SELECT;\PEDIT;M;P;;J;1;;PEDITACCEPT;0;

[Tiger&蘋果爸]

瞭解...每天最期待的就是蘋果爸及各位同好的新文章喔～

有機會你也可以一起分享~
因為團結力量大!!

[Tiger&蘋果爸]

以下內文感謝 CADkawaii 熱心解說!!

R值是根據腹板翼板結合強度需求而來，他的強度跟角焊計算方式類似。
鋼鐵手冊是根據力學計算與實驗結果而來，他的實質意義還是力學計算公式。

AutoCAD 不只劃圖還可以規劃程式流程

建構類的 AutoLisp 要避免鎖點功能在旁邊有圖元的情況下發生干擾，通常在產生圖元的程式最好置於特定的圖層並且關閉其他圖層。

[W-LIN]

好感動喔，影片有聲音， judyyai 老師提醒才打開喇叭，聽聲音教學
真的更清楚教學內容 感謝
雖然不了解AUTOLISP但現在知道去哪裡找資料了
真是感謝 感謝 再 感謝

[Tiger&蘋果爸]

好感動喔，影片有聲音， judyyai 老師提醒才打開喇叭，聽聲音教學
真的更清楚教學內容 感謝
雖然不了解AUTOLISP但現在知道去哪裡找資料了
真是感謝 感謝 再 感謝

不客氣啦~
有問題可以在提出來討論!!

[鐵漢]

複習一下
好久沒玩了
讚讚讚

[maoj]

有了真正的教室，可以滿足學生視聽的學習，在學習上真有如虎添翼的效果

感謝！再感

[doxyz]

有一事請教:
我用過以前的版本, 它可以產生 ARX 的檔案, 可是現在的版本 ARX 的選項
不見了, 若我想編譯成 ARX 的檔案要如何製作?
非常感謝

[Tiger&蘋果爸]

有一事請教:
我用過以前的版本, 它可以產生 ARX 的檔案, 可是現在的版本 ARX 的選項
不見了, 若我想編譯成 ARX 的檔案要如何製作?
非常感謝

我沒有使用過編譯成 ARX ，可以分享先說明一下您的方法!
據了解應該還要再另外下載才行~

[王小美]

真的有點難啊，還是要認真學。