关于斜管沉淀池参数化绘图的研究

田丽娜+尹士君+孙旭芳+李滨羽+孙梦秋+李想

摘 要：目的：研究斜管沉淀池的自动化设计及参数化绘图。方法：利用AutoCAD 2006内嵌的VBA语言，建立计算及绘图模块，进行参数化绘图。结果：按设计参数，直接在CAD中绘制斜管沉淀池平面图。结论：将模块化设计和CAD技术相结合，实现斜管沉淀池的参数化绘图。

关键词：AutoCAD；VBA；参数化绘图；斜管沉淀池

引言

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

计算模块校核后的数据传递给绘图程序模块进行绘图，如在AutoCAD中画图一样，运用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所示：

图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，APress[M]，2004.

[5]老虎工作室，王钰.用VBA开发AutoCAD2000应用程序[M].人民邮电出版社，1999.endprint

摘 要：目的：研究斜管沉淀池的自动化设计及参数化绘图。方法：利用AutoCAD 2006内嵌的VBA语言，建立计算及绘图模块，进行参数化绘图。结果：按设计参数，直接在CAD中绘制斜管沉淀池平面图。结论：将模块化设计和CAD技术相结合，实现斜管沉淀池的参数化绘图。

关键词：AutoCAD；VBA；参数化绘图；斜管沉淀池

引言

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

计算模块校核后的数据传递给绘图程序模块进行绘图，如在AutoCAD中画图一样，运用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所示：

图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，APress[M]，2004.

[5]老虎工作室，王钰.用VBA开发AutoCAD2000应用程序[M].人民邮电出版社，1999.endprint

摘 要：目的：研究斜管沉淀池的自动化设计及参数化绘图。方法：利用AutoCAD 2006内嵌的VBA语言，建立计算及绘图模块，进行参数化绘图。结果：按设计参数，直接在CAD中绘制斜管沉淀池平面图。结论：将模块化设计和CAD技术相结合，实现斜管沉淀池的参数化绘图。

关键词：AutoCAD；VBA；参数化绘图；斜管沉淀池

引言

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

计算模块校核后的数据传递给绘图程序模块进行绘图，如在AutoCAD中画图一样，运用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所示：

图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，APress[M]，2004.

[5]老虎工作室，王钰.用VBA开发AutoCAD2000应用程序[M].人民邮电出版社，1999.endprint