基于ACAD平臺(tái)的給排水制圖程序

摘要目前，專業(yè)給排水設(shè)計(jì)軟件包很多，但在具體使用過程中，會(huì)遇到設(shè)計(jì)習(xí)慣不同、使用煩瑣等問題。筆者在AUTOCAD平臺(tái)上，用LISP語言編寫了一系列程序，大大簡(jiǎn)化了設(shè)計(jì)、制圖，并且提高了出圖效率和設(shè)計(jì)的準(zhǔn)確性。

關(guān)鍵詞計(jì)算機(jī)繪圖程序給排水設(shè)計(jì)

目前，幾乎所有的設(shè)計(jì)院都配備了給排水設(shè)計(jì)軟件包，但是設(shè)計(jì)人員在使用軟件過程中，常常會(huì)遇到諸多不便之處。如建筑外框不認(rèn)，初始化數(shù)據(jù)輸入不直觀，數(shù)據(jù)輸入不當(dāng)時(shí)出錯(cuò)，修改不便等等。設(shè)計(jì)人員或是用鼠標(biāo)代筆，或是用AutoCAD“硬畫”。這種方式出圖效率很低，而且圖面質(zhì)量難以保證。

１程序設(shè)計(jì)目的

針對(duì)上述軟件包使用不便或適應(yīng)性不強(qiáng)等問題，筆者幾年來在這一方面做了一些探索，用AutoLisp成功地開發(fā)一套比較完善且易學(xué)實(shí)用的系列化小程序。此程序的特點(diǎn)在于遵循傳統(tǒng)繪圖習(xí)慣，進(jìn)行平面化設(shè)計(jì)的思路，按照傳統(tǒng)繪圖方式，靈活運(yùn)用各個(gè)程序段，加強(qiáng)人機(jī)對(duì)話，力求機(jī)器的自動(dòng)生成。

2主要程序介紹

本程序組中包含程序段40余條，分為工具類與專業(yè)類，其中主要程序段有：

TK·LSP＆TK·DCL：圖庫管理程序。

XX·LSP：由平面圖生成系統(tǒng)圖程序。

GG·LSP：標(biāo)注給水管道管徑并進(jìn)行分層處理程序。

：標(biāo)注排水管道管徑并進(jìn)行分層處理程序。

GB·LSP：對(duì)給水管管徑及管段長(zhǎng)度計(jì)算統(tǒng)計(jì)程序。

PB·LSP：對(duì)排水管管徑及管段長(zhǎng)度計(jì)算統(tǒng)計(jì)程序。

ZT·LSP：對(duì)總體排水管道管徑及管段長(zhǎng)度進(jìn)行計(jì)算并標(biāo)注程序。

GDPM·LSP：自動(dòng)生成排水管道剖面并同時(shí)標(biāo)注程序。

GCL·LSP：對(duì)給排水工程量對(duì)照定額進(jìn)行工程概算程序。

DE·LSP：調(diào)出事先輸入的定額程序。

LB·LSP：對(duì)給排水管管徑及管段長(zhǎng)度并進(jìn)行列表處理程序。

3使用方法

本程序是依托建筑或其他專業(yè)提供的平面圖，按傳統(tǒng)手工制圖的方法與步驟進(jìn)行平面設(shè)計(jì)。筆者把給排水的圖元分為直線，多義線，圖塊，文字等等。

設(shè)計(jì)人員在繪制給水平面圖時(shí)。用PLINE線繪制水平管，繪制給水立管時(shí)插入一個(gè)帶有立管高度屬性的圖塊。排水平面圖的繪制方法與給水相同。繪制其它給排水附件如衛(wèi)生設(shè)備、閥門、消火栓、水嘴等附件均采用不同圖塊表達(dá)，這種作圖方式直觀、簡(jiǎn)捷、明快。在各層圖面線條完成后，應(yīng)用GG·LSP、PG·LSP程序標(biāo)注其管徑。在標(biāo)注管徑的時(shí)候，程序?qū)Υ诉M(jìn)行分層分類管理。配合CAD將各層平面設(shè)計(jì)完成并確認(rèn)無誤后，把各層另存為相應(yīng)各層系統(tǒng)圖圖名，此時(shí)設(shè)計(jì)人員可將用圖塊表達(dá)的系統(tǒng)圖圖元如：水嘴、存水彎、消火栓、甚至標(biāo)準(zhǔn)化的系統(tǒng)圖元等插入圖中，并將各管段安裝高度給出。確認(rèn)無誤后，用XX·LSP程序?qū)⒋藞D進(jìn)行圖形處理。使之成為具有透視效果的系統(tǒng)透視圖，再用JL·LSP程序?qū)⒆髌矫鎴D時(shí)輸入的立管高度屬性取出，并繪制成給水立管，將此圖適當(dāng)處理后，最后把各層系統(tǒng)圖組合起來便成為給水透視圖。

繪制排水系統(tǒng)圖時(shí)，先用ＬＧ·ＬＳＰ程序生成排水立管，在各排水點(diǎn)插入各種存水彎、排水栓等，再用XX·LSP程序?qū)⑵矫鎴D進(jìn)行圖形處理，使之成為具有透視效果的系統(tǒng)透視圖，最后把各層支管與立管聯(lián)接好，排水系統(tǒng)圖就形成了。

最后，再用CSD命令對(duì)圖面進(jìn)行美化，由于采用程序繪制的圖元是由PLINE，BLOCK等組成，且是分層，分類放置的。據(jù)此，可用LB·LSP程序中有關(guān)命令，取出圖中的類、層、塊、點(diǎn)、線等特性，進(jìn)行歸類、計(jì)算、列表并生成一個(gè)主要材料表，自動(dòng)列于圖中。如果調(diào)出事先輸入的定額，給出工程特征參數(shù)，就可用KS·LSP程序中有關(guān)命令，計(jì)算出一個(gè)概算表。材料表、概算表都能自動(dòng)生成。至于給水總圖的繪制，給水圖可類似繪出。排水總圖繪制水比較復(fù)雜。ZT·LSP程序中包含了各管段的計(jì)算、繪制及標(biāo)注等工具，并可自動(dòng)生成管道剖面。其程序可節(jié)省繪圖時(shí)間50％。本系列程序如果加載于其他成功

軟件包之上，功效更加明顯。

4程序舉例

限于篇幅，這里僅列其中之一以供同行們參考。

；本程序?qū)LKINE，BLOCK，TEXT等圖元分別進(jìn)

；行旋轉(zhuǎn)與平移處理，達(dá)到平面圖形的透視效

；果。程序?qū)INE，DIM，SOLID等圖元進(jìn)行刪

；除。

）））

；Y用戶選擇的旋轉(zhuǎn)基準(zhǔn)線

；if語句結(jié)束

）；if語句結(jié)束

；if語句結(jié)束，本語句對(duì)是否為文字的判斷，并提取高度和插入點(diǎn)信息

（setqx1(carp1)y1(cadrp1)z(nth2p1))

(setqdy1(-y1y)

(setqp3(list(=x1(*(cosang)dy1))(=y1z(*(-(sinang)1))))

(if(=nil(assoc111))；if語句開始

（progn(setq1(subst(cons10p3)(assoc101)1))

(entmod1))

(if(=(nth1(assoc111)))；if語句開始

（progn(setq1(subst(cons10p3)(assoc101)1))

(entmod1)

)；endofPROGN

(progn(setq1(subst(cons11p3)(assoc111)1))

(entmod1)

)；endofPROGN

)；if語名結(jié)束，本語句對(duì)文字對(duì)齊方式的判斷，并修改高度和插入點(diǎn)信息

）；if語名結(jié)束，本語句對(duì)是否為文字的判斷，并修改高度和插入點(diǎn)信息

（setqname(cdr(assoc01)))

(if(=(cdr(assoc661))1)；if語句開始，是否為帶屬性的塊

（progn(setq11(entget(entnext(cdr(assoc-11))))

(setqp1(cdr(assoc1111)))

(setqx1(carp1)y1(cadrp1)

(setqp3(list(+x1(*(cosang)dy1))(+y1z(*(-(sinang)1)dy1))))

(setq11(subst(cons11p3)(assoc1111)11))

(entmod11)

))；if語句結(jié)束，修改中屬性的插入點(diǎn)信息

（setqang(/(cdr(assoc501))2))

(setq1(subst(cons50ang)(assoc501)1))

(entmod1)；通過修改塊的插入角度信息進(jìn)行旋轉(zhuǎn)

（setqn(+1n)

(if(/=(nthnk1)″a″)(setq1(entget(nthnk1)))(setq1nil))

)；while語句結(jié)束

（setqn0)

(while(＜n(sslengthss));while語句開始，對(duì)名為“ZXR-2035”的塊

；進(jìn)行高度平移處理

（setqstl(entget(ssnamessn)))

(setqpt1(cdr(assoc10stl)))

(if(/=″ZXR-2035″(cdr(assoc2(entget(ssnamessn)))))；if語句開始

(progn

(setqpt1(list(carpt1)(cadrpot1)0))

(setqstl(subst(cons10pt1)(assoc