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

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编程自动完成，