CAD二次開(kāi)發(fā)之圖形數(shù)據(jù)庫(kù)

CAD二次開(kāi)發(fā)之圖形數(shù)據(jù)庫(kù)第一頁(yè)，共34頁(yè)。9.1獲取圖元的名字AutoCAD的圖形是由多個(gè)圖形對(duì)象組成的，最基本的圖形對(duì)象稱作圖元。圖元之間是以鏈表的形式存儲(chǔ)的。每個(gè)圖元都有一個(gè)用16進(jìn)制表示的唯一的名字。

entnext函數(shù)可以獲取圖形庫(kù)第一個(gè)圖元的名字或指定圖元的下一個(gè)圖元的名字。

entlast函數(shù)可以獲取圖形庫(kù)最后一個(gè)，即最新生成的圖元的名字。通過(guò)entnext函數(shù)，可以訪問(wèn)到圖形庫(kù)的每一個(gè)圖元。第二頁(yè)，共34頁(yè)。假定本作業(yè)依次繪制了一條直線、一個(gè)圓和一個(gè)圓弧。(setqe1(entnext))；返回圖形庫(kù)第一個(gè)圖元即這條直線的圖元名<Entityname:7ef6ce88>，并將其賦給了變量e1。(setqe2(entnexte1))；返回圖形庫(kù)e1的下一個(gè)圖元即這個(gè)圓的圖元名<Entityname:7ef6ce90>，并將其賦給了變量e2。(setqe3(entnexte2))；返回圖形庫(kù)e2的下一個(gè)圖元即即這個(gè)圖弧的圖元名<Entityname:7ef6ce98>，并將其賦給了變量e3。

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

(command"layer""m""zhongxin""l""center""""")(command"line""-5,0""5,0""")(setqe1(entlast))(command"line""0,-5""0,5""")(setqe2(entlast))(command"layer""m""cuxian""lw"0.3"""")(command"circle""0,0"3)(setqe3(entlast))第五頁(yè)，共34頁(yè)。(command"layer""m""xixian""")(command"arc""-3.5,0""0,3.5""0,-3.5")(setqe4(entlast))以下表達(dá)式調(diào)用AutoCAD的copy命令，復(fù)制3個(gè)帶有中心線的螺紋孔。(command"copy"e1e2e3e4"""m""0,0""12,0""24,0""36,0""")第六頁(yè)，共34頁(yè)。[例9-2]定義繪制圖b所示圖形的命令。插入點(diǎn)p0、直徑d、寬度b和h作為繪制該圖形時(shí)交互輸入的參數(shù)。該例的主要目的是示范如何利用圖元名實(shí)現(xiàn)AutoCAD的圖形編輯和填充剖面線。ab(defunc:keyway()(setqpc(getpoint"輸入定位點(diǎn)："))(setqd(getdistpc"輸入軸的直徑："))(setqb(getdistpc"輸入鍵槽的寬度："))第七頁(yè)，共34頁(yè)。(setqw(getdistpc"輸入鍵槽的深度："))(setqr(*0.5d))(command"circle"pcr)；繪制圓(setqe1(entlast))；將entlast返回的該圓的圖元名賦給e1(setqp0(polarpc0r))；p0是圓上一點(diǎn)，將用于修剪該圓(setqp1(list(carpc)(+(cadrpc)(*0.5b))))(setqp2(list(+(carpc)(*1.2r))(cadrp1)))(command"line"p1p2"")(setqe2(entlast))；將entlast返回的該直線的圖元名賦給e2(setqp3(list(carpc)(-(cadrpc)(*0.5b))))(setqp4(list(carp2)(cadrp3)))(command"line"p3p4"")第八頁(yè)，共34頁(yè)。(setqe3(entlast))；將entlast返回的該直線的圖元名賦給e3(setqp5(list(+(carpc)(-rw))(+(cadrpc)(*0.5b))))(setqp6(list(+(carpc)(-rw))(-(cadrpc)(*0.5b))))(command"line"p5p6"")(setqe4(entlast))；將entlast返回的該直線的圖元名賦給e4；e1、e2等作為剪切邊，p0、p1等點(diǎn)確定被剪邊和剪去哪一段(command"trim"e1e2e3e4""p0p1p2p3p4"")；e1、e2等作為剖面域的邊界繪制剖面線(command"hatch""ansi31""2""0"e1e2e3e4"")；)第九頁(yè)，共34頁(yè)。9.2圖元表圖元表記錄著圖元的名字、類型、幾何數(shù)據(jù)、圖層、顏色等信息。通過(guò)修改或創(chuàng)建圖元表，可以實(shí)現(xiàn)編輯或生成圖元。9.2.1獲取圖元表例如輸入下面3個(gè)表達(dá)式：(command"text""10,20"50"ABCDE")；書(shū)寫(xiě)文本(setqe(entlast))；獲取文本的圖元名，將圖元的名字賦給變量e。(setqelist(entgete))；獲取圖元名字為e的圖元表。在"Command:"提示下鍵入!elist或在控制臺(tái)"_$"提示下鍵入elist，即可得到以下該圖元的圖元表。第十頁(yè)，共34頁(yè)。((-1.<Entityname:7ef69500>)；圖元名(0."TEXT")；圖元種類(330.<Entityname:7ef67d00>)；軟指針句柄(5."19F")；圖元描述字(100."AcDbEntity")；AutoCAD圖元(67.0)；模型空間(410."Model")；模型空間標(biāo)識(shí)(8."0")；所在圖層名(100."AcDbText")；AutoCAD文本(1010.020.00.0)；定位點(diǎn)坐標(biāo)(40.5.0)；文本字高(1."ABCDE")；文本內(nèi)容第十一頁(yè)，共34頁(yè)。(50.0.0)；文本的旋轉(zhuǎn)角度(41.1.0)；文字的寬度因子(51.0.0)；文字的傾斜角度(7."STANDARD")；字樣的名字(71.0)；正常文本（非左右或上下鏡像的文本）(72.0)；左下角點(diǎn)對(duì)齊方式(110.00.00.0)；輔助的定位點(diǎn)坐標(biāo)(2100.00.01.0)；厚度方向(100."AcDbText")；AutoCAD文本(73.0)；不垂直書(shū)寫(xiě))第十二頁(yè)，共34頁(yè)。對(duì)圖元表的補(bǔ)充說(shuō)明：（1）圖元表的每個(gè)元素還是表，子表的第一個(gè)元素是具有一定含義的整數(shù)，其含義與圖元在DXF（圖形交換文件）中實(shí)體代碼的含義相同（詳見(jiàn)AutoCAD有關(guān)DXF文件的介紹）。（2）多數(shù)的子表采用了點(diǎn)對(duì)結(jié)構(gòu)，這樣既節(jié)省存儲(chǔ)空間，也可以簡(jiǎn)化運(yùn)算，詳見(jiàn)第2.4節(jié)數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)。（3）其他種類圖元的圖元表的非幾何信息部份基本相同，幾何信息部份有些差異。9.2.2對(duì)圖元表的操作假定elist是某圖元的圖元表。利用AutoLISP有關(guān)表處理的函數(shù)可以修改圖元表。（1）了解圖元的種類(cdr(assoc0elist))第十三頁(yè)，共34頁(yè)。

該表達(dá)式的內(nèi)層表達(dá)式中，用0作為關(guān)鍵字，在elist表中尋找相關(guān)的子表，返回有關(guān)圖元種類的子表(0."圖元種類")，由于此表為點(diǎn)對(duì)，所以cdr函數(shù)返回它的第2個(gè)元素"圖元種類"。若此圖元為直線，則返回"LINE"，若此圖元為單行文本，則返回"TEXT"。（2）了解圖元所在圖層的名字(cdr(assoc8elist))該表達(dá)式的內(nèi)層表達(dá)式中，用8作為關(guān)鍵字，返回elist表中有關(guān)圖層名字的子表(8."圖層名")，由于此表為點(diǎn)對(duì)，所以cdr函數(shù)返回它的第2個(gè)元素"圖層名"。（3）了解圓、圓弧的半徑或單行文本的字高(cdr(assoc40elist))該表達(dá)式的內(nèi)層表達(dá)式中，用40作為關(guān)鍵字，返回elist表中有關(guān)圓、圓弧的半徑或單行文本的字高的子表(40.數(shù)值)，由于此表為點(diǎn)對(duì)，所以cdr函數(shù)返回它的第2個(gè)元素具體的數(shù)值。第十四頁(yè)，共34頁(yè)。（4）了解直線的起點(diǎn)、圓、圓弧的中心或單行文本的定位點(diǎn)(cdr(assoc10elist))該表達(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）用圓、圓弧的半徑或單行文本的新值取代其老值(setqelist(subst(cons40h)(assoc40elist)elist))(cons40h)構(gòu)造一個(gè)新的點(diǎn)對(duì)子表，例如（40.3.5）。(assoc40elist)返回elist表內(nèi)的點(diǎn)對(duì)子表，例如（40.5.0）。subst函數(shù)用新子表，例如（40.3.5），替換elist表內(nèi)的老子表（40.5.0）。最外層的setq函數(shù)將替換后的賦給了變量elist。（6）更新圖形庫(kù)的圖元表(entmodelist)entmod函數(shù)的功能是更新圖形庫(kù)的指定圖元表的圖元，即更新了實(shí)際圖形對(duì)象。例如單行文本的字高由5.0改變?yōu)?.5。第十五頁(yè)，共34頁(yè)。9.2.3舉例【例9-3】定義將本作業(yè)所有的單行文本改變?yōu)橹付ǜ叨鹊拿?。右圖所示為修改圖形數(shù)據(jù)庫(kù)內(nèi)單行文本字高的程序流程圖，其中e1是用于存放圖元名的變量。單行文本的圖元種類是TEXT，用MTEXT書(shū)寫(xiě)的是段落文本，它的圖元種類是MTEXT。因此本程序不能修改用MTEXT書(shū)寫(xiě)的文本。開(kāi)始輸入新的字高h(yuǎn)得到第一個(gè)圖元的名字e1e1的類型是"TEXT"？用新的字高更新e1的圖元表e1的名字為nil？令e1為e1的下一個(gè)圖元名結(jié)束否否是是第十六頁(yè)，共34頁(yè)。以下是定義改變本作業(yè)所有單行文本為指定的高度命令的程序代碼：(defunc:cth(/heel)(setqh(getdist"\n輸入文本新的字高:"))(setqe(entnext))；得到第一個(gè)圖元的名字(whilee；當(dāng)e有定義時(shí)做以下運(yùn)算(setqel(entgete))；得到第一個(gè)圖元的圖元表(if(="TEXT"(cdr(assoc0el)))(progn；如果圖元的類型為"TEXT"時(shí)做以下運(yùn)算(setqel(subst(cons40h)(assoc40el)el))；新字高替換圖元表的原字高(if(=3(cdr(assoc72el)))；如果文本為Align方式對(duì)齊第十七頁(yè)，共34頁(yè)。(setqel(subst(cons720)(assoc72el)el))；忽略第二個(gè)定位點(diǎn))(entmodel)；更新圖形數(shù)據(jù)庫(kù)的el圖元表))(setqe(entnexte))；令e等于e的下一個(gè)圖元名)(princ)；靜默退出)第十八頁(yè)，共34頁(yè)。9.3選擇集選擇集是有名字的一些圖元名的集合，常用于編輯或修改圖形對(duì)象的命令。9.3.1常用的有關(guān)選擇集的函數(shù)（1）(ssget[選擇方法][點(diǎn)1[點(diǎn)2]][點(diǎn)表][過(guò)濾表])創(chuàng)建一個(gè)選擇集。有以下一些選擇方法。C（Crossing）：與點(diǎn)1、點(diǎn)2所確定的窗口相交的那些對(duì)象被選中。CP（Cpolygon）：與點(diǎn)表所確定的多邊形相交的那些對(duì)象被選中。F（Fence）：與點(diǎn)表所確定的折線相交的那些對(duì)象被選中。第十九頁(yè)，共34頁(yè)。I（Implied）：處于夾?。℅rips）狀態(tài)的那些對(duì)象被選中L（Last）：最新的、最后繪制的那個(gè)圖元被選中。由于在多文檔環(huán)境下最后繪制的對(duì)象并不一定是可見(jiàn)的，例如，這個(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ù)庫(kù)，包括被關(guān)閉、被凍結(jié)圖層上的對(duì)象和屏幕之外的那些對(duì)象被選中。第二十頁(yè)，共34頁(yè)。:E：通過(guò)光標(biāo)拾取框的那些對(duì)象被選中。:N：在該函數(shù)的執(zhí)行過(guò)程中，為選定對(duì)象調(diào)用ssnamex函數(shù)獲得容器塊和轉(zhuǎn)換矩陣的附加信息。只有通過(guò)"W"、"C"和點(diǎn)拾取選擇方法時(shí)，才可以使用這一附加信息。:S：只允許單一選擇集。點(diǎn)1、點(diǎn)2、點(diǎn)表和過(guò)濾表是與選擇方法配合使用的。過(guò)濾表的功能是根據(jù)過(guò)濾表描述的條件對(duì)所選的對(duì)象進(jìn)行篩選，只保留滿足過(guò)濾條件的對(duì)象。過(guò)濾表是entget函數(shù)返回的圖元表中的點(diǎn)對(duì)，例如(0."LINE")、(8."LAYER1")、(6."center")、(62.1)，點(diǎn)對(duì)的第1個(gè)元素是圖形交換文件中的組碼，詳見(jiàn)AutoCAD有關(guān)DXF文件的介紹。第二十一頁(yè)，共34頁(yè)。如果僅提供了一個(gè)點(diǎn)，該函數(shù)認(rèn)為用戶通過(guò)這個(gè)點(diǎn)來(lái)選擇單個(gè)的對(duì)象。如果省略所有的參數(shù)，在調(diào)用該函數(shù)時(shí)將出現(xiàn)"Selectobjects："提示，這用戶以交互方式選擇對(duì)象。在這種情況下，亮顯被選取的對(duì)象。該函數(shù)忽略當(dāng)前設(shè)置的對(duì)象捕捉模式。由于選擇集會(huì)占用臨時(shí)文件存儲(chǔ)區(qū)，所以AutoLISP不允許同時(shí)打開(kāi)128以上的個(gè)選擇集。如果成功該函數(shù)返回創(chuàng)建選擇集的名稱，例如<Selectionset:1>，否則返回nil。以下是調(diào)用該函數(shù)的一些表達(dá)式。(setqs1(ssget'(22)))；創(chuàng)建一個(gè)選擇集，如果存在一個(gè)通過(guò)點(diǎn)(2,2)的圖元，它將被選中并將返回的選擇集的名字賦給變量s1第二十二頁(yè)，共34頁(yè)。(setqs2(ssget"w"'(00)'(1010)))；創(chuàng)建一個(gè)選擇集，它的成員是所有整體在對(duì)角點(diǎn)(0,0)和(10,10)窗口內(nèi)的圖元，如果成功則將選擇集的名字賦給變量s2(setqs3(ssget"X"'((0."LINE")(62.5))))；((0."LINE")(62.5))是過(guò)濾表，該選擇集的成員是當(dāng)前作業(yè)中所有藍(lán)色的直線，如果成功將選擇集的名字賦給變量s3(setqs4(ssget))；以交互方式創(chuàng)建一個(gè)選擇集。執(zhí)行到該表達(dá)式時(shí)，自動(dòng)切換到圖形窗口，出現(xiàn)"Selectobjects："提示，等待用戶操作。用戶此時(shí)可用各種選擇方法多次選擇，直至用空回車(chē)響應(yīng)"Selectobjects："提示。選擇集由交互選擇的這些圖元組成，將選擇集的名字賦給變量s4第二十三頁(yè)，共34頁(yè)。（2）(entsel[提示信息])提示用戶以單點(diǎn)方式選擇單個(gè)對(duì)象。若省略提示信息，則提示信息為"Selectobject："。返回值為兩個(gè)元素組成的表，第一個(gè)元素是所選的圖元名，第二個(gè)元素是用戶選擇對(duì)象時(shí)拾取點(diǎn)在當(dāng)前UCS下的坐標(biāo)。（3）(ssadd[圖元名[選擇集]])將指定的圖元加入到選擇集。如果調(diào)用該函數(shù)時(shí)無(wú)參數(shù)，將創(chuàng)建一個(gè)空選擇集；如果只提供圖元名，將創(chuàng)建一個(gè)僅含該圖元的選擇集。第二十四頁(yè)，共34頁(yè)。（4）(ssdel圖元名選擇集)從選擇集內(nèi)移去指定的圖元。（5）(sslengthss)返回選擇集的長(zhǎng)度，即選擇集內(nèi)圖元的數(shù)量。（6）(ssname選擇集序號(hào))返回選擇集中由序號(hào)指定的那個(gè)圖元名。選擇集內(nèi)第一個(gè)元素的序號(hào)為零。

第二十五頁(yè)，共34頁(yè)。9.3.2舉例【例9-4】定義將選到的單行文本改變?yōu)橹付ǜ叨鹊拿睢?defunc:csth(/hs1neel)(setqh(getdist"\n輸入文本的高度："))(setqs1(ssget))；以交互方式得到一個(gè)選擇集(setqn0)；序號(hào)的初值為0(repeat(sslengths1)；重復(fù)執(zhí)行，執(zhí)行的次數(shù)等于所選對(duì)象的個(gè)數(shù)(setqe(ssnames1n))；得到選擇集內(nèi)第n個(gè)對(duì)象的圖元名(setqel(entgete))；得到這個(gè)對(duì)象的圖元表(if(="TEXT"(cdr(assoc0el)))；判斷這個(gè)對(duì)象是否為T(mén)EXT

(progn；是TEXT第二十六頁(yè)，共34頁(yè)。(setqel(subst(cons40h)(assoc40el)el))；用新字高替換圖元表的原字高點(diǎn)表(if(=3(cdr(assoc72el)))；如果文本為Align方式對(duì)齊(setqel(subst(cons720)(assoc72el)el))；忽略第二個(gè)定位點(diǎn))(entmodel)；更新圖形數(shù)據(jù)庫(kù)的el圖元表))(setqn(1+n))；序號(hào)n的數(shù)量加1))第二十七頁(yè)，共34頁(yè)。9.4符號(hào)表AutoCAD的符號(hào)表是指視窗表、線型表、圖層表、字樣表、視圖表、用戶坐標(biāo)系表、用戶應(yīng)用程序標(biāo)識(shí)表、尺寸式樣表和塊記錄表。在某些情況下，僅從圖元表不能了解圖元的全部特性，例如當(dāng)圖元的顏色、線型與所在圖層一致時(shí)，圖元表中沒(méi)有記錄顏色、線型的子表，因此，了解這樣圖元的顏色，就需要訪問(wèn)圖層表。9.4.1符號(hào)表操作函數(shù)（1）(tblnext表的種類[回繞])表的種類可以是"LAYER"、"LTYPE"、"VIEW"、"STYLE"、"BLOCK"、"UCS"、"APPID"、"DIMSTYLE"和"VPORT"。若回繞項(xiàng)為T(mén)，則返回指定種類的第一個(gè)符號(hào)表，若該項(xiàng)為nil或缺省，則返回指定種類的當(dāng)前表符號(hào)的下一個(gè)符號(hào)表。第二十八頁(yè)，共34頁(yè)。例如返回圖層表，若當(dāng)前作業(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(mén)，所以返回當(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的圖層表。再輸入這個(gè)表達(dá)式，將返回nil，因?yàn)閘ayer3是最后的圖層。第二十九頁(yè)，共34頁(yè)。例如返回塊定義表，若當(dāng)前作業(yè)已定義了名字為"BOX"的圖塊，輸入表達(dá)式(tblnext"block")返回((0."BLOCK")(2."BOX")(70.0)(109.02.00.0)(-2.<圖元名：1dca370>))（2）(tblobjname表的種類表名)返回指定種類表的圖元名。如果找到，返回符號(hào)表的圖元名。返回的圖元名可以用于entget和entmod操作。例如(tblobjname"layer""0")，返回名字為0的圖層表的圖元名<Entityname:4002cc80>。第三十頁(yè)，共34頁(yè)。

（3）(tblsearch表的種類表名[設(shè)置下一個(gè)])返回指定種類和名字的符號(hào)表。如果"設(shè)置下一個(gè)"為T(mén)，該表將作為定位點(diǎn)，隨后調(diào)用tblnext函數(shù)在不回繞的設(shè)置下，就會(huì)返回該表的下一個(gè)表。例如(tblsearch"layer"""t)返回((0