工程测量数值化在AutoCAD之应用研习（Auto lisp自动绘图） - 瑞芳高工.DOC

國立瑞芳高級工業職業學校 97年度校內教師研習 土木建築群 工程測量數值化在AutoCAD之應用研習 （Auto lisp自動繪圖） 主講人 土木科 翁明郎老師 參考資料：Auto lisp DCL 吳永進 林美櫻 編著 目錄 簡介…………………………………………….1 重要的 AutoLISP 的基本語法結構： ………： ………………………………： …………………………………… 工程測量數值化在AutoCAD之應用研習講義 （Auto lisp自動繪圖）AutoLISP內含於AutoCAD軟體內,不用另外花錢買! AutoLISP是強化AutoCAD最好、最直接的『程式語言』 AutoLISP是AutoLISP可以協助達成此目的。 我對測量實習教學未來之期許：測量實習教學上若以實務考量應當數值化、程式化，應當教學生將測量成果數值化、計算過程程式化，在測量實習課的教學上應當有1/2時數，結合測量繪圖軟體進行測量實習，並讓學生學習程式設計來簡化內業計算，以因應業主的須求。 1. AutoLISP 程式語言的特質 A.語法簡單B.功能函數強大C.撰寫的環境不挑剃D.直譯式程式,即寫即測、即測即用 AutoLISP 程式語言的強化 AutoCAD 原有指令創造更有用的 AutoCAD 新指令簡化繁瑣的環境設定或繪圖步驟圖面資料讀檔、寫檔 （二）重要的 AutoLISP 的基本語法結構： 規則1：以括弧組成運算式,左右括弧數一定要成雙成對、相對稱 (+ 1 2 3 4 5) 傳回加總和15(/ 10 3)) !a----3 (setq a(/10.0 3)) !a----3.333333 (max 14.5 8.9 35) 傳回最大值35 (setq a (* 12.5 4)) 傳回相乘值 50,同時設定給『變數 a』 !a 回應50 (註:! 號可用來查詢變數值) 錯誤的範例： 指令:(setq a (* 12.5 4) 1 傳回1表示少了一個括弧 1 ) 此時,只要再補上一個 ) 即可 規則2：運算式型態 (運算元 運算子 運算子 運算子 ...)或 (函數(式) 引數 引數 引數 ...) 或 (函數(式) 元素 元素 元素 ...) 運算元包括『功能函數』『自定函式』 自定函式: 由設計者自行定義的新函式或副程式 運算子(又稱引數或元素)包括: A.整數(Integer): 如8,-17,500,9999… B.實數(Real): 如8.5,-17.456… C.字串(String): 如 AutoCAD,123,Enter Real:,7.5,… D.串列(List): 如 (a b c),(x y),(x y z),(a 8 3.5),.... E.圖元名稱代碼:如 entity name: 6000f262 ... F.檔案代碼: 如file:#12438… G.選擇群集代碼: 如Selection set:1、Selection set:1… 規則3 ：運算式中的『運算子』,可以是另一『運算式』或『副程式』功能函數使用語法: (strcat 字串1 字串2 字串3 ....) 字串結合功能函數 (getstring 提示) 要求鍵入一個字串 (rtos 實數) 將實數轉換成字串 範例說明1: (strcat abc 123 LISP) 傳回：abc123LISP 範例說明2: (strcat abc (getstring Enter String: ) (rtos 123.45)) 執行結果: Enter String: 鍵入任一字串,假設是鍵入 HELLO 回應 abcHELLO123.45 規則4：多重的括弧運算式,運算的先後順序是『由內而外、由左而右』 範例說明: 請將10.25 + 17 - 13.2 / 7的結果,設定給變數kk，並轉換成AutoLISP 的運算式 (setq kk (- (+ 10.25 17) (/ 13.2 7))) 規則5：以檔案型態存在的AutoLISP程式(ASCII檔案),其副檔名必須是.LSP 規則6：撰寫的環境,只要是一般的文書編輯軟體,可編輯 ASCII 檔案者都適用 如:PE2、PE3、DW3、書中仙、漢書、EDIT、記事本....等 規則7：以 defun 功能函數定義新的指令或新的功能函式 (註:引數及區域變數可省略) 程式結構型態：(defun 函式名稱(引數/區域變數) 程式內容) 規則8：新定義的功能函式名稱,若為『C:函式名』,則此函式可為 AutoCAD 新指令 (註:引數及區域變數可省略) 程式結構型態： (defun C:KK(引數/區域變數) 程式內容) 則載入此 LISP 程式後,可在 指令: 後直接鍵入新定義的 KK 指令