引言
隨著沉淀池在水處理中的廣泛應用,斜管沉淀池的設計也越來越重要.傳統設計過程僅因設計資料與參數的不同,在CAD 軟件中就需要重復繪制.為了提高設計效率,需對斜管沉淀池進行參數化繪圖設計.
1 參數化繪圖概述
參數化繪圖也叫參數化編程,是當前CAD 技術的研究熱點[1].其可實現設計、計算、繪圖一體化,能充分發揮CAD 準確、快速的特點[1].參數化繪圖主要適用于結構基本固定而尺寸參數變化的圖形.主要實現步驟是:確定基本參數、計算繪圖參數、設計與實現繪圖程序.
2 斜管沉淀池參數化繪圖的實現
2.1 關于斜管沉淀池
斜管沉淀池是根據淺池理論,在沉淀池中安裝大量間距很小且平行的斜板或蜂窩狀斜管的沉淀池.被處理的污水和沉降的泥砂在各沉淀淺層中相互運動并分離.功能上分為異向流、同向流和側向流三種方式.給水廠中廣泛應用側向流斜管沉淀池,污水廠中廣泛應用異向流斜管沉淀池[2].
2.2 設計思想
首先創建可視化界面,建立窗體,運行程序,將處理水量等設計參數輸入相應控件中.再建立計算和繪圖模塊.計算模塊計算的數據校核成功后傳給繪圖模塊.依據合理的尺寸數據進行繪制,并以 CAD 圖形的形式輸出.最后用 VBA 語句將模塊和窗體連接,完成參數化繪圖程序設計.
2.3 斜管沉淀池參數化繪圖的開發實例
2.3.1 窗體界面的創建
首先在主窗體中添加六個按鈕":設計資料""、設計參數""、斜管沉淀池尺寸計算""、沉淀池構造尺寸計算""、繪圖"以及"退出".窗體的創建也貫穿之后模塊中相應窗體創建,即添加相應控件實現相應的功能.如計算模塊中點擊計算按鈕實現相應數據的計算.
2.3.2 模塊的創建
\\(1\\)計算模塊:依據相關規范利用VBA 語言,編輯出斜管沉淀池各部分的計算.將每一個部分的每一步計算過程放入一個自定義函數中,由大化小,分工明確,進行相關界面的設計[3].計算出的尺寸經程序校核直至通過為止.以下為斜管沉淀池尺寸設計計算部分程序:
設計單池水量:
斜管沉淀池尺寸設計計算.txt21.text=Format \\(clsl* \\(1+rzybfb\\)/24/n /3600,"######.##"\\)
sjdcsl=Val\\(斜管沉淀池尺寸設計計算.txt21.text\\)
\\(2\\)繪圖模塊
計算模塊校核后的數據傳遞給繪圖程序模塊進行繪圖,如在Au-toCAD 中畫圖一樣,運用 VBA 進行參數化繪圖,也要先設置繪圖環境,即將不同的對象繪制在不同的圖層里[4].本軟件繪圖環境設置了"墻體"、" 標注""、標高"等圖層.系統創建圖層的代碼如下:
創建圖層:
Dim layObj As AcadLayer
Set layObj = ThisDrawing.Layers.Add\\("墻體"\\)
Set layObj = ThisDrawing.Layers.Add\\("標注"\\)
Set layObj = ThisDrawing.Layers.Add\\("中心線"\\)
載入墻體線層的center 線型
Dim ltObj As AcadLineType
Dim found As Boolean
found= False For Each Set ltObj = ThisDrawing.Linetypes.Add\\("
CENTER"\\)
ThisDrawing.ActiveLinetype = ltObj In ThisDrawing.Linetypes
If StrComp\\(entry1.name, "center", 1\\) = 0 Then
found = True
Exit For
End If
Next
On Error Resume Next
If Not \\(found\\) Then
ThisDrawing.Linetypes .Load "center", "acad.lin"
End If
myly4.Linetype = "center"
首先根據計算模塊所得數據,在 CAD 中選擇基準點進行池體繪制,之后進行內部結構的繪制.繪制過程中,由選擇基準點開始,通過記錄在程序中各個點的連接關系、坐標等信息進行繪圖,完成后以 CAD圖形的形式輸出[5].
斜管沉淀池各部分尺寸繪圖模塊編制完成后,可以選擇繪圖比例,如下代碼所示:
ptpick1=ThisDrawing.Utility.GetPoint\\(,"請拾取平面圖的插入點:"\\)
InsertX=ptpick1\\(0\\): InsertY=ptpick1\\(1\\)
bili=Val\\(確定平面圖繪圖參數.ComboBoxh1.text\\)
Select Case bili
Case 100
bi=1/100
Case 200
bi=1/200
End Select
2.3.3 斜管沉淀池參數化繪圖的實現
當窗體、計算與繪圖模塊均創建完成后,啟動設計資料與參數窗體,輸入參數,點擊按鈕啟動計算模塊,得出數據并傳遞給繪圖模塊,選擇繪圖比例,在CAD 界面拾取插入點,進行斜管沉淀池的平面圖繪制,并以 CAD 圖形的形式輸出.如圖 1所示:
3 結束語
斜管沉淀池的參數化設計軟件,將傳統設計方法改為用VBA 編程自動完成,點擊按鈕便能進行斜管沉淀池的計算及平面圖的繪制,達到設計計算與自動繪圖完美結合的目的,提高了設計效率.通過模塊的建立,軟件靈活性與實用性更強.
參考文獻
[1]李長勛.Auto CAD VBA 程序開發技術[M].北京:國防工業出版社,2004.
[2]尹士君,李亞峰.水處理構筑物設計與計算[M].化學工業出版社,2004.
[3]清源計算機工作室.AUTOCAD 工程二次開發[M]. 北京:機械工業出版社,2000.
[4]Joseph Sutphin,AutoCAD 2004 VBA:A Programmer SReference,A-Press[M],2004.
[5]老虎工作室,王鈺.用 VBA 開發 AutoCAD2000 應用程序[M].人民郵電出版社,1999.