【導(dǎo)讀】一.AutoLISP是何方神圣?若說AutoLISP的出現(xiàn),是替AutoCAD創(chuàng)造一片天的『最大功臣』,實(shí)不為過一點(diǎn)也不夸張!上手,寫出精彩漂亮的AutoLISP程序!四.AutoLISP的效益評(píng)估?A.也許某員工或干部花了20個(gè)小時(shí)撰寫一個(gè)AutoLISP程序,表面上,這將近三天的時(shí)間,得遙遙無期,那倒不如求助于市面上已有的相關(guān)AutoCAD支持軟件。C.AutoLISP程序功力的累進(jìn),是無遠(yuǎn)弗屆的,千萬不要『孤芳自賞』,『人外有人,天外有天』,

　　

【正文】 14 環(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,如何消除呢 ??? 指令 :pbox Enter Left/Low Point: Width: Hieght: 指令 :nil ? 就是這一行 指令 中國(guó)最龐大的下資料庫 (整理 . 版權(quán)歸原作者所有 ) 中國(guó)最龐大的下資料庫 (整理 . 版權(quán)歸原作 者所有 ) ANS：很簡(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) 。以下 pa、 ww、 hh 值須由使用者輸入 (setq pa (getpoint Enter Left/Low Point:)) (setq ww (getdist pa \nWidth:)) (setq hh (getdist pa \nHeight:)) 。以下 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)) 。以下依據(jù) pa、 pb、 pc、 pd 點(diǎn)畫矩形 (指令 pline pa pb pc pd c) 。以下 mp mp mp mp4 值須由程序依據(jù) pa、 ww、 hh 中國(guó)最龐大的下資料庫 (整理 . 版權(quán)歸原作者所有 ) 中國(guó)最龐大的下資料庫 (整理 . 版權(quán)歸原作 者所有 ) 。amp。 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))) 。以下依據(jù) mp mp mp mp4 點(diǎn)畫出二條線 (指令 line mp1 mp3 ) (指令 line mp2 mp4 ) (prin1) ) (prompt ********** C:PBOX **********) (prin1) 四、本章結(jié)語 : 經(jīng)由簡(jiǎn)單的 程序設(shè)計(jì)全程演練 ,從『產(chǎn)生動(dòng)機(jī)、預(yù)期目標(biāo)』224。 『構(gòu)思程序流程、相關(guān)變量訂定』224。 『撰寫程序』224。 『加載程序』224。 『執(zhí)行 PBOX 指令』224?！焊牧? 』 相信您已能更了解 AutoLISP 是怎么回事了 ,短短的十幾行 ,能做的事卻不少 ,一路循序漸進(jìn)練習(xí)下來 ,您應(yīng)該覺得一點(diǎn)兒也不吃力、『游刃有余』才對(duì) ,果真如此 ,那恭喜您 ,『好戲還在后頭』 ,還有體力的話 ,就繼續(xù)『征服下一章』吧 !!! 若您仍覺得有點(diǎn)『迷迷糊糊』 ,那就休息一下 ,配合復(fù)習(xí)第二章『學(xué)好 AutoLISP 的關(guān)鍵、基本結(jié)構(gòu)與語法』再好好 的把第四章『看』 amp?！鹤觥粋€(gè)明白 ,相信有心成為 AutoCAD 高手的您 ,一定不會(huì)那么容易就『被十幾行打敗』的 !!! ［返回］ 單元六：像素?cái)?shù)據(jù)的取得與活用技巧 (一 ) 一 .像素?cái)?shù)據(jù)串行的重要性： 您可知您所繪制的每一個(gè) AutoCAD 元體 (如 LINE、 CIRCLE、 ARC、 TEXT、 BLOCK、POLYLINE、 DIMENSION...) 均有其專屬的資料串行 !!! 中國(guó)最龐大的下資料庫 (整理 . 版權(quán)歸原作者所有 ) 中國(guó)最龐大的下資料庫 (整理 . 版權(quán)歸原作 者所有 ) 沒錯(cuò)以 LIST 指令即可查詢出來 ,顯示于屏幕上 但是該如何透過 AutoLISP 功 能去選取、取得、修改、更新資料呢 ??? 該如何去有效活用呢 ??? 別急就是本單元的學(xué)習(xí)重點(diǎn) !!! 請(qǐng)注意本章節(jié)非常重要 ,務(wù)必要求透徹了解 !!! 二、重要像素資料應(yīng)用相關(guān)的功能函數(shù)介紹： (entsel [提示 ]) 請(qǐng)求選取一個(gè)像素 ,響應(yīng)包含像素名稱及選點(diǎn)坐標(biāo)的串行 (car 串行 ) 傳回：串行中的第一個(gè)元素，通常用來求 x 坐標(biāo) (cadr 串行 )傳回：串行中的第二個(gè)元素，通常用來求 y 坐標(biāo) (caddr 串行 )傳回：串行中的第三個(gè)元素，通常用來求 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)開一張新圖 ,并建立二個(gè)新層 STR、 TXT,顏色分別為紅色 (red)、綠色 (green) 首先在 STR 層畫一條線 指令 : LINE 起點(diǎn) : 15,10 下一點(diǎn) : 50,40 下一點(diǎn) : (按 [Enter]結(jié)束 ) 在 STR 層畫一個(gè)圓 指令 : CIRCLE CIRCLE 三點(diǎn) (3P)/二點(diǎn) (2P)/相切 ,相切 ,半徑 (T)/中心點(diǎn) : 60,15 直徑 (D)/半徑 : 中國(guó)最龐大的下資料庫 (整理 . 版權(quán)歸原作者所有 ) 中國(guó)最龐大的下資料庫 (整理 . 版權(quán)歸原作 者所有 ) 在 TXT 層寫幾個(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è)元素 指令 : (setq en1_data (entget (car en1))) 傳回『圓的聯(lián)合資料串行』： ((1 . 像素名稱 : 2940518) (0 . CIRCLE) (5 . 23) (100 . AcDbEntity) (67 . 0) (8 . STR) (100 . AcDbCircle) (10 ) (40 . ) (210 )) 其中各子串行的第一個(gè)元素均為『群碼』 ,各代表不同對(duì)應(yīng)資料 中國(guó)最龐大的下資料庫 (整理 . 版權(quán)歸原作者所有 ) 中國(guó)最龐大的下資料庫 (整理 . 版權(quán)歸原作 者所有 ) 指令 : (setq en2 (entsel)) 選取對(duì)象 : (碰選線 ) 傳回一串行 : (像素名稱 : 2940500 ( )) 指令 : (setq en2_data (entget (car en2))) 傳回『線的聯(lián)合資料串行』 : ((1 . 像素名稱 : 2940500) (0 . LINE) (5 . 20) (100 . AcDbEntity) (67 . 0) (8 . STR) (100 . AcDbLine) (10 ) (11 ) (210 )) 指令 :(setq en3 (entsel)) 選取對(duì)象 : (碰選文字 ) 傳回一串行 : (像素名稱 : 2940520 ( )) 指令 : (setq en3_data (entget (car en3))) 傳回『文字的聯(lián)合資料串行』 : ((1 . 像素名稱 : 2940520) (0 . TEXT) (5 . 24) (100 . AcDbEntity) (67 .0) (8 . TXT) (100 . AcDbText) (10 ) (40 . ) (1 . AutoCAD) (50 . ) (41 . ) (51 . ) (7 . STANDARD) (71 . 0) (72 . 0) (11 )(210 ) (100 . AcDbText) (73 . 0)) 3. 聯(lián)合資料串行中各子串行群碼分析說明 : 中國(guó)最龐大的下資料庫 (整理 . 版權(quán)歸原作者所有 ) 中國(guó)最龐大的下資料庫 (整理 . 版權(quán)歸原作 者所有 ) 您可以在 指令 :下鍵入 !en1_data 或 !en2_data 或 !en3_data 分別查看圓、線、文字的聯(lián)合資料串行 ,您將會(huì)發(fā)現(xiàn) = 不同的元體類別 ,其聯(lián)合資料串行也不一樣 圓的聯(lián)合資料串行 en1_data (1 . 像素名稱 : 2940518) 群碼 1 對(duì)應(yīng)『像素名稱』 (0 . CIRCLE) 群碼 0 對(duì)應(yīng)『像素類別』 (5 . 23) 群碼 5 對(duì)應(yīng)『處理碼』 (100 . AcDbEntity) 群碼 100 對(duì)應(yīng)『子類別』 (67 . 0) 群碼 67 對(duì)應(yīng)『模型空間』 (8 . STR) 群碼 8 對(duì)應(yīng)『圖層名稱』 (100 . AcDbCircle) 群碼 100 對(duì)應(yīng)『子類別』 (10 ) 群碼 10 對(duì)應(yīng)『圓心坐標(biāo)』 (40 . ) 群碼 40 對(duì)應(yīng)『半徑值』 (210 ) 群碼 210 對(duì)應(yīng)『像素?cái)D出方向』 線的聯(lián)合資料串行 en2_data (1 . 像 素名稱 : 2940500) 群碼 1 對(duì)應(yīng)『像素名稱』 (0 . LINE) 群碼 0 對(duì)應(yīng)『像素類別』 (5 . 20) 群碼 5 對(duì)應(yīng)『處理碼』 (100 . AcDbEntity) 群碼 100 對(duì)應(yīng)『子類別』 (67 . 0) 群碼 67 對(duì)應(yīng)『模型空間』 (8 . STR) 群碼 8 對(duì)應(yīng)『圖層名稱』 (100 . AcDbLine) 群碼 100 對(duì)應(yīng)『子類別』 (10 ) 群碼 10 對(duì)應(yīng)『線起始點(diǎn)坐標(biāo)』 (11 ) 群碼 11 對(duì)應(yīng)『 線終止點(diǎn)坐標(biāo) (210 ) 群碼 210 對(duì)應(yīng)『像素?cái)D出方向』 文字的聯(lián)合資料串行 en3_data (1 . 像素名稱 : 2940520) 群碼 1 對(duì)應(yīng)『像素名稱』 (0 . TEXT) 群碼 0 對(duì)應(yīng)『像素類別』 (5 . 24) 群碼 5 對(duì)應(yīng)『處理碼』 (100 . AcDbEntity) 群碼 100 對(duì)應(yīng)『子類別』 (67 . 0) 群碼 67 對(duì)應(yīng)『模型空間』 (8 . TXT) 群碼 8 對(duì)應(yīng)『圖層名稱』 (100 . AcDbText) 群碼 100 對(duì)應(yīng)『子類別』 (10 ) 群碼 10 對(duì)應(yīng)『插入點(diǎn)』 (40 . 8) 群碼 40 對(duì)應(yīng)『字高』 (1 . AutoCAD) 群碼 1 對(duì)應(yīng)『文字內(nèi)容』 (50 . ) 群碼 50 對(duì)應(yīng)『旋轉(zhuǎn)角度』 (41 . ) 群碼 41 對(duì)應(yīng)『寬度比例系數(shù)』 中國(guó)最龐大的下資料庫 (整理 . 版權(quán)歸原作者所有 ) 中國(guó)最龐大的下資料庫 (整理 . 版權(quán)歸原作 者所有 ) (51 . ) 群碼 51 對(duì)應(yīng)『傾斜角』 (7 . STANDARD) 群碼 7 對(duì)應(yīng)『字型名稱』 (71 . 0) 群碼 71 對(duì)應(yīng)『鏡設(shè)方向』 (72