【正文】 『改良 』 相信您已能更了解 AutoLISP 是怎么回事了 ,短短的十幾行 ,能做的事卻不少 ,一路循序漸進(jìn)練習(xí)下來(lái) ,您應(yīng)該覺(jué)得一點(diǎn)兒也不吃力、『游刃有余』才對(duì) ,果真如此 ,那恭喜您 ,『好戲還在后頭』 ,還有體力的話 ,就繼續(xù)『征服下一章』吧 !!! 若您仍覺(jué)得有點(diǎn)『迷迷糊糊』 ,那就休息一下 ,配合復(fù)習(xí)第二章『學(xué)好 AutoLISP的關(guān)鍵、基本結(jié)構(gòu)與語(yǔ)法』再好好的 把第四章『看』 amp。以下 mp mp mp mp4 值須由程序依據(jù) pa、 ww、 hh 。 pb、 pc、 pd 值求出 (setq mp1 (polar pa 0 (/ ww 2))) (setq mp2 (polar pb (/ pi 2) (/ hh 2))) (setq mp3 (polar pd 0 (/ ww 2))) (setq mp4 (polar pa (/ pi 2) (/ hh 2))) 。 pb、 pc、 pd 值求出 (setq mp1 (求出 mp1 點(diǎn)坐標(biāo)值 )) (setq mp3 (求出 mp3 點(diǎn)坐標(biāo)值 )) (setq mp2 (求出 mp2 點(diǎn)坐標(biāo)值 )) 中國(guó)最龐大的下載資料庫(kù) (整理 . 版權(quán)歸原作者所有 ) 第 15 頁(yè) 共 33 頁(yè) (setq mp4 (求出 mp4 點(diǎn)坐標(biāo)值 )) 。 指令 ) 加載一個(gè)關(guān)連式的 AutoLISP 檔 (autoxload 文件名稱 指令定義 ) 加載一個(gè)關(guān)連式的 ADS 檔 (xload 應(yīng)用程序 [出錯(cuò)處理 ]) 加載 ADS 應(yīng)用程序 (xunload 應(yīng)用程序 [出錯(cuò)處理 ]) 釋放 ADS應(yīng)用程序 第十六類 內(nèi)存空間管理函數(shù) 項(xiàng)目 函數(shù)語(yǔ)法 傳 回 (alloc 數(shù)值 ) 以節(jié)點(diǎn)數(shù)值設(shè)定區(qū)段大小 (expand 數(shù)值 ) 以區(qū)段數(shù)值配置節(jié)點(diǎn)空間 (gc) 強(qiáng)制收回廢內(nèi)存 中國(guó)最龐大的下載資料庫(kù) (整理 . 版權(quán)歸原作者所有 ) 第 14 頁(yè) 共 33 頁(yè) (mem) 顯示目前的內(nèi)存使用狀態(tài) (vmon) 釋放 ADS 應(yīng)用程序 (xdroom 像素名稱 ) 傳回像素延伸資料允用得內(nèi)存空間 (xdsize 串行 ) 傳回像素延伸資料所占用的內(nèi)存空間 第十七類 ARX 定義的函數(shù) 項(xiàng)目 函數(shù)語(yǔ)法 傳 回 (acad_colordlg 顏色碼 旗號(hào) ) 顯示出標(biāo)準(zhǔn) AutoCAD 顏色選擇交談框 (acad_helpdlg 求助文件名 主題 ) 顯示出標(biāo)準(zhǔn) AutoCAD 求助交談框 ［返回］ 單元五：輕松快速的掌握 AutoLISP 設(shè)計(jì)技巧 一、 AutoLISP 程序設(shè)計(jì)的四個(gè)步驟： ：產(chǎn)生寫(xiě)程序的動(dòng)機(jī)、預(yù)期目標(biāo) ：構(gòu)思程序流程、所需之 LISP 功能函數(shù)、相關(guān)變量訂定 amp。(297 210)) 。版權(quán)所有 ,歡迎使用 (defun c:pp() : : ?！鹤远ê健? 運(yù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：表達(dá)式中的『運(yùn)算子』 ,可以是另一『表達(dá)式』或『子程序』 規(guī)則 4： 多重的括號(hào)表達(dá)式 ,運(yùn)算的先后順序是『由內(nèi)而 外、由左而右』 規(guī)則 5： 以檔案型態(tài)存在的 AutoLISP 程序 (ASCII 檔案 ),其擴(kuò)展名必須是 .lsp 規(guī)則 6： 撰寫(xiě)的環(huán)境 ,只要是一般的文書(shū)編輯軟件、記事本 ,可編輯 ASCII 檔案者都適用 規(guī)則 7： 以 defun 功能函數(shù)定義新的指令或新的功能函式 規(guī)則 8： 新定義的功能函式名稱 ,若為『 C:函式名』 ,則此函式可為 AutoCAD 新指令 規(guī)則 9： 加載 AutoLISP 程序的作法： = 指令 :后直接鍵入 (load LISP 主檔名 ) 規(guī)則 10： AutoLISP 程序中 ,在『分號(hào) ?！缓蟮?內(nèi)容均為批注 ,程序不處理 ,適時(shí)的增加批注 ,將使程序更具可看性、學(xué)習(xí)性及完整性 規(guī)則 11： AutoLISP 最常用的變量型態(tài)是『整數(shù)』、『實(shí)數(shù)』、『字符串』、『點(diǎn)串行』四種 ,變量的型態(tài)依據(jù)設(shè)定值而自動(dòng)定義 ,變量會(huì)一直儲(chǔ)存該值 ,直到被重新設(shè)定值或繪圖結(jié)束自動(dòng)消失 規(guī)則 12：以 setq 功能函數(shù)設(shè)定變量值 (setq 變量名稱 設(shè)定值 ) 規(guī)則 13：欲在 AutoCAD 的環(huán)境中 ,查看一變量值 ,指令 :下鍵入『 !變量名』即可 規(guī)則 14：以 (defun C:函式名 (自變量 / 變量 ) ........)程序中 ,程序 中的變量若在『 /』右邊變量?jī)?nèi) ,則稱為『區(qū)域變量』 ,否則為『整體變量』 二、學(xué)好 AutoLISP 的關(guān)鍵： 充份掌握『語(yǔ)法結(jié)構(gòu)』 amp。 以下為畫(huà)門(mén)子程序 : : 。變量 pt3 值設(shè)定成點(diǎn)串行 (297 210) 注意 : 直接設(shè)定成點(diǎn)串行時(shí) ,不能省略單引號(hào)『 39。提示訊息 ：利用文書(shū)軟件 (如記事本 ) 撰寫(xiě) 程序 ：回到 AutoCAD 下 ,加載 AutoLISP 程序以 (loadLSP 主檔名 ) 或 (load LSP 主檔名 ) ：執(zhí)行新的 AutoLISP 指令 二、透過(guò)簡(jiǎn)單范例全程演練 AutoLISP： 驟：動(dòng)機(jī)、預(yù)期目標(biāo) ：構(gòu)思程序相關(guān)變量訂定 定出程序名為 構(gòu)思程序流程、相關(guān)變量：變量名稱可自行設(shè)定 (如 pa、 ww、 hh、 pb、 pc、 pd、mp mp mp mp4),掌握三個(gè)原則 : *不可重復(fù) *好記不會(huì)混淆 *適時(shí)的以分號(hào)『 。以下依據(jù) mp mp mp mp4 點(diǎn)畫(huà)出二條線 (以 line 指令畫(huà)出 mp1 到 mp3 的線 ) (以 line 指令畫(huà)出 mp2 到 mp4 的線 ) ) 本程序所需的 AutoLISP 功能函數(shù)及其用法 (getpoint [基點(diǎn) ] [提示 ]) 請(qǐng)求輸入一個(gè)點(diǎn)坐標(biāo) (getreal [提示 ]) 請(qǐng)求輸入一實(shí)數(shù) (polar 基點(diǎn) 弳度 距離 ) 依極坐標(biāo)法取得另一坐標(biāo)點(diǎn) 其中『弳度值』之轉(zhuǎn) 換為： 十進(jìn)制角度 弳度值 十進(jìn)制轉(zhuǎn)弳度公式 0度 0 0 90 度 1/2π (/ pi 2) 或 (* pi ) 180 度 π pi 270 度 2/3π (* pi ) N度 π*N/180 (* pi (/ n 180)) (mand AutoCAD 指令 ...) 呼叫執(zhí)行 AutoCAD 指令 注意： 指令及其副選項(xiàng)皆要用雙引號(hào)處理 假設(shè) pa、 pb、 pc、 pd 皆為變量 ,其值為點(diǎn)坐標(biāo) 正確： (mand pline pa pb pc pd c) 錯(cuò)誤： (mand pline pa pb pc pd c) 原因： 指令 pline 及其副選項(xiàng) c 皆沒(méi)用雙引號(hào)括住 錯(cuò)誤： (mand pline pa pb pc pd c) 原因： 副選項(xiàng) c (代表 close) 沒(méi)用雙引號(hào)括住 ,會(huì)被誤認(rèn)為是 AutoLISP 的變量名 ,但事實(shí)又沒(méi)有 c 這個(gè)變量 錯(cuò)誤 :(mand pline pa pb pc pd c) 原因 :變量 pa、 pb、 pc、 pd 不須用雙引號(hào)括住 注意 :副選項(xiàng)中 ,若使用 ,連續(xù)二個(gè) 雙引號(hào) ,代表按 [ENTER] 鍵 若想畫(huà)一條 pa 到 pc 的 LINE amp。以下依據(jù) mp mp mp mp4 點(diǎn)畫(huà)出二條線 (mand line mp1 mp3 ) (mand line mp2 mp4 ) ) ：回到 AutoCAD 下 ,加載 AutoLISP 程序 若您的 AutoCAD『環(huán)境設(shè)定』中『支持文件搜尋路徑』有加上 c:\lisptool,則您可輕松加載 程序 指令 :(loadpbox) 傳回： c:pbox 或 指令 :(load pbox) 傳回： c:pbox 或 指令 :(load ) 傳回： c:pbox 若您的 AutoCAD『環(huán)境設(shè)定』中『支持文件搜尋路徑』并未加上 c:\lisptool, 則您加載 程序時(shí) ,須包含程序 所在路徑： 錯(cuò)誤的加載：指令 :(load pbox) 會(huì)出現(xiàn)：無(wú)法開(kāi)啟「 」做輸入 錯(cuò)誤 : 加載失敗 (LOAD pbox) *取消 正確的加載方式： 指令 :(load c:/lisptool/pbox) 傳回： c:pbox 或：指令 :(load c:\\lisptool\\pbox) 傳回： c:pbox ：執(zhí)行新的 AutoLISP 指令 指令 :pbox 成功加載后 ,直接鍵入 pbox 指令 Enter Left/Low Point: 請(qǐng)給一左下 角點(diǎn) Width: 給一實(shí)數(shù)當(dāng)寬度，例如 100 Hieght: 給一實(shí)數(shù)當(dāng)高度，例如 50 指令 :nil 指令 中國(guó)最龐大的下載資料庫(kù) (整理 . 版權(quán)歸原作者所有 ) 第 17 頁(yè) 共 33 頁(yè) 三、 程序產(chǎn)生的問(wèn)題 amp。amp?！鹤觥粋€(gè)明白 ,相信有心成為 AutoCAD 高手的您 ,一定不會(huì)那么容易就『被十幾行打敗』的 !!! ［返回］ 單元六：像素?cái)?shù)據(jù)的取得與活用技巧 (一 ) 一 .像素?cái)?shù)據(jù)串行的重要性： 您可知您所繪制的每一個(gè) AutoCAD 元體 (如 LINE、 CIRCLE、 ARC、 TEXT、 BLOCK、POLYLINE、 DIMENSION...) 均有其專屬的資料串行 !!! 沒(méi)錯(cuò)以 LIST 指令即可查詢出來(lái) ,顯示于屏幕上 但是該如何透過(guò) AutoLISP 功能 去選取、取得、修改、更新資料呢 ??? 該如何去有效活用呢 ??? 別急就是本單元的學(xué)習(xí)重點(diǎn) !!! 請(qǐng)注意本章節(jié)非常重要 ,務(wù)必要求透徹了解 !!! 二、重要像素資料應(yīng)用相關(guān)的功能函數(shù)介紹： 中國(guó)最龐大的下載資料庫(kù) (整理 . 版權(quán)歸原作者所有 ) 第 19 頁(yè) 共 33 頁(yè) (entsel [提示 ]) 請(qǐng)求選取一個(gè)像素 ,響應(yīng)包含像素名稱及選點(diǎn)坐標(biāo)的串行 (car 串行 ) 傳回：串行中的第一個(gè)元素，通常用來(lái)求 x 坐標(biāo) (cadr 串行 )傳回：串行中的第二個(gè)元素，通常用來(lái)求 y 坐標(biāo) (caddr 串行 )傳回：串行中的第三個(gè)元素，通常用來(lái)求 z坐標(biāo) (cdr 串行 ) 傳回：除去第一個(gè)元素后的 串行 (entlast)：取出圖形數(shù)據(jù)中的最后一個(gè)像素 (entget 像素名稱 [應(yīng)用程序串行 ])：取得像素名稱的資料聯(lián)合串行 (assoc 關(guān)鍵元素 聯(lián)合串行 ) ：依關(guān)鍵元素找尋聯(lián)合串行中關(guān)系資料 (cons 新元素 串行 ) 傳回：將新元素結(jié)合到串行，常用于產(chǎn)生『點(diǎn)對(duì)串行』 (subst 新項(xiàng) 舊項(xiàng) 串行 ) 傳回：替換新舊串行后的串行 (entmod 像素串行 ) 依更新的資料串行更新屏幕上元體 (list 元素 元素? ) 傳回：將元素結(jié)合成一串行 三、像素?cái)?shù)據(jù)聯(lián)合串行取得技巧與群碼分 析： ：請(qǐng)開(kāi)一張新圖 ,并建立二個(gè)新層 STR、 TXT,顏色分別為紅色(red)、綠色 (green) 首先在 STR 層畫(huà)一條線 指令 : LINE 起點(diǎn) : 15,10 下一點(diǎn) : 50,40 下一點(diǎn) : (按 [Enter]結(jié)束 ) 在 STR 層畫(huà)一個(gè)圓 指令 : CIRCLE CIRCLE 三點(diǎn) (3P)/二點(diǎn) (2P)/相切 ,相切 ,半徑 (T)/中心點(diǎn) : 60,15 直徑 (D)/半徑 : 在 TXT 層寫(xiě)幾個(gè)字 AutoCAD 指令 : DTEXT 對(duì)正 (J)/字型 (S)/起點(diǎn) : (選取文字的 位置點(diǎn) ) 高度 : 8 旋轉(zhuǎn)角度 0:0 文字 : AutoCAD 文字 : (按 [Enter]結(jié)束 ) 2. 在 AutoCAD 的 Command:下練習(xí)取得像素?cái)?shù)據(jù)串行 練習(xí)函數(shù) entsel、 car、 cdr、 entget 指令 : (setq en1 (entsel)) 選取對(duì)象 : (選取圓 ) 傳回一串行 : (像素名稱 : 2940518 ( )) 其中 像素名稱 : 2940518 ==像素名稱 ( ) ==選點(diǎn)坐 標(biāo) 指令 : (car en1) 傳回 : 像素名稱 : 2940518 ==串行的第一個(gè)元素 指令 : (cadr en1) 傳回 : ( ) ==串行的第二個(gè)元素 指令