張顯如1，毋建軍2，楊　莼3
?1.安徽省工業工程設計院，安徽　合肥　230001；2.安徽省華安工程招標中心，安徽　合肥　230001；
3.安徽省華安工程招標中心，安徽　合肥　230001

　　摘要：目前，專業給排水設計軟件包很多，但在具體使用過程中，會遇到設計習慣不同、使用煩瑣等問題。筆者在AUTOCAD平臺上，用LISP語言編寫了一系列程序，大大簡化了設計、制圖，并且提高了出圖效率和設計的準確性。
　　關鍵詞：計算機；計算機繪圖；程序；給排水設計
　　中圖分類號：TU998.1
　　文獻標識碼：B
　　文章編號：1009-2455（2000）06-0056-03

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

１　程序設計目的

　　針對上述軟件包使用不便或適應性不強等問題，筆者幾年來在這一方面做了一些探索，用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程序將作平面圖時輸入的立管高度屬性取出，并繪制成給水立管，將此圖適當處理后，最后把各層系統圖組合起來便成為給水透視圖。
　　繪制排水系統圖時，先用ＬＧ·ＬＳＰ程序生成排水立管，在各排水點插入各種存水彎、排水栓等，再用XX·LSP程序將平面圖進行圖形處理，使之成為具有透視效果的系統透視圖，最后把各層支管與立管聯接好，排水系統圖就形成了。
　　最后，再用CSD命令對圖面進行美化，由于采用程序繪制的圖元是由PLINE，BLOCK等組成，且是分層，分類放置的。據此，可用LB·LSP程序中有關命令，取出圖中的類、層、塊、點、線等特性，進行歸類、計算、列表并生成一個主要材料表，自動列于圖中。如果調出事先輸入的定額，給出工程特征參數，就可用KS·LSP程序中有關命令，計算出一個概算表。材料表、概算表都能自動生成。至于給水總圖的繪制，給水圖可類似繪出。排水總圖繪制水比較復雜。ZT·LSP程序中包含了各管段的計算、繪制及標注等工具，并可自動生成管道剖面。其程序可節省繪圖時間50％。本系列程序如果加載于其他成功軟件包之上，功效更加明顯。

4 程序舉例

　　 限于篇幅，這里僅列其中之一以供同行們參考。
　　 ；本程序對PLKINE，BLOCK，TEXT等圖元分別進
　　 ；行旋轉與平移處理，達到平面圖形的透視效
　　 ；果。程序對LINE，DIM，SOLID等圖元進行刪
　　 ；除。
　　 （defun c:xx(/xxy k1 k2 k3 stn)
　　 (setq ss(ssget)ang(/pi4);選擇需要進行旋轉與平移處理的對象（實體）
　　 （setqy (cadr(nth1 (entsel″ 選擇水平線″））））
　　 ；Y用戶選擇的旋轉基準線
　　 （setq e(ssnamess 0)n0)
　　 （setq k1(list″a″)k2(list″b″)k3(list″c″))
　　 ；初始化k1k2k3放置實
　　 ；體名的列表，并設“a”“b”“c”為結束標記
　　 （while e
　　 ；while 語句開始，對所選項實體進行旋分類處理
　　 （setq st(cdr(assoc 0(entget e))))
　　 (if (=st″LWPOL YLINE″)(setq k2 (cons e k2))
　　；if 語句開始
　　　　　　 （if (or(=st″CILCLE″)(=ST″insert")(=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))
　　(while 1; while 語句開始
　　 ；對所選項的PLINE線實體進行旋轉處理，角度45度
　　　　　（if(/=(cdr(assoc 0 (entget(nth nk2))))"ABC")
　　 ；if語句開始對復合弧線不處理
　　 （progn(setq z(cdr(assoc381)))
　　　　 p1(assoc 10 1)la (cdr(assoc 8 1))
　　　　 m(-(length 1)(length(member p11)))
　　　　 p2(cdr(nth(+m4)1))p1(cdrp1)
　　　　；p1 起點坐標，p2終點坐標
　　　　 （setqx1(carp1)x2(car p2)y1(cadrp1)
　　　　 y2(cadr p2)dy1(-y1y)dy2(-y2y))
　　　　 (setq p3 (list(+x1(*(cos ang )dy1))(+y1z(*(-(sin ang)1)dy1)))
　　　　 p4(list(+x2(*(cos ang)dy2))(=y2z(*(-(sin ang)1)dy2))))
　　 (setq 1(subst(cons 380.0)(assoc 381)1)
　　 ；修改高度信息
　　　　　　 1（subst(cons 10p3)(nth m 1)1)
　　 ；修改起點坐標信息
　　　　　　 1（subst(cons 10p4)(mth m4)1)1))
　　 ；修改終點坐標信息
　　　　 （entmod 1)
　　 ））；if語句結束
　　（setqn( =1n))
　　 (if(/=(nthnk2)″b″)(setq1 (entget(nth n k2)))
　　(setq 1 nil))
　　)；while語句結束
　　　　 （setq n0)
　　　　 (if(/=(nt n k1)″a″)(setq 1(entget(nthn k1)))
　　(setq 1 nil))
　　　　 while 1 ；while語句開始，對所選的
　　　　　　　　　　　　 ；TEXT、BLOCK、ATTRIBUTE等實
　　　　　　　　　　　　 ；體進行旋轉及平移處理，角度
　　　　　　　　　　　　 ；45度
　　 if(=nil(assoc 111))(setq p1(cdr(assoc 101 )))
　　 ；if 語句開始
　　 （if(=0.0(nth 1(assoc 1 1 1)))(setq p1(cdr
　　　(assoc 101)))；if 語句開始
　　 （setq p1(cdr(assoc111)))
　　 )；if 語句結束，本語句對文字對齊方式的判斷，并提取高度和插入點信息
　　 ）；if 語句結束，本語句對是否為文字的判斷，并提取高度和插入點信息
　　　　 （setq x1(carp1)y1(cadrp1)z(nth 2p1))
　　　　 (setq dy 1(-y1y)
　　　　 (setq p3(list(=x1(*( cos ang)dy1))(=y1z(*(-(sin ang)1))))
　　　　 (if (=nil(assoc 111))；if 語句開始
　　　　 （progn(setq 1(subst(cons 10 p3)(assoc 101)1))
　　　　 (entmod 1))
(if(=0.0(nth1(assoc 111)))；if 語句開始
（progn(setq 1(subst(cons 10p3)(assoc 101)1))
(entmod 1)
　　　　　　 )；end of PROGN
(progn(setq1(subst(cons11p3)(assoc111)1))
(entmod 1)
　　　　　　 )；end of PROGN
　　 )；if語名結束，本語句對文字對齊方式的判斷，并修改高度和插入點信息
　　 ）；if 語名結束，本語句對是否為文字的判斷，并修改高度和插入點信息
　　　　 （setq name(cdr(assoc 01)))
　　　　 (if(=(cdr(assoc661))1) ；if 語句開始，是否為帶屬性的塊
　　　　 （progn(setq11(entget(entnext(cdr(assoc-11))))
　　　　 (setq p1(cdr(assoc1111)))
　　　　 (setqx1(car p1)y1(cadr p1)
　　　　 (setq p3(list(+x1(*(cos ang)dy1))(+y1z(*(-(sin ang)1)dy1))))
　　　　 (setq 11(subst(cons11p3)(assoc11 11)11))
　　 (entmod11)
　　 )) ；if語句結束，修改中屬性的插入點信息
　　 （setq ang(/(cdr(assoc 501))2))
　　 (setq1(subst(cons 50 ang)(assoc 501)1))
　　 (entmod1)； 通過修改塊的插入角度信息進行旋轉
　　　　 （setq n(+1n)
　　 (if(/=(nth nk1)″a″)(setq1(entget(nth n k 1)))(setq 1 nil))
　　 ) ；while語句結束
　　 （setq n 0)
　　 (while(＜n (sslengthss)); while 語句開始，對名為“ZXR-2035”的塊
　　 ；進行高度平移處理
　　 （setq stl(entget(ssname ss n )))
　　 (setq pt1(cdr(assoc 10 stl)))
　　 (if(/=″ZXR-2035″(cdr(assoc 2(entget(ssname ss n)))))； if 語句開始
　　 (progn
　　 (setq pt1(list(carpt1)(cadrpot1)0))
　　 (setq stl(subst(cons 10pt1)(assoc 10 st1(st1))
　　 (entmod st1)))；if 語句結束
　　 （setqn(+1n))
　　 ) ；while語句結束
　　（redraw)
　　)　　 ；defun 結束

5　實際運用

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

作者簡介：
　　張顯如，男（1965-），35，工程師，0551-4654529
　　毋建軍（1964-），男，36，工程師
　　楊　莼（1964-），女，34，工程師