【導讀】一.AutoLISP是何方神圣?都能很快的上手,寫出精彩漂亮的AutoLISP程序!可說是非常簡單而有其獨特的風格!有的AutoCAD系統(tǒng)變量,功能之強大令人欣喜不已!撰寫的環(huán)境不挑剔：只要是一般的文書編輯軟件都適用!AutoLISP卻可在不改寫的原貌下,加載與執(zhí)行!三.撰寫AutoLISP的動機?四.AutoLISP的效益評估?時間反而變得遙遙無期,那倒不如求助于市面上已有的相關AutoCAD支持軟件。當然,無形中,『AutoCAD高手的封號』也將黃功。是必須忍耐的,試著用AutoLISP解決看看!AutoLISP的關鍵：充份掌握『語法結構』&『功能函數(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 點畫矩形 (指令 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 點畫出二條線 (指令 line mp1 mp3 ) (指令 line mp2 mp4 ) (prin1) ) (prompt ********** C:PBOX **********) (prin1) 四、本章結語 : 經(jīng)由簡單的 程序設計全程演練 ,從『產(chǎn)生動機、預期目標』224。 『構思程序流程、相關變量訂定』224。 『撰寫程序』224。 『加載程序』224。 『執(zhí)行 PBOX 指令』224?！焊牧? 』 相信您已能更了解 AutoLISP 是怎么回事了 ,短短的十幾行 ,能做的事卻不少 ,一路循序漸進練習下來 ,您應該覺得一點兒也不吃力、『游刃有余』才對 ,果真如此 ,那恭喜您 ,『好戲還在后頭』 ,還有體力的話 ,就繼續(xù)『征服下一章』吧 !!! 若您仍覺得有點『迷迷糊糊』 ,那就休息一下 ,配合復習第二章『學好 AutoLISP的關鍵、基本結構與語法』再好好的 把第四章『看』 amp?！鹤觥粋€明白 ,相信有心成為 AutoCAD 高手的您 ,一定不會那么容易就『被十幾行打敗』的 !!! ［返回］ 單元六：像素數(shù)據(jù)的取得與活用技巧 (一 ) 一 .像素數(shù)據(jù)串行的重要性： 您可知您所繪制的每一個 AutoCAD 元體 (如 LINE、 CIRCLE、 ARC、 TEXT、 BLOCK、POLYLINE、 DIMENSION...) 均有其專屬的資料串行 !!! 沒錯以 LIST 指令即可查詢出來 ,顯示于屏幕上 但是該如何透過 AutoLISP 功能 去選取、取得、修改、更新資料呢 ??? 該如何去有效活用呢 ??? 別急就是本單元的學習重點 !!! 請注意本章節(jié)非常重要 ,務必要求透徹了解 !!! 二、重要像素資料應用相關的功能函數(shù)介紹： 中國最龐大的下載資料庫 (整理 . 版權歸原作者所有 ) 第 19 頁 共 33 頁 (entsel [提示 ]) 請求選取一個像素 ,響應包含像素名稱及選點坐標的串行 (car 串行 ) 傳回：串行中的第一個元素，通常用來求 x 坐標 (cadr 串行 )傳回：串行中的第二個元素，通常用來求 y 坐標 (caddr 串行 )傳回：串行中的第三個元素，通常用來求 z坐標 (cdr 串行 ) 傳回：除去第一個元素后的 串行 (entlast)：取出圖形數(shù)據(jù)中的最后一個像素 (entget 像素名稱 [應用程序串行 ])：取得像素名稱的資料聯(lián)合串行 (assoc 關鍵元素 聯(lián)合串行 ) ：依關鍵元素找尋聯(lián)合串行中關系資料 (cons 新元素 串行 ) 傳回：將新元素結合到串行，常用于產(chǎn)生『點對串行』 (subst 新項 舊項 串行 ) 傳回：替換新舊串行后的串行 (entmod 像素串行 ) 依更新的資料串行更新屏幕上元體 (list 元素 元素? ) 傳回：將元素結合成一串行 三、像素數(shù)據(jù)聯(lián)合串行取得技巧與群碼分 析： ：請開一張新圖 ,并建立二個新層 STR、 TXT,顏色分別為紅色(red)、綠色 (green) 首先在 STR 層畫一條線 指令 : LINE 起點 : 15,10 下一點 : 50,40 下一點 : (按 [Enter]結束 ) 在 STR 層畫一個圓 指令 : CIRCLE CIRCLE 三點 (3P)/二點 (2P)/相切 ,相切 ,半徑 (T)/中心點 : 60,15 直徑 (D)/半徑 : 在 TXT 層寫幾個字 AutoCAD 指令 : DTEXT 對正 (J)/字型 (S)/起點 : (選取文字的 位置點 ) 高度 : 8 旋轉(zhuǎn)角度 0:0 文字 : AutoCAD 文字 : (按 [Enter]結束 ) 2. 在 AutoCAD 的 Command:下練習取得像素數(shù)據(jù)串行 練習函數(shù) entsel、 car、 cdr、 entget 指令 : (setq en1 (entsel)) 選取對象 : (選取圓 ) 傳回一串行 : (像素名稱 : 2940518 ( )) 其中 像素名稱 : 2940518 ==像素名稱 ( ) ==選點坐 標 指令 : (car en1) 傳回 : 像素名稱 : 2940518 ==串行的第一個元素 指令 : (cadr en1) 傳回 : ( ) ==串行的第二個元素 指令 : (setq en1_data (entget (car en1))) 中國最龐大的下載資料庫 (整理 . 版權歸原作者所有 ) 第 20 頁 共 33 頁 傳回『圓的聯(lián)合資料串行』： ((1 . 像素名稱 : 2940518) (0 . CIRCLE) (5 . 23) (100 . AcDbEntity) (67 . 0) (8 . STR) (100 . AcDbCircle) (10 ) (40 . ) (210 )) 其中各子串行的第一個元素均為『群碼』 ,各代表不同對應資料 指令 : (setq en2 (entsel)) 選取對象 : (碰選線 ) 傳回一串行 : (像素名稱 : 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)) 選取對象 : (碰選文字 ) 傳回一串行 : (像素名稱 : 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)合資料串行 ,您將會發(fā)現(xiàn) = 不同的元體類別 ,其聯(lián)合資料串行也不一樣 圓的聯(lián)合資料串行 en1_data (1 . 像素名稱 : 2940518) 群碼 1對應『像素名稱』 (0 . CIRCLE) 群碼 0對應『像素類別』 (5 . 23) 群碼 5對應『處理碼』 (100 . AcDbEntity) 群碼 100 對應『子類別』 (67 . 0) 群碼 67 對應『模型空間』 (8 . STR) 群碼 8對應『圖層名稱』 (100 . AcDbCircle) 群碼 100 對應『子類別』 (10 ) 群碼 10 對應『圓心坐標』 (40 . ) 群碼 40 對應『半徑值』 (210 ) 群碼 210 對應『像素擠出方向』 線的聯(lián)合資料串行 en2_data (1 . 像素 名稱 : 2940500) 群碼 1 對應『像素名稱』 (0 . LINE) 群碼 0對應『像素類別』 (5 . 20) 群碼 5 對應『處理碼』 中國最龐大的下載資料庫 (整理 . 版權歸原作者所有 ) 第 21 頁 共 33 頁 (100 . AcDbEntity) 群碼 100 對應『子類別』 (67 . 0) 群碼 67 對應『模型空間』 (8 . STR) 群碼 8對應『圖層名稱』 (100 . AcDbLine) 群碼 100 對應『子類別』 (10 ) 群碼 10 對應『線起始點坐標』 (11 ) 群碼 11 對應『線 終止點坐標 (210 ) 群碼 210 對應『像素擠出方向』 文字的聯(lián)合資料串行 en3_data (1 . 像素名稱 : 2940520) 群碼 1 對應『像素名稱』 (0 . TEXT) 群碼 0對應『像素類別』 (5 . 24) 群碼 5 對應『處理碼』 (100 . AcDbEntity) 群碼 100 對應『子類別』 (67 . 0) 群碼 67 對應『模型空間』 (8 . TXT) 群碼 8對應『圖層名稱』 (100 . AcDbText) 群碼 100 對 應『子類別』 (10 ) 群碼 10 對應『插入點』 (40 . 8) 群碼 40 對應『字高』 (1 . AutoCAD) 群碼 1對應『文字內(nèi)容』 (50 . ) 群碼 50 對應『旋轉(zhuǎn)角度』 (41 . ) 群碼 41 對應『寬度比例系數(shù)』 (51 . ) 群碼 51 對應『傾斜角』 (7 . STANDARD) 群碼 7對應『字型名稱』 (71 . 0) 群碼 71 對應『鏡設方向』 (72 . 0) 群碼 72 對應『水平對齊設定』 (11 ) 群碼 11 對應『對齊點』 (210 ) 群碼 210 對應『像素擠出方向』 (100 . AcDbText) 群碼 100 對應『子類別』 (73 . 0) 群碼 73 對應『水平對齊設定』 4. 由以上可看出 ,元體資料串行有些『群碼』是共通的 (如 0、 210) 有些『群碼』是因元體而異的 (如 40),有些『群碼』是某些元體特有的 (如 en3_data 資料串行就比 en1_data amp。 en2_data 資料串行來的多 ) 注意 1:往后練習撰寫 AutoLISP 程序中 ,若對各元體與群碼的對應有疑問或不清楚時 ,請隨時查看『附錄 C』有關詳細的群碼表分析 !!! 注意 2:子串行中間有一點『 ?』隔開二元素 ,我們稱為『點對串行』 ,點對串行要特別注意的是『第二個元素取得 ,要用 cdr 函數(shù)』 ,而非 cadr 函數(shù) !若要產(chǎn)生新的『點對串行』 ,可用 cons 函數(shù)完成 .如 : (cons 1 “ ABC” ) 響應 (1 . “ ABC” ) 四、像素數(shù)據(jù)修改與更新技巧： amp。 更新四步驟： 步驟一：用 entget 函數(shù)取得元體數(shù)據(jù)串行 ,如上例中 en1_data、 en2_data、en3_data 步驟二：用 assoc 函數(shù)依『群碼值』找尋取得欲修改的舊『子串行』，新的子串行可以用 cons 函數(shù)去產(chǎn)生 中國最龐大的下載資料庫 (整理 . 版權歸原作者所有 ) 第 22 頁 共 33 頁 步驟三：用 subst 函數(shù)將數(shù)據(jù)串行中的新、舊子串行替換 步驟四：用 entmod 函數(shù)更新的資料串行 ,同時自動更新屏幕上像素 AutoCAD 的『指令 :』下做基本像素數(shù)據(jù)修改 amp。更新練習： 請將上例中 ,圓的半徑修改為 過程如下 : 指令 :!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)) 響應： ((1 . 像素名