【正文】 值設(shè)定區(qū)段大小 (expand 數(shù)值) 以區(qū)段數(shù)值配置節(jié)點(diǎn)空間 (gc) 強(qiáng)制收回廢內(nèi)存 (mem) 顯示目前的內(nèi)存使用狀態(tài) (vmon) 釋放ADS應(yīng)用程序 (xdroom 圖元名稱) 傳回圖元延伸數(shù)據(jù)允用得內(nèi)存空間 (xdsize 串行) 傳回圖元延伸數(shù)據(jù)所占用的內(nèi)存空間 　第十七類 ARX 定義的函數(shù)項(xiàng)目函數(shù)語法 傳 回 (acad_colordlg 顏色碼 旗號(hào)) 顯示出標(biāo)準(zhǔn)AutoCAD顏色選擇交談框 (acad_helpdlg 求助文件名 主題) 顯示出標(biāo)準(zhǔn) AutoCAD 求助交談框 (acad_strlsort 串行) 作串行排序 單元五：輕松快速的掌握AutoLISP設(shè)計(jì)技巧一、AutoLISP 程序設(shè)計(jì)的四個(gè)步驟：：產(chǎn)生寫程序的動(dòng)機(jī)、預(yù)期目標(biāo)：構(gòu)思程序流程、所需之LISP功能函數(shù)、相關(guān)變量訂定amp。 pb、pc、pd 值求出(setq mp1 (求出 mp1 點(diǎn)坐標(biāo)值))(setq mp3 (求出 mp3 點(diǎn)坐標(biāo)值))(setq mp2 (求出 mp2 點(diǎn)坐標(biāo)值))(setq mp4 (求出 mp4 點(diǎn)坐標(biāo)值))。 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)))。以下mpmpmpmp4值須由程序依據(jù)pa、ww、hh?！焊牧?』 相信您已能更了解 AutoLISP 是怎么回事了,短短的十幾行,能做的事卻不少,一路循序漸進(jìn)練習(xí)下來,您應(yīng)該覺得一點(diǎn)兒也不吃力、『游刃有余』才對(duì),果真如此,那恭喜您,『好戲還在后頭』,還有體力的話,就繼續(xù)『征服下一章』吧!!! 若您仍覺得有點(diǎn)『迷迷糊糊』,那就休息一下,配合復(fù)習(xí)第二章『學(xué)好AutoLISP的關(guān)鍵、基本結(jié)構(gòu)與語法』再好好的把第四章『看』amp。以下為圖元數(shù)據(jù)amp。一口氣取得圓之圓心(setq new_rr (getdist cenpt New Radius:))。指令執(zhí)行過程不響應(yīng)(setq en (entsel Select a LINE:)) 。取得pt1坐標(biāo)的y值。 my 并結(jié)合成 mpt ****************(setq mx (/ (+ px1 px2) 2)) 。完成中點(diǎn)畫圓(prin1))(prompt *************** C:MCIR *****************)(prin1)　程序執(zhí)行：(請(qǐng)先在畫面上任意的畫一些線)指令: (loadmcir)回應(yīng): *************** C:MCIR *****************指令: MCIRSelect a LINE: (碰選畫面上已有的線)Circle Radius:20 (輸入半徑20)注意: 變數(shù)值查詢:您若想進(jìn)一步查詢執(zhí)行后變量值,沒問題!!!請(qǐng)搭配224。完成圓內(nèi)接正五邊形(prin1))(prompt *************** C:CPOLY5 *****************)(prin1)程序執(zhí)行：(請(qǐng)先在畫面上任意的畫一些圓)指令:(loadcpoly5)回應(yīng) *************** C:CPOLY5 *****************指令: CPOLY5Select CIRCLE: (碰選畫面上已有的圓)OK! 完成一個(gè)內(nèi)接正五邊形范例四：請(qǐng)撰寫一個(gè) ,其內(nèi)有二個(gè)可執(zhí)行函數(shù)：CIRA碰選CIRCLE后,原CIRCLE大小自動(dòng)縮為原來的1/2 CIRB碰選CIRCLE后,原CIRCLE大小自動(dòng)放大為原來的2倍 此程序的執(zhí)行過程要求如下：指令:ciraSelect CIRCLE to Scale : (碰選畫面上已有的圓)自動(dòng)產(chǎn)生CIRCLE 大小自動(dòng)縮為原來的1/2指令:cirbSelect CIRCLE to Scale 2: (碰選畫面上已有的圓)自動(dòng)產(chǎn)生CIRCLE 大小自動(dòng)放大為原來的2倍??? 解題關(guān)鍵:用entget函數(shù)取得圓的元體資料串行cir_data 用assoc函數(shù)取得群碼40的半徑『子串行』rad_list，并以cdr取得半徑值old_r,再依此值作放大2倍或縮小一半新的半徑子串行可以用cons函數(shù)結(jié)合群碼40 amp。要求碰選一個(gè)圓(setq en_data (entget (car en))) 。 my成mpt點(diǎn)。取得終點(diǎn)pt2坐標(biāo)(setq px2 (car pt2)) 。 pxpy1 *********************(setq pts (assoc 10 en_data)) 。依新圖元數(shù)據(jù)自動(dòng)更新圓半徑(prin1)。取得舊有半徑(princ “\n舊半徑=”)(princ old_rr) 。更新練習(xí)：請(qǐng)將上例中,:指令:!en1_data傳回： ((1 . 圖元名稱: 2940518) (0 . CIRCLE) (5 . 23)(100 . AcDbEntity) (67 . 0) (8 . STR) (100 . AcDbCircle) (10 ) (40 . ) (210 ))　指令: (setq oldr (assoc 40 en1_data))傳回：(40 . ) ==群碼40為索引值的子串行指令:(setq newr (cons 40 ))傳回：(40 . )　指令:(setq en1_data (subst newr oldr en1_data))回應(yīng)：((1 . 圖元名稱: 2940518) (0 . CIRCLE) (5 . 23)(100 . AcDbEntity) (67 . 0) (8 . STR)(100 . AcDbCircle) (10 ) (40 . ) (210 ))　數(shù)據(jù)串行已被修改成功了,但是畫面上圖元并未更新???指令: (entmod en1_data) ==大功告成,畫面上的圓也更新了!!! 單元七：圖元數(shù)據(jù)的取得與活用技巧(二)五、范例練習(xí)：范例一：,用來修改圓半徑，此程序的執(zhí)行過程要求如下:指令: CHGRAD 選取已知圓:碰選畫面上已存在的圓 自動(dòng)顯示該舊圓半徑值于指令區(qū) 新半徑:要求輸入一半徑值 new_rr程序內(nèi)容解答:(defun c:chgrad()(setvar cmdecho 0 。 『構(gòu)思程序流程、相關(guān)變量訂定』224。 (setq hh (getreal \nHeight:))問題2：希望給寬度及高度時(shí),也能直接在屏幕上拉一段距離代替???ANS：很簡(jiǎn)單,只要做以下的函數(shù)變動(dòng)即可!!!將 (setq ww (getreal \nWidth:))改成 (setq ww (getdist pa \nWidth:)) ? pa為參考基準(zhǔn)點(diǎn)將 (setq hh (getreal \nHeight:))改成 (setq hh (getdist pa \nHeight:)) ? pa為參考基準(zhǔn)點(diǎn)問題3：給完寬度及高度值后,開始畫出所要的圖形,可是指令操作過程卻也跟著在『指令:』下一一配合出現(xiàn)著,不但影響速度,也沒有實(shí)質(zhì)的意義,如何改善?ANS：很簡(jiǎn)單,只要在程序一開始加入如下一行即可改善:(setvar cmdecho 0) ? 設(shè)定變量cmdecho=0關(guān)閉指令響應(yīng)問題4：畫完所要的圖形過程中,畫面出現(xiàn)了小十字點(diǎn),還得用redraw指令清除,該如何使其不出現(xiàn),但又不影響正常繪圖設(shè)定呢??? (R14環(huán)境blipmode內(nèi)定值為0)ANS：很簡(jiǎn)單,只要在程序一開始加入 (setvar blipmode 0) 即可有效壓抑小十字虛點(diǎn)出現(xiàn)!但須在程序結(jié)束前恢復(fù)設(shè)定 (setvar blipmode 1) ,才不會(huì)影響正常繪圖設(shè)定問題5：全部過程執(zhí)行完后,在『指令:』后卻出現(xiàn)了空響應(yīng) nil,如何消除呢???指令:pboxEnter Left/Low Point:Width:Hieght:指令:nil ? 就是這一行指令A(yù)NS：很簡(jiǎn)單,只要在程序結(jié)束前,加入一行 (prin1) 即可問題6：程序確認(rèn)無誤后,想將所有變量均處理成『區(qū)域變量』,以免占據(jù)內(nèi)存ANS：很簡(jiǎn)單,只要做如下的改變即可將 (defun c:pbox()改成 (defun c:pbox(/ pa pb pc pd ww hh mp1 mp2 mp3 mp4)問題7：希望在 (load pbox) 程序的響應(yīng)訊息能有更多樣的變化ANS：很簡(jiǎn)單,原回應(yīng)是 c:pbox，請(qǐng)?jiān)诔绦蚪Y(jié)束后,再加入二列:(prompt ********** C:PBOX **********)(prin1)2. 改良后完整 程序的全貌:(defun c:pbox(/ pa pb pc pd ww hh mp1 mp2 mp3 mp4)(setvar cmdecho 0)(setvar blipmode 0)。以下pb、pc、pd值須由程序依據(jù)pa、ww、hh求出(setq pb (polar pa 0 ww))(setq pc (polar pb (/ pi 2) hh))(setq pd (polar pc pi ww))。以下pb、pc、pd值須由程序依據(jù)pa、ww、hh求出(setq pb (依據(jù)相對(duì)極坐標(biāo)法求出pb點(diǎn)坐標(biāo)值))(setq pc (依據(jù)相對(duì)極坐標(biāo)法求出pc點(diǎn)坐標(biāo)值))(setq pd (依據(jù)相對(duì)極坐標(biāo)法求出pd點(diǎn)坐標(biāo)值))。 錯(cuò)誤處理功能函數(shù)項(xiàng)目函數(shù)語法 傳 回 (*error* 字符串) 程序錯(cuò)誤時(shí)的警示訊息 (alert 字符串) 以交談框式顯示出警告字符串 (apply 功能函數(shù) 串行) 將功能函數(shù)與串行結(jié)合后執(zhí)行 (defun 名稱 自變量串行 表示式 ...) 自定函數(shù)或子程序 (eval 表示式) 傳回:表示式的執(zhí)行結(jié)果 (exit) 強(qiáng)制退出目前的應(yīng)用程序 (lambda 自變量 表示式) 定義未具名的函數(shù) (progn 表達(dá)式1 表達(dá)式2 ...) 連結(jié)其內(nèi)的表達(dá)式為一組,常用于配合if、cond等函數(shù) (quit) 強(qiáng)制退出目前的應(yīng)用程序 (tablet 代碼 [列1 列2 列3 方向]) 取用或建立對(duì)數(shù)字板的校調(diào) (trace 函數(shù)…) 對(duì)函數(shù)設(shè)定追蹤旗號(hào),輔助除錯(cuò) (untrace 函數(shù)…) 對(duì)函數(shù)設(shè)定解除追蹤旗號(hào) 第十三類 顯示、打印控制功能函數(shù)　項(xiàng)目函數(shù)語法 傳 回 (graphscr) 作圖環(huán)境切換到圖形畫面 (grclear) 暫時(shí)清除模前的屏幕畫面 (grdraw 起點(diǎn) 終點(diǎn) 顏色 [亮顯]) 暫時(shí)性的畫出一條線 (grread [追蹤]) 由輸入設(shè)備讀取追蹤值 (grtext 位置 字符串 [亮顯]) 將字符串顯示在狀態(tài)列或屏幕菜單上 (grvecs 向量串行 [轉(zhuǎn)置矩陣]) 暫時(shí)性的畫出多條線 (menucmd 字符串) 提供在AutoLISP中呼叫各菜單 (prin1 [表示式 [檔案代碼]) 將表示式打印于命令區(qū)或已開啟的檔案,句柄字符則以\ 為前綴展開 (princ [表示式 [檔案代碼]) 除句柄字符則不以 \ 為前綴展開外其余同prin1 (print [表示式 [檔案代碼]) 除表示式會(huì)往下一新行列出,及一空格外其余同prin1 (prompt 訊息) 將訊息顯示于屏幕的命令區(qū),并隨后響應(yīng)一個(gè)nil訊息 (redraw [圖元名稱 [模式]]) 重繪整張圖或依圖元名稱重繪該圖形 (terpri) 在屏幕上顯示新列 (textscr) 作圖環(huán)境切換到文字畫面 (textpage) 清除文字畫面文字類似DOS的cls指令 (vports) 傳回：窗口組態(tài)串行 第十四類 符號(hào)、元素、表示式處理功能函數(shù)項(xiàng)目函數(shù)語法 傳 回 (atom 元素) 如果元素不是串行,響應(yīng) T,否則為 nil (atomsfamily 格式 [符號(hào)串行]) 傳回：一組已定義函數(shù)的符號(hào)串行 (boundp 表示式) 傳回：T或nil,響應(yīng)表示式是否有值存在 (minusp 元素) 傳回：T 或 nil,元素是否為負(fù)值 (not 元素) 傳回：T 或 nil,判定元素是否為 nil (null 元素) 傳回：T或nil判定元素是否被賦予nil值 (numberp 元素) 傳回：T或nil,元素是否為整數(shù)或?qū)崝?shù) (... 39。變量 pt1 值設(shè)定成點(diǎn)串行(setq pt2 (list a b)) 。本程序功能可快速畫門、窗。 2. 對(duì)設(shè)計(jì)人員而言:A. 得到一筆提升績(jī)效獎(jiǎng)金呢? 當(dāng)然,無形中,『AutoCAD 高手的封號(hào)』也將功力又往前邁出了一大步,對(duì)個(gè)人的成長(zhǎng)幫助匪淺,幸運(yùn)的話,搞不好還可以黃袍加身,不亦樂乎!!! B. 『半桶水、響叮當(dāng)』,千萬不要因?yàn)闀?huì)寫 AutoLISP 程序而自傲、孤僻、囂張起來,功力的增長(zhǎng),只是讓您有更多『服務(wù)他人、服務(wù)公司』的機(jī)會(huì),若自恃過重,寧可不要! C. AutoLISP 程序功力