前言：本站為你精心整理了鑒于ACAD給排水制圖過程范文，希望能為你的創作提供參考價值，我們的客服老師可以幫助你提供個性化的參考范文，歡迎咨詢。

摘要：目前，專業給排水設計軟件包很多，但在具體使用過程中，會遇到設計習慣不同、使用煩瑣等問題。筆者在AUTOCAD平臺上，用LISP語言編寫了一系列程序，大大簡化了設計、制圖，并且提高了出圖效率和設計的準確性。

關鍵詞：計算機繪圖程序給排水設計

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

1程序設計目的

針對上述軟件包使用不便或適應性不強等問題，筆者幾年來在這一方面做了一些探索，用AutoLisp成功地開發一套比較完善且易學實用的系列化小程序。此程序的特點在于遵循傳統繪圖習慣，進行平面化設計的思路，按照傳統繪圖方式，靈活運用各個程序段，加強人機對話，力求機器的自動生成。

2主要程序介紹

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

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

XX•LSP：由平面圖生成系統圖程序（原圖）。

GG•LSP：標注給水管道管徑并進行分層處理程序。

PG.LSP：標注排水管道管徑并進行分層處理程序。

GB•LSP：對給水管管徑及管段長度計算統計程序。

PB•LSP：對排水管管徑及管段長度計算統計程序。

ZT•LSP：對總體排水管道管徑及管段長度進行計算并標注程序。

GDPM•LSP：自動生成排水管道剖面并同時標注程序。

GCL•LSP：對給排水工程量對照定額進行工程概算程序。

DE•LSP：調出事先輸入的定額程序。

LB•LSP：對給排水管管徑及管段長度并進行列表處理程序。

3使用方法

本程序是依托建筑或其他專業提供的平面圖，按傳統手工制圖的方法與步驟進行平面設計。筆者把給排水的圖元分為直線，多義線，圖塊（帶屬性），文字等等。

設計人員在繪制給水平面圖時。用PLINE線繪制水平管，繪制給水立管時插入一個帶有立管高度屬性的圖塊。排水平面圖的繪制方法與給水相同。繪制其它給排水附件如衛生設備、閥門、消火栓、水嘴等附件均采用不同圖塊表達，這種作圖方式直觀、簡捷、明快。在各層圖面線條完成后，應用GG•LSP、PG•LSP程序標注其管徑。在標注管徑的時候，程序對此進行分層分類管理。配合CAD將各層平面設計完成并確認無誤后，把各層另存為相應各層系統圖圖名，此時設計人員可將用圖塊表達的系統圖圖元如：水嘴、存水彎、消火栓、甚至標準化的系統圖元等插入圖中，并將各管段安裝高度給出。確認無誤后，用XX•LSP程序將此圖進行圖形處理。使之成為具有透視效果的系統透視圖，再用JL•LSP程序將作平面圖時輸入的立管高度屬性取出，并繪制成給水立管，將此圖適當處理后，最后把各層系統圖組合起來便成為給水透視圖。

繪制排水系統圖時，先用LG•LSP程序生成排水立管，在各排水點插入各種存水彎、排水栓等，再用XX•LSP程序將平面圖進行圖形處理，使之成為具有透視效果的系統透視圖，最后把各層支管與立管聯接好，排水系統圖就形成了。

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

4程序舉例

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

；本程序對PLKINE，BLOCK，TEXT等圖元分別進

；行旋轉與平移處理，達到平面圖形的透視效

；果。程序對LINE，DIM，SOLID等圖元進行刪

；除。

（defunc:xx(/xxyk1k2k3stn)

(setqss(ssget)ang(/pi4);選擇需要進行旋轉與平移處理的對象（實體）

（setqy(cadr(nth1(entsel″\\\\n選擇水平線″））））

；Y用戶選擇的旋轉基準線

（setqe(ssnamess0)n0)

（setqk1(list″a″)k2(list″b″)k3(list″c″))

；初始化k1k2k3放置實

；體名的列表，并設“a”“b”“c”為結束標記

（whilee

；while語句開始，對所選項實體進行旋分類處理

（setqst(cdr(assoc0(entgete))))

(if(=st″LWPOLYLINE″)(setqk2(consek2))

；if語句開始

（if(or(=st″CILCLE″)(=ST″insert\")(=st\"TEXT)；if語句開始

（setqk1(consek1))

(entdele)

);if語句結束

）；if語句結束

（setqn(=1n))

(setqe(ssnamessn))

)；while語句結果

（setqn0)

(if(/=(ntnk2)″b″)(setq1(entget(nthnk2))(setq1nil))

(while1;while語句開始

；對所選項的PLINE線實體進行旋轉處理，角度45度

（if(/=(cdr(assoc0(entget(nthnk2))))\"ABC\")

；if語句開始對復合弧線不處理

（progn(setqz(cdr(assoc381)))

p1(assoc101)la(cdr(assoc81))

m(-(length1)(length(memberp11)))

p2(cdr(nth(+m4)1))p1(cdrp1)

；p1起點坐標，p2終點坐標

（setqx1(carp1)x2(carp2)y1(cadrp1)

y2(cadrp2)dy1(-y1y)dy2(-y2y))

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

p4(list(+x2(*(cosang)dy2))(=y2z(*(-(sinang)1)dy2))))

(setq1(subst(cons380.0)(assoc381)1)

；修改高度信息

1（subst(cons10p3)(nthm1)1)

；修改起點坐標信息

1（subst(cons10p4)(mthm4)1)1))

；修改終點坐標信息

（entmod1)

））；if語句結束

（setqn(=1n))

(if(/=(nthnk2)″b″)(setq1(entget(nthnk2)))

(setq1nil))

)；while語句結束

（setqn0)

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

(setq1nil))

while1；while語句開始，對所選的

；TEXT、BLOCK、ATTRIBUTE等實

；體進行旋轉及平移處理，角度

；45度

if(=nil(assoc111))(setqp1(cdr(assoc101)))

；if語句開始

（if(=0.0(nth1(assoc111)))(setqp1(cdr

(assoc101)))；if語句開始

（setqp1(cdr(assoc111)))

)；if語句結束，本語句對文字對齊方式的判斷，并提取高度和插入點信息

）；if語句結束，本語句對是否為文字的判斷，并提取高度和插入點信息

（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(=0.0(nth1(assoc111)))；if語句開始

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

(entmod1)

)；endofPROGN

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

(entmod1)

)；endofPROGN

)；if語名結束，本語句對文字對齊方式的判斷，并修改高度和插入點信息

）；if語名結束，本語句對是否為文字的判斷，并修改高度和插入點信息

（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語句結束，修改中屬性的插入點信息

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

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

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

（setqn(+1n)

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

)；while語句結束

（setqn0)

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

；進行高度平移處理

（setqstl(entget(ssnamessn)))

(setqpt1(cdr(assoc10stl)))

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

(progn

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

(setqstl(subst(cons10pt1)(assoc10st1(st1))

(entmodst1)))；if語句結束

（setqn(+1n))

)；while語句結束

（redraw)

)；defun結束

5實際運用

本程序通過筆者所在單位這幾年來工程設計人員的運用，得到了逐步完善與推廣，實踐證明，該程序易學好用。故提煉出來與同仁商榷。