引言
随着沉淀池在水处理中的广泛应用,斜管沉淀池的设计也越来越重要.传统设计过程仅因设计资料与参数的不同,在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.
