第9章AutoLISP和Visual_LISP.ppt

1、,第9章 訪問和修改圖形數(shù)據(jù)庫,9.1 獲取圖元的名字 AutoCAD的圖形是由多個(gè)圖形對(duì)象組成的，最基本的圖形對(duì)象稱作圖元。圖元之間是以鏈表的形式存儲(chǔ)的。每個(gè)圖元都有一個(gè)用16進(jìn)制表示的唯一的名字。 entnext函數(shù)可以獲取圖形庫第一個(gè)圖元的名字或指定圖元的下一個(gè)圖元的名字。 entlast函數(shù)可以獲取圖形庫最后一個(gè)，即最新生成的圖元的名字。 通過entnext函數(shù)，可以訪問到圖形庫的每一個(gè)圖元。,假定本作業(yè)依次繪制了一條直線、一個(gè)圓和一個(gè)圓弧。 (setq e1(entnext)；返回圖形庫第一個(gè)圖元即這條直線的圖元名，并將其賦給了變量e1。 (setq e2(entnext e1)；返

2、回圖形庫e1的下一個(gè)圖元即這個(gè)圓的圖元名，并將其賦給了變量e2。 (setq e3(entnext e2)；返回圖形庫e2的下一個(gè)圖元即即這個(gè)圖弧的圖元名，并將其賦給了變量e3。 (setq e4(entlast)；返回圖形庫最后一個(gè)圖元即這個(gè)圖弧的圖元名，并將其賦給了變量e1。 因?yàn)閳A弧既是第3個(gè)圖元，也是最后一個(gè)圖元，所以e3和e4記錄的是同一圖元的名字。,【例9-1】繪制下圖所示的4個(gè)帶有中心線的螺紋孔。要求首先獲取中心線的螺紋孔的圖元名，然后復(fù)制這些指定名字的圖元。 以下表達(dá)式首先生成了兩條中心線和1個(gè)螺紋孔。在生成這些圖元的同時(shí)獲取并保存了這些圖元的名字為e1、e2、e3和e4。,(

3、command layer m zhongxin l center ) (command line -5,0 5,0 ) (setq e1(entlast) (command line 0,-5 0,5 ) (setq e2(entlast) (command layer m cuxian lw 0.3 ) (command circle 0,0 3) (setq e3(entlast),(command layer m xixian ) (command arc -3.5,0 0,3.5 0,-3.5) (setq e4(entlast) 以下表達(dá)式調(diào)用AutoCAD的copy命令，復(fù)制3個(gè)

4、帶有中心線的螺紋孔。 (command copy e1 e2 e3 e4 m 0,0 12,0 24,0 36,0 ),例9-2 定義繪制圖b所示圖形的命令。插入點(diǎn)p0、直徑d、寬度b和h作為繪制該圖形時(shí)交互輸入的參數(shù)。該例的主要目的是示范如何利用圖元名實(shí)現(xiàn)AutoCAD的圖形編輯和填充剖面線。,a b (defun c:keyway() (setq pc (getpoint 輸入定位點(diǎn)： ) (setq d (getdist pc 輸入軸的直徑：) (setq b (getdist pc 輸入鍵槽的寬度：),(setq w (getdist pc 輸入鍵槽的深度：) (setq r (* 0

5、.5 d) (command circle pc r) ；繪制圓 (setq e1 (entlast) ；將entlast返回的該圓的圖元名賦給e1 (setq p0(polar pc 0 r) ；p0是圓上一點(diǎn)，將用于修剪該圓 (setq p1(list (car pc) (+ (cadr pc) (* 0.5 b) (setq p2(list (+ (car pc) (* 1.2 r) (cadr p1) (command line p1 p2 ) (setq e2 (entlast) ；將entlast返回的該直線的圖元名賦給e2 (setq p3(list (car pc) (- (c

6、adr pc) (* 0.5 b) (setq p4(list (car p2) (cadr p3) (command line p3 p4 ),(setq e3 (entlast) ；將entlast返回的該直線的圖元名賦給e3 (setq p5(list (+ (car pc) (- r w) (+ (cadr pc) (* 0.5 b) (setq p6(list (+ (car pc) (- r w) (- (cadr pc) (* 0.5 b) (command line p5 p6 ) (setq e4 (entlast) ；將entlast返回的該直線的圖元名賦給e4 ；e1、e

7、2等作為剪切邊，p0、p1等點(diǎn)確定被剪邊和剪去哪一段 (command trim e1 e2 e3 e4 p0 p1 p2 p3 p4 ) ；e1、e2等作為剖面域的邊界繪制剖面線 (command hatch ansi31 2 0 e1 e2 e3 e4 ) ； ),9.2 圖元表 圖元表記錄著圖元的名字、類型、幾何數(shù)據(jù)、圖層、顏色等信息。通過修改或創(chuàng)建圖元表，可以實(shí)現(xiàn)編輯或生成圖元。 9.2.1 獲取圖元表 例如輸入下面3個(gè)表達(dá)式： (command text 10,20 5 0 ABCDE)；書寫文本 (setq e(entlast)；獲取文本的圖元名，將圖元的名字賦給變量e。 (set

8、q elist(entget e) ；獲取圖元名字為e的圖元表。 在Command:提示下鍵入!elist或在控制臺(tái)_$提示下鍵入elist，即可得到以下該圖元的圖元表。,(-1 . )；圖元名 (0 . TEXT)；圖元種類 (330 . )；軟指針句柄 (5 . 19F)；圖元描述字 (100 . AcDbEntity)；AutoCAD圖元 (67 . 0)；模型空間 (410 . Model)；模型空間標(biāo)識(shí) (8 . 0) ；所在圖層名 (100 . AcDbText) ；AutoCAD文本 (10 10.0 20.0 0.0) ；定位點(diǎn)坐標(biāo) (40 . 5.0)；文本字高 (1 . A

9、BCDE)；文本內(nèi)容,(50 . 0.0)；文本的旋轉(zhuǎn)角度 (41 . 1.0)；文字的寬度因子 (51 . 0.0)；文字的傾斜角度 (7 . STANDARD)；字樣的名字 (71 . 0)；正常文本（非左右或上下鏡像的文本） (72 . 0)；左下角點(diǎn)對(duì)齊方式 (11 0.0 0.0 0.0)；輔助的定位點(diǎn)坐標(biāo) (210 0.0 0.0 1.0)；厚度方向 (100 . AcDbText) ；AutoCAD文本 (73 . 0)；不垂直書寫 ),對(duì)圖元表的補(bǔ)充說明： （1）圖元表的每個(gè)元素還是表，子表的第一個(gè)元素是具有一定含義的整數(shù)，其含義與圖元在DXF（圖形交換文件）中實(shí)體代碼的含義相

10、同（詳見AutoCAD有關(guān)DXF文件的介紹）。 （2）多數(shù)的子表采用了點(diǎn)對(duì)結(jié)構(gòu)，這樣既節(jié)省存儲(chǔ)空間，也可以簡化運(yùn)算，詳見第2.4節(jié)數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)。 （3）其他種類圖元的圖元表的非幾何信息部份基本相同，幾何信息部份有些差異。 9.2.2 對(duì)圖元表的操作 假定elist是某圖元的圖元表。利用AutoLISP有關(guān)表處理的函數(shù)可以修改圖元表。 （1）了解圖元的種類 (cdr (assoc 0 elist),該表達(dá)式的內(nèi)層表達(dá)式中，用0作為關(guān)鍵字，在elist表中尋找相關(guān)的子表，返回有關(guān)圖元種類的子表(0 . 圖元種類)，由于此表為點(diǎn)對(duì)，所以cdr函數(shù)返回它的第2個(gè)元素圖元種類。若此圖元為直線，則返回L

11、INE，若此圖元為單行文本，則返回TEXT。 （2）了解圖元所在圖層的名字 (cdr (assoc 8 elist) 該表達(dá)式的內(nèi)層表達(dá)式中，用8作為關(guān)鍵字，返回elist表中有關(guān)圖層名字的子表(8 . 圖層名)，由于此表為點(diǎn)對(duì)，所以cdr函數(shù)返回它的第2個(gè)元素圖層名。 （3）了解圓、圓弧的半徑或單行文本的字高 (cdr (assoc 40 elist) 該表達(dá)式的內(nèi)層表達(dá)式中，用40作為關(guān)鍵字，返回elist表中有關(guān)圓、圓弧的半徑或單行文本的字高的子表(40 . 數(shù)值)，由于此表為點(diǎn)對(duì)，所以cdr函數(shù)返回它的第2個(gè)元素具體的數(shù)值。,（4）了解直線的起點(diǎn)、圓、圓弧的中心或單行文本的定位點(diǎn) (c

12、dr (assoc 10 elist) 該表達(dá)式的內(nèi)層表達(dá)式中，用10作為關(guān)鍵字，返回elist表中有關(guān)直線的起點(diǎn)、圓、圓弧的中心或單行文本的定位點(diǎn)的子表(10 數(shù)值 數(shù)值 數(shù)值)，注意此表不再是點(diǎn)對(duì)，所以cdr函數(shù)返回去掉它的第1個(gè)元素之后的子表，即點(diǎn)的XYZ坐標(biāo)。 （5）用圓、圓弧的半徑或單行文本的新值取代其老值 (setq elist (subst (cons 40 h)(assoc 40 elist)elist) (cons 40 h)構(gòu)造一個(gè)新的點(diǎn)對(duì)子表，例如（40 . 3.5）。(assoc 40 elist)返回elist表內(nèi)的點(diǎn)對(duì)子表，例如（40 . 5.0）。subst函數(shù)用

13、新子表，例如（40 . 3.5），替換elist表內(nèi)的老子表（40 . 5.0）。最外層的setq函數(shù)將替換后的賦給了變量elist。 （6）更新圖形庫的圖元表 (entmod elist) entmod函數(shù)的功能是更新圖形庫的指定圖元表的圖元，即更新了實(shí)際圖形對(duì)象。例如單行文本的字高由5.0改變?yōu)?.5。,9.2.3 舉例 【例9-3】定義將本作業(yè)所有的單行文本改變?yōu)橹付ǜ叨鹊拿睢?右圖所示為修改圖形數(shù)據(jù)庫內(nèi)單行文本字高的程序流程圖，其中e1是用于存放圖元名的變量。單行文本的圖元種類是TEXT，用MTEXT書寫的是段落文本，它的圖元種類是MTEXT。因此本程序不能修改用MTEXT書寫的文本

14、。,否,否,是,是,以下是定義改變本作業(yè)所有單行文本為指定的高度命令的程序代碼： (defun c:cth( / h e el) (setq h(getdist n輸入文本新的字高: ) (setq e(entnext)；得到第一個(gè)圖元的名字 (while e ；當(dāng)e有定義時(shí)做以下運(yùn)算 (setq el(entget e)；得到第一個(gè)圖元的圖元表 (if (= TEXT (cdr (assoc 0 el) (progn ；如果圖元的類型為TEXT時(shí)做以下運(yùn)算 (setq el(subst (cons 40 h)(assoc 40 el)el)；新字高替換圖元表的原字高 (if (= 3 (cd

15、r (assoc 72 el)；如果文本為Align方式對(duì)齊,(setq el(subst (cons 72 0) (assoc 72 el) el)；忽略第二個(gè)定位點(diǎn) ) (entmod el)；更新圖形數(shù)據(jù)庫的el圖元表 ) ) (setq e(entnext e)；令e等于e的下一個(gè)圖元名 ) (princ)；靜默退出 ),9.3 選擇集 選擇集是有名字的一些圖元名的集合，常用于編輯或修改圖形對(duì)象的命令。 9.3.1 常用的有關(guān)選擇集的函數(shù) （1）(ssget 選擇方法 點(diǎn)1 點(diǎn)2 點(diǎn)表 過濾表) 創(chuàng)建一個(gè)選擇集。有以下一些選擇方法。 C（Crossing）：與點(diǎn)1、點(diǎn)2所確定的窗口相交

16、的那些對(duì)象被選中。 CP（Cpolygon）：與點(diǎn)表所確定的多邊形相交的那些對(duì)象被選中。 F（Fence）：與點(diǎn)表所確定的折線相交的那些對(duì)象被選中。,I（Implied）：處于夾?。℅rips）狀態(tài)的那些對(duì)象被選中 L（Last）：最新的、最后繪制的那個(gè)圖元被選中。由于在多文檔環(huán)境下最后繪制的對(duì)象并不一定是可見的，例如，這個(gè)繪圖窗口被最小化或未放置在頂層，這時(shí)使用該選項(xiàng)將返回nil。 P（Previous）：上一次創(chuàng)建的選擇集。 W（Window）：整體在點(diǎn)1、點(diǎn)2所確定的窗口之內(nèi)的那些對(duì)象被選中。 WP（Wpolygon）：整體在點(diǎn)表所確定的多邊形之內(nèi)的那些對(duì)象被選中。 X：整個(gè)數(shù)據(jù)庫，包括

17、被關(guān)閉、被凍結(jié)圖層上的對(duì)象和屏幕之外的那些對(duì)象被選中。,:E：通過光標(biāo)拾取框的那些對(duì)象被選中。 :N：在該函數(shù)的執(zhí)行過程中，為選定對(duì)象調(diào)用ssnamex函數(shù)獲得容器塊和轉(zhuǎn)換矩陣的附加信息。只有通過W、C和點(diǎn)拾取選擇方法時(shí)，才可以使用這一附加信息。 :S：只允許單一選擇集。 點(diǎn)1、點(diǎn)2、點(diǎn)表和過濾表是與選擇方法配合使用的。 過濾表的功能是根據(jù)過濾表描述的條件對(duì)所選的對(duì)象進(jìn)行篩選，只保留滿足過濾條件的對(duì)象。過濾表是entget函數(shù)返回的圖元表中的點(diǎn)對(duì)，例如(0 . LINE)、(8 . LAYER1)、(6 . center)、(62 . 1)，點(diǎn)對(duì)的第1個(gè)元素是圖形交換文件中的組碼，詳見Auto

18、CAD有關(guān)DXF文件的介紹。,如果僅提供了一個(gè)點(diǎn)，該函數(shù)認(rèn)為用戶通過這個(gè)點(diǎn)來選擇單個(gè)的對(duì)象。如果省略所有的參數(shù)，在調(diào)用該函數(shù)時(shí)將出現(xiàn)Select objects：提示，這用戶以交互方式選擇對(duì)象。在這種情況下，亮顯被選取的對(duì)象。 該函數(shù)忽略當(dāng)前設(shè)置的對(duì)象捕捉模式。由于選擇集會(huì)占用臨時(shí)文件存儲(chǔ)區(qū)，所以AutoLISP不允許同時(shí)打開128以上的個(gè)選擇集。 如果成功該函數(shù)返回創(chuàng)建選擇集的名稱，例如，否則返回nil。 以下是調(diào)用該函數(shù)的一些表達(dá)式。 (setq s1 (ssget (2 2)；創(chuàng)建一個(gè)選擇集，如果存在一個(gè)通過點(diǎn)(2,2)的圖元，它將被選中并將返回的選擇集的名字賦給變量s1,(setq s

19、2 (ssget w (0 0) (10 10)；創(chuàng)建一個(gè)選擇集，它的成員是所有整體在對(duì)角點(diǎn)(0,0)和(10,10)窗口內(nèi)的圖元，如果成功則將選擇集的名字賦給變量s2 (setq s3 (ssget X (0 . LINE) (62 . 5) ；(0 . LINE) (62 . 5)是過濾表，該選擇集的成員是當(dāng)前作業(yè)中所有藍(lán)色的直線，如果成功將選擇集的名字賦給變量s3 (setq s4 (ssget)；以交互方式創(chuàng)建一個(gè)選擇集。執(zhí)行到該表達(dá)式時(shí)，自動(dòng)切換到圖形窗口，出現(xiàn)Select objects：提示，等待用戶操作。用戶此時(shí)可用各種選擇方法多次選擇，直至用空回車響應(yīng)Select objec

20、ts：提示。選擇集由交互選擇的這些圖元組成，將選擇集的名字賦給變量s4,（2）(entsel 提示信息) 提示用戶以單點(diǎn)方式選擇單個(gè)對(duì)象。若省略提示信息，則提示信息為Select object：。返回值為兩個(gè)元素組成的表，第一個(gè)元素是所選的圖元名，第二個(gè)元素是用戶選擇對(duì)象時(shí)拾取點(diǎn)在當(dāng)前UCS下的坐標(biāo)。 （3）(ssadd 圖元名 選擇集) 將指定的圖元加入到選擇集。如果調(diào)用該函數(shù)時(shí)無參數(shù)，將創(chuàng)建一個(gè)空選擇集；如果只提供圖元名，將創(chuàng)建一個(gè)僅含該圖元的選擇集。,（4）(ssdel圖元名 選擇集) 從選擇集內(nèi)移去指定的圖元。 （5）(sslength ss) 返回選擇集的長度，即選擇集內(nèi)圖元的數(shù)量。

21、 （6）(ssname 選擇集 序號(hào)) 返回選擇集中由序號(hào)指定的那個(gè)圖元名。選擇集內(nèi)第一個(gè)元素的序號(hào)為零。,9.3.2 舉例 【例9-4】 定義將選到的單行文本改變?yōu)橹付ǜ叨鹊拿睢?(defun c:csth( / h s1 n e el) (setq h(getdist n輸入文本的高度：) (setq s1(ssget)；以交互方式得到一個(gè)選擇集 (setq n 0) ；序號(hào)的初值為0 (repeat (sslength s1)；重復(fù)執(zhí)行，執(zhí)行的次數(shù)等于所選對(duì)象的個(gè)數(shù) (setq e(ssname s1 n)；得到選擇集內(nèi)第n個(gè)對(duì)象的圖元名 (setq el(entget e)；得到這個(gè)

22、對(duì)象的圖元表 (if (= TEXT (cdr (assoc 0 el)；判斷這個(gè)對(duì)象是否為TEXT (progn ；是TEXT,(setq el(subst (cons 40 h) (assoc 40 el) el)；用新字高替換圖元表的原字高點(diǎn)表 (if (= 3 (cdr (assoc 72 el) ；如果文本為Align方式對(duì)齊 (setq el(subst (cons 72 0)(assoc 72 el) el)；忽略第二個(gè)定位點(diǎn) ) (entmod el) ；更新圖形數(shù)據(jù)庫的el圖元表 ) ) (setq n(1+ n) ；序號(hào)n的數(shù)量加1 ) ),9.4 符號(hào)表 AutoCAD的

23、符號(hào)表是指視窗表、線型表、圖層表、字樣表、視圖表、用戶坐標(biāo)系表、用戶應(yīng)用程序標(biāo)識(shí)表、尺寸式樣表和塊記錄表。在某些情況下，僅從圖元表不能了解圖元的全部特性，例如當(dāng)圖元的顏色、線型與所在圖層一致時(shí)，圖元表中沒有記錄顏色、線型的子表，因此，了解這樣圖元的顏色，就需要訪問圖層表。 9.4.1 符號(hào)表操作函數(shù) （1）(tblnext 表的種類 回繞) 表的種類可以是LAYER、LTYPE、VIEW、STYLE、BLOCK、UCS、APPID、DIMSTYLE和VPORT。若回繞項(xiàng)為T，則返回指定種類的第一個(gè)符號(hào)表，若該項(xiàng)為nil或缺省，則返回指定種類的當(dāng)前表符號(hào)的下一個(gè)符號(hào)表。,例如返回圖層表，若當(dāng)前作

24、業(yè)的圖層名依次是0、layer1、 layer2和layer3。 隨時(shí)輸入表達(dá)式(tblnext layer T)都返回(0 . LAYER) (2 . 0) (70 . 0) (62 . 7) (6 . CONTINUOUS)。因?yàn)榛乩@項(xiàng)為T，所以返回當(dāng)前作業(yè)的第一個(gè)圖層表。 接著輸入表達(dá)式(tblnext layer nil)或(tblnext layer)返回(0 . LAYER) (2 . layer1) (70 . 0) (62 . 7) (6 . CONTINUOUS)。因?yàn)榛乩@項(xiàng)為nil或缺省，所以返回當(dāng)前圖層表的下一個(gè)圖層表。同樣的操作依次返回layer2、layer3的圖層表

25、。再輸入這個(gè)表達(dá)式，將返回nil，因?yàn)閘ayer3是最后的圖層。,例如返回塊定義表，若當(dāng)前作業(yè)已定義了名字為BOX的圖塊，輸入表達(dá)式(tblnext block) 返回(0 . BLOCK) (2 . BOX) (70 . 0) (10 9.0 2.0 0.0) (-2 . ) （2）(tblobjname 表的種類 表名) 返回指定種類表的圖元名。如果找到，返回符號(hào)表的圖元名。返回的圖元名可以用于entget和entmod 操作。例如(tblobjname layer 0)，返回名字為0的圖層表的圖元名。,（3）(tblsearch 表的種類 表名 設(shè)置下一個(gè)) 返回指定種類和名字的符號(hào)表。如果設(shè)置下一個(gè)為T，該表將作為定位點(diǎn)，隨后調(diào)用tblnext函數(shù)在不回繞的設(shè)置下，就會(huì)返回該表的下一個(gè)表。例如(tblsearch layer t) 返回(0 . LAYER) (2 . layer1) (70 . 0) (62 . 7) (6 . CONTINUOUS)圖層表，且layer1為定位點(diǎn)，接著輸入表達(dá)式(tblnext layer )返回(0 . LAYER) (2 . layer2) (70 . 0) (62 . 7) (6 . CONTINUOUS)圖層表。,(defun c:cc