基于ACAD平臺的給排水制圖程序

1、基于ACAD平臺的給排水制圖程序            摘要：目前，專業(yè)給排水設(shè)計軟件包很多，但在具體使用過程中，會遇到設(shè)計習(xí)慣不同、使用煩瑣等問題。筆者在AUTOCAD平臺上，用LISP語言編寫了一系列程序，大大簡化了設(shè)計、制圖，并且提高了出圖效率和設(shè)計的準確性。 關(guān)鍵詞：計算機繪圖 程序 給排水設(shè)計  目前，幾乎所有的設(shè)計院都配備了給排水設(shè)計軟件包，但是設(shè)計人員在使用軟件過程中，常常會遇到諸多不便之處。如建筑外框不認，初始化數(shù)據(jù)輸入不直觀，數(shù)據(jù)輸入不當(dāng)時出錯，修

2、改不便等等。設(shè)計人員或是用鼠標代筆，或是用AutoCAD“硬畫”。這種方式出圖效率很低，而且圖面質(zhì)量難以保證。 程序設(shè)計目的 針對上述軟件包使用不便或適應(yīng)性不強等問題，筆者幾年來在這一方面做了一些探索，用AutoLisp成功地開發(fā)一套比較完善且易學(xué)實用的系列化小程序。此程序的特點在于遵循傳統(tǒng)繪圖習(xí)慣，進行平面化設(shè)計的思路，按照傳統(tǒng)繪圖方式，靈活運用各個程序段，加強人機對話，力求機器的自動生成。 2主要程序介紹 本程序組中包含程序段40余條，分為工具類與專業(yè)類，其中主要程序段有： TK·LSPTK·DCL：圖庫管理程序。 XX·LSP：由平面圖生成系統(tǒng)圖程序（原圖）

3、。 GG·LSP：標注給水管道管徑并進行分層處理程序。 PG.LSP：標注排水管道管徑并進行分層處理程序。 GB·LSP：對給水管管徑及管段長度計算統(tǒng)計程序。 PB·LSP：對排水管管徑及管段長度計算統(tǒng)計程序。 ZT·LSP：對總體排水管道管徑及管段長度進行計算并標注程序。 GDPM·LSP：自動生成排水管道剖面并同時標注程序。 GCL·LSP：對給排水工程量對照定額進行工程概算程序。 DE·LSP：調(diào)出事先輸入的定額程序。 LB·LSP：對給排水管管徑及管段長度并進行列表處理程序。 3使用方法 本程序是依托建筑或

4、其他專業(yè)提供的平面圖，按傳統(tǒng)手工制圖的方法與步驟進行平面設(shè)計。筆者把給排水的圖元分為直線，多義線，圖塊（帶屬性），文字等等。 設(shè)計人員在繪制給水平面圖時。用PLINE線繪制水平管，繪制給水立管時插入一個帶有立管高度屬性的圖塊 。排水平面圖的繪制方法與給水相同。繪制其它給排水附件如衛(wèi)生設(shè)備、閥門、消火栓、水嘴等附件均采用不同圖塊表達，這種作圖方式直觀、簡捷、明快。在各層圖面線條完成后，應(yīng)用GG·LSP、PG·LSP程序標注其管徑。在標注管徑的時候，程序?qū)Υ诉M行分層分類管理。配合CAD將各層平面設(shè)計完成并確認無誤后，把各層另存為相應(yīng)各層系統(tǒng)圖圖名，此時設(shè)計人員可將用圖塊表達的系

5、統(tǒng)圖圖元如：水嘴、存水彎、消火栓、甚至標準化的系統(tǒng)圖元等插入圖中，并將各管段安裝高度給出。確認無誤后，用XX·LSP程序?qū)⒋藞D進行圖形處理。使之成為具有透視效果的系統(tǒng)透視圖，再用JL·LSP程序?qū)⒆髌矫鎴D時輸入的立管高度屬性取出，并繪制成給水立管，將此圖適當(dāng)處理后，最后把各層系統(tǒng)圖組合起來便成為給水透視圖。 繪制排水系統(tǒng)圖時，先用·程序生成排水立管，在各排水點插入各種存水彎、排水栓等，再用XX·LSP程序?qū)⑵矫鎴D進行圖形處理，使之成為具有透視效果的系統(tǒng)透視圖，最后把各層支管與立管聯(lián)接好，排水系統(tǒng)圖就形成了。 最后，再用CSD命令對圖面進行美化，由于采用程

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

7、上，功效更加明顯。 4 程序舉例 限于篇幅，這里僅列其中之一以供同行們參考。 ；本程序?qū)LKINE，BLOCK，TEXT等圖元分別進 ；行旋轉(zhuǎn)與平移處理，達到平面圖形的透視效 ；果。程序?qū)INE，DIM，SOLID等圖元進行刪 ；除。 （defun c:xx(/xxy k1 k2 k3 stn) (setq ss(ssget)ang(/pi4);選擇需要進行旋轉(zhuǎn)與平移處理的對象（實體） （setqy (cadr(nth1 (entsel/n 選擇水平線） ；Y用戶選擇的旋轉(zhuǎn)基準線 （setq e(ssnamess 0)n0) （setq k1(lista)k2(listb)k3(listc

8、) ；初始化k1k2k3放置實 ；體名的列表，并設(shè)“a”“b”“c”為結(jié)束標記 （while e ；while 語句開始，對所選項實體進行旋分類處理 （setq st(cdr(assoc 0(entget e) (if (=stLWPOL YLINE)(setq k2 (cons e k2)；if 語句開始 （if (or(=stCILCLE)(=STinsert/")(=st/"TEXT)；if 語句開始（setq k1(cons e k1) (entdele) ); if 語句結(jié)束 ） ；if 語句結(jié)束（setq n( =1n)(setqe (ssname ss n ) ；while 語句結(jié)果 （setq n0) (if(/=(ntnk2)b)(setq 1(entget(nth n k2)(setq 1 nil)(whi