【導(dǎo)讀】一.AutoLISP是何方神圣?都能很快的上手,寫出精彩漂亮的AutoLISP程序!可說是非常簡(jiǎn)單而有其獨(dú)特的風(fēng)格!有的AutoCAD系統(tǒng)變量,功能之強(qiáng)大令人欣喜不已!撰寫的環(huán)境不挑剔：只要是一般的文書編輯軟件都適用!AutoLISP卻可在不改寫的原貌下,加載與執(zhí)行!三.撰寫AutoLISP的動(dòng)機(jī)?四.AutoLISP的效益評(píng)估?時(shí)間反而變得遙遙無期,那倒不如求助于市面上已有的相關(guān)AutoCAD支持軟件。當(dāng)然,無形中,『AutoCAD高手的封號(hào)』也將黃功。是必須忍耐的,試著用AutoLISP解決看看!AutoLISP的關(guān)鍵：充份掌握『語法結(jié)構(gòu)』&『功能函數(shù)』的搭配!!!

　　

【正文】 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 。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...) 均有其專屬的資料串行 !!! 沒錯(cuò)以 LIST 指令即可查詢出來 ,顯示于屏幕上 但是該如何透過 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è)元素，通常用來求 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)/半徑 : 在 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))) 中國(guó)最龐大的下載資料庫(kù) (整理 . 版權(quán)歸原作者所有 ) 第 20 頁(yè) 共 33 頁(yè) 傳回『圓的聯(lián)合資料串行』： ((1 . 像素名稱 : 2940518) (0 . CIRCLE) (5 . 23) (100 . AcDbEntity) (67 . 0) (8 . STR) (100 . AcDbCircle) (10 ) (40 . ) (210 )) 其中各子串行的第一個(gè)元素均為『群碼』 ,各代表不同對(duì)應(yīng)資料 指令 : (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)合資料串行中各子串行群碼分析說明 : 您可以在 指令 :下鍵入 !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)『處理碼』 中國(guó)最龐大的下載資料庫(kù) (整理 . 版權(quán)歸原作者所有 ) 第 21 頁(yè) 共 33 頁(yè) (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ù)』 (51 . ) 群碼 51 對(duì)應(yīng)『傾斜角』 (7 . STANDARD) 群碼 7對(duì)應(yīng)『字型名稱』 (71 . 0) 群碼 71 對(duì)應(yīng)『鏡設(shè)方向』 (72 . 0) 群碼 72 對(duì)應(yīng)『水平對(duì)齊設(shè)定』 (11 ) 群碼 11 對(duì)應(yīng)『對(duì)齊點(diǎn)』 (210 ) 群碼 210 對(duì)應(yīng)『像素?cái)D出方向』 (100 . AcDbText) 群碼 100 對(duì)應(yīng)『子類別』 (73 . 0) 群碼 73 對(duì)應(yīng)『水平對(duì)齊設(shè)定』 4. 由以上可看出 ,元體資料串行有些『群碼』是共通的 (如 0、 210) 有些『群碼』是因元體而異的 (如 40),有些『群碼』是某些元體特有的 (如 en3_data 資料串行就比 en1_data amp。 en2_data 資料串行來的多 ) 注意 1:往后練習(xí)撰寫 AutoLISP 程序中 ,若對(duì)各元體與群碼的對(duì)應(yīng)有疑問或不清楚時(shí) ,請(qǐng)隨時(shí)查看『附錄 C』有關(guān)詳細(xì)的群碼表分析 !!! 注意 2:子串行中間有一點(diǎn)『 ?』隔開二元素 ,我們稱為『點(diǎn)對(duì)串行』 ,點(diǎn)對(duì)串行要特別注意的是『第二個(gè)元素取得 ,要用 cdr 函數(shù)』 ,而非 cadr 函數(shù) !若要產(chǎn)生新的『點(diǎn)對(duì)串行』 ,可用 cons 函數(shù)完成 .如 : (cons 1 “ ABC” ) 響應(yīng) (1 . “ ABC” ) 四、像素?cái)?shù)據(jù)修改與更新技巧： amp。 更新四步驟： 步驟一：用 entget 函數(shù)取得元體數(shù)據(jù)串行 ,如上例中 en1_data、 en2_data、en3_data 步驟二：用 assoc 函數(shù)依『群碼值』找尋取得欲修改的舊『子串行』，新的子串行可以用 cons 函數(shù)去產(chǎn)生 中國(guó)最龐大的下載資料庫(kù) (整理 . 版權(quán)歸原作者所有 ) 第 22 頁(yè) 共 33 頁(yè) 步驟三：用 subst 函數(shù)將數(shù)據(jù)串行中的新、舊子串行替換 步驟四：用 entmod 函數(shù)更新的資料串行 ,同時(shí)自動(dòng)更新屏幕上像素 AutoCAD 的『指令 :』下做基本像素?cái)?shù)據(jù)修改 amp。更新練習(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 . 像素名