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

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

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

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

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

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

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

8、) ；初始化k1k2k3放置實 ；體名的列表，并設“a”“b”“c”為結束標記 （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 語句結束 ） ；if 語句結束（setq n( =1n)(setqe (ssname ss n ) ；while 語句結果 （setq n0) (if(/=(ntnk2)b)(setq 1(entget(nth n k2)(setq 1 nil)(whi