【正文】 : (可選擇物體 ) 選取對象 : (可選擇物體 ) 選取對象 : (按 [ENTER] 鍵 ) 響應 Selection set:1 規(guī)則 3 ：表達式中的『 運算子』 ,可以是另一『表達式』或『子程序』功能函數(shù)使用語法 : (strcat 字符串 1 字符串 2 字符串 3 ....) 字符串結(jié)合功能函數(shù) (getstring 提示 ) 要求鍵入一個字符串 (rtos 實數(shù) ) 將實數(shù)轉(zhuǎn)換成字符串 范例說明 1: (strcat abc 123 LISP) 傳回： abc123LISP 范例說明 2: (strcat abc (getstring Enter String: ) (rtos )) 執(zhí)行結(jié)果 : Enter String: 鍵入任一字 符串 ,假設是鍵入 *HELLO* 響應 abc*HELLO* 本例中的 strcat 函數(shù)在語法中要求的『運算子』必須是『字符串』型態(tài) 『運算子 1』 = abc 是正常的字符串運算子 『運算子 2』 = 表達式 (getstring Enter String:) 傳回結(jié)果是一字符串 *HELLO* 『運算子 3』 = 表達式 (rtos ) 傳回結(jié)果是一字符串 規(guī)則 4：多重的括號表達式 ,運算的先后順序是『由內(nèi)而外、由左而右』 范例說明 : 請將 + 17 / 7 的結(jié)果 ,設定給變量 kk，并轉(zhuǎn)換成 AutoLISP 的表達式 解法技巧 A： 1:運用『二分法、加括號』： ( + 17) ( / 7) 中國最龐大的下資料庫 (整理 . 版權(quán)歸原作者所有 ) 中國最龐大的下資料庫 (整理 . 版權(quán)歸原作 者所有 ) 2:操作數(shù)往前提： kk = ( ( + 17) ( / 7)) 3:操作數(shù)再往前提： kk = ( (+ 17) (/ 7)) 4:轉(zhuǎn)換完成： (setq kk ( (+ 17) (/ 7))) 解法技巧 B： 1:運用『二分法、加括號』： ( + (17 ( / 7))) 2:操作數(shù)往前提： kk = (+ (17 ( / 7))) 3:操作數(shù)再往前提： kk = (+ ( 17 (/ 7))) 4:轉(zhuǎn)換完成： (setq kk (+ ( 17 (/ 7)))) 規(guī)則 5：以檔案型態(tài)存在的 AutoLISP 程序 (ASCII 檔案 ),其擴展名必須是 .LSP 規(guī)則 6：撰寫的環(huán)境 ,只要是一般的文書編輯軟件 ,可編輯 ASCII 檔案者都適用 如 :PE PE DW書中仙、漢書、 EDIT、 記事本 ....等 規(guī)則 7：以 defun 功能函數(shù)定義新的指令或新的功能函式 (注 :自變量及區(qū)域變量可省略 ) 程序結(jié)構(gòu)型態(tài)： (defun 函式名稱 (自變量 /區(qū)域變量 ) : : : : 程序內(nèi)容 : : ) 規(guī)則 8：新定義的功能函式名稱 ,若為『 C:函式名』 ,則此函式可為 AutoCAD 新指令 (注 :自變量及區(qū)域變量可省略 ) 程序結(jié)構(gòu)型態(tài)： (defun C:KK(自變量 /區(qū)域變量 ) : :程序內(nèi)容 : : 中國最龐大的下資料庫 (整理 . 版權(quán)歸原作者所有 ) 中國最龐大的下資料庫 (整理 . 版權(quán)歸原作 者所有 ) : : ) 則加載此 LISP 程序后 ,可在 指令 : 后直接鍵入新定義的 KK 指令 規(guī)則 9： 加載 AutoLISP 程序的作法：指令 :后直接鍵入 (load LISP 主檔名 ) 注 :load 與字符串間的空格 ,可有可無 注 :load 與雙引號間的空格 ,可有可無 (loadLISP 主檔名 ) 范例 : 在 c:\lsptools 目錄下有一 LISP 程序 ,而您目前的工作目錄在 c:\dwg 下 若『環(huán)境設定』之『支持檔案搜尋路徑』有指定到 c:\lsptools 目錄 ,則欲使用加載 指令 :后鍵入 (load tt) 即可 若『環(huán)境設定』之『支持檔案搜尋路徑』無指定到 c:\lsptools 目錄 ,則鍵入 (loadtt) 后 ,會出現(xiàn)錯誤訊息如下 : 無法開啟「 」做輸入錯誤 : 加載失敗 (LOAD tt)*取消 * 此時您可鍵入 : 指令 :(load c:\\lsptools\\tt) 或 指令 :(load c:/lsptools/tt) 不可鍵入 : (load c:\lsptools\tt) 因為『 \』在 AutoLISP 結(jié)構(gòu)語法中已經(jīng)用于『跳脫碼控制』了 規(guī)則 10： AutoLISP 程序中 ,在『分號 。『自定函式』 運算子 (自變量 )包括 : 中國最龐大的下資料庫 (整理 . 版權(quán)歸原作者所有 ) 中國最龐大的下資料庫 (整理 . 版權(quán)歸原作 者所有 ) (Integer) 如 8,17,500,9999 ..... (Real) 如 , ..... (String) 如 AutoCAD,123 (List) 如 (a b c),(x y) 如 entity name: 6000f262 如 file:12438..... 如 Selection set:1 規(guī)則 3：表達式中的『運算子』 ,可以是另一『表達式』或『子程序』 規(guī)則 4： 多重的括號表達式 ,運算的先后順序是『由內(nèi)而外、 由左而右』 規(guī)則 5： 以檔案型態(tài)存在的 AutoLISP 程序 (ASCII 檔案 ),其擴展名必須是 .lsp 規(guī)則 6： 撰寫的環(huán)境 ,只要是一般的文書編輯軟件、記事本 ,可編輯 ASCII 檔案者都適用 規(guī)則 7： 以 defun 功能函數(shù)定義新的指令或新的功能函式 規(guī)則 8： 新定義的功能函式名稱 ,若為『 C:函式名』 ,則此函式可為 AutoCAD 新指令 規(guī)則 9： 加載 AutoLISP 程序的作法： = 指令 :后直接鍵入 (load LISP 主檔名 ) 規(guī)則 10： AutoLISP 程序中 ,在『分號 。 中國最龐大的下資料庫 (整理 . 版權(quán)歸原作者所有 ) 中國最龐大的下資料庫 (整理 . 版權(quán)歸原作 者所有 ) AutoLISP 培訓教程 單元一： AutoLISP 主角瀟灑登場 一 . AutoLISP 是何方神圣 ? AutoLISP 是 AutoCAD 的最佳拍檔 ! AutoLISP 內(nèi)含于 AutoCAD 軟件內(nèi) ,不用另外花錢買 ! AutoLISP 是強化 AutoCAD 最好、最直接的『程序語言』 ! AutoLISP 易學、易用 ,即使不會程序設計的 AutoCAD 使用者 ,都能在最短的 時間內(nèi) ,寫出令人驚訝、贊嘆的功能 ! 若說 AutoLISP 的出現(xiàn) ,是替 AutoCAD 創(chuàng)造一片天的『最大功臣』 ,實不為 過一點也不夸張 ! AutoLISP 希望您去學習它、改善它、發(fā)揮它、享受它 .真的 !它的威力、魅力無窮 ! 二 . AutoLISP 程序語言的特質(zhì)分析 : 學習 AutoLISP 是非常容易的 ,對初學者而言 ,即使沒有學習過任何的程序語言 ,都能很快的上手 ,寫出精彩漂亮的 AutoLISP 程序 ! 語法簡單：不用特殊的變量宣告 ,非常富有彈性 ,比起其它的程序語言 ,它的語法可說是非常簡單而有其獨特的風格 ! 功能函數(shù)強大：除一般性的功能函數(shù)外 ,又擁有為數(shù)不少控制配合 AutoCAD 的特殊函數(shù) ,再加上 AutoLISP 可直接呼叫執(zhí) 行所有 AutoCAD 的指令 ,以及掌握運用所有的 AutoCAD 系統(tǒng)變量 ,功能之強大令人欣喜不已 ! 撰寫的環(huán)境不挑剔：只要是一般的文書編輯軟件都適用 ! 如 :Windows 的記事本、 PEPE DW書中仙、漢書、 EDIT....等 直譯式程序： 不用再作編譯 ,『即寫即測、即測即用』 ,馬上可以在 AutoCAD 中響應效果 ,馬上就有成就感 ! 橫跨各作業(yè)平臺：悠然自得 ,雖然 AutoCAD 有 DOS、 Windows 版本之分但是 AutoLISP 卻可在不改寫的原貌下 ,加載與執(zhí)行 ! 中國最龐大的下資料庫 (整理 . 版權(quán)歸原作者所有 ) 中國最龐大的下資料庫 (整理 . 版權(quán)歸原作 者所有 ) 三 .撰寫 AutoLISP 的動機 ? 欲強化 AutoCAD 原有指令時 . 欲創(chuàng)造更有用的 AutoCAD 新指令 . 欲簡化繁瑣的環(huán)境設定或繪圖步驟時 . 欲處理參數(shù)式繪圖時 . 欲做圖面資料讀文件、寫文件 . 欲做 AutoCAD 演示文稿展示時 . 欲達到真正靈活掌控 AutoCAD 時 . 欲提升自己跨上 AutoCAD 高手列車時 . 四 .AutoLISP 的效益評估 ? 1. 對公司負責人或設計主管而言 : A. 也許某員工或干部花了 20 個小時撰寫一個 AutoLISP 程序 ,表面上 ,這將近三天的時間 ,他連一 張圖都沒有畫 ,甚至可能偶有發(fā)呆、沉思 ,若此程序一天可以替公司繪圖部門節(jié)省 1小時繪圖時間 ,那算一算 ,只要 20 天就抵銷開發(fā)成本 ,而 20 天以后都是賺的 ,『用的愈久 ,省的愈多』！ B. 若員工皆有此動力 ,在不影響正常工作 ,『鼓勵』都來不及 ,那有『壓抑』的道理 ,甚至還要派遣優(yōu)秀人員出去受訓 ,學習更好的設計技巧與創(chuàng)意呢？！ C. 千萬不要因為您的不懂或壓抑 ,SHOW 您的權(quán)威與 POWER,如此 ,不但對員工造成打擊 ,甚至您可能成為阻礙了公司計算機化進步的罪魁禍首 D. 當然 ,若要撰寫的程序很多 ,內(nèi)部設計人員的程序功力 距離太遠 ,達成需求的時間反而變得遙遙無期 ,那倒不如求助于市面上已有的相關(guān) AutoCAD 支持軟件?！缓蟮膬?nèi)容 均為批注 ,程序不處理 ,適時的增加批注 ,將使程序更具可看性、學習性及完整性 規(guī)則 11： AutoLISP 最常用的變量型態(tài)是『整數(shù)』、『實數(shù)』、『字符串』、『點串行』四種 ,變量的型態(tài)依據(jù)設定值而自動定義 ,變量會一直儲存該值 ,直到被重新設定值或繪圖結(jié)束自動消失 規(guī)則 12：以 setq 功能函數(shù)設定變量值 (setq 變量名稱 設定值 ) 規(guī)則 13：欲在 AutoCAD 的環(huán)境中 ,查看一變量值 ,指令 :下鍵入『 !變量名』即可 規(guī)則 14：以 (defun C:函式名 (自變量 / 變量 ) ........)程序中 ,程序中的 變量若在『 /』右邊變量內(nèi) ,則稱為『區(qū)域變量』 ,否則為『整體變量』 二、學好 AutoLISP 的關(guān)鍵： 中國最龐大的下資料庫 (整理 . 版權(quán)歸原作者所有 ) 中國最龐大的下資料庫 (整理 . 版權(quán)歸原作 者所有 ) 充份掌握『語法結(jié)構(gòu)』 amp?！缓蟮膬?nèi)容均為批注 ,程序不處理 ,適時的增加批注 ,將使程 序更具可看性、學習性及完整性 范例 : 內(nèi)容如下 : 。 以下為畫門子程序 : : 。變量 c 值設定成字符串 (setq pt1 (getpoint Enter POINT:)) 。變量 pt3 值設定成點串行 (297 210) 注意 : 直接設定成點串行時 ,不能省略單引號『 39。表示式 ) 響應表示式未檢算前狀態(tài) (quote 表示式 ) 響應表示式未檢算前狀態(tài) ,同『 39。提示訊息 ：利用文書軟件 (如記事本 ) 撰寫 程序 ：回到 AutoCAD 下 ,加載 AutoLISP 程序以 (loadLSP 主檔名 ) 或 (load LSP 主檔名 ) 中國最龐大的下資料庫 (整理 . 版權(quán)歸原作者所有 ) 中國最龐大的下資料庫 (整理 . 版權(quán)歸原作 者所有 ) ：執(zhí)行新的 AutoLISP 指令 二、透過簡單范例全程演練 AutoLISP： 步驟：動機、預期目標 ：構(gòu)思程序相關(guān)變量訂定 定出程序名為 構(gòu)思程序流程、相關(guān)變量：變量名稱可自行設定 (如 pa、 ww、 hh、 pb、 pc、 pd、 mp mpmp mp4),掌握三個原則 : *不可重復 *好記不會混淆 *適時的以分號『 。以下依據(jù) pa、 pb、 pc、 pd 點畫矩形 (以 pline 指令畫出矩形 ) 。以下依據(jù) mp mp mp mp4 點畫出二條線 (以 line 指令畫出 mp1 到 mp3 的線 ) (以 line 指令畫出 mp2 到 mp4 的線 ) ) 本程序所需的 AutoLISP 功能函數(shù)及其用法 (getpoint [基點 ] [提示 ]) 請求輸入一個點坐標 (getreal [提示 ]) 請求輸入一實數(shù) (polar 基點 弳度 距離 ) 依極坐標法取得另一坐標點 其中『弳度值』之 轉(zhuǎn)換為： 十進制角度 弳度值 十進制轉(zhuǎn)弳度公式 0 度 0 0