關(guān)于斜管沉淀池參數(shù)化繪圖的研究
2014-09-29 02:57:59田麗娜尹士君孫旭芳李濱羽孫夢秋李想
科技創(chuàng)新與應(yīng)用 2014年30期
田麗娜+尹士君+孫旭芳+李濱羽+孫夢秋+李想
摘 要：目的：研究斜管沉淀池的自動(dòng)化設(shè)計(jì)及參數(shù)化繪圖。方法：利用AutoCAD 2006內(nèi)嵌的VBA語言，建立計(jì)算及繪圖模塊，進(jìn)行參數(shù)化繪圖。結(jié)果：按設(shè)計(jì)參數(shù)，直接在CAD中繪制斜管沉淀池平面圖。結(jié)論：將模塊化設(shè)計(jì)和CAD技術(shù)相結(jié)合，實(shí)現(xiàn)斜管沉淀池的參數(shù)化繪圖。
關(guān)鍵詞：AutoCAD；VBA；參數(shù)化繪圖；斜管沉淀池
引言
隨著沉淀池在水處理中的廣泛應(yīng)用，斜管沉淀池的設(shè)計(jì)也越來越重要。傳統(tǒng)設(shè)計(jì)過程僅因設(shè)計(jì)資料與參數(shù)的不同，在CAD軟件中就需要重復(fù)繪制。為了提高設(shè)計(jì)效率，需對斜管沉淀池進(jìn)行參數(shù)化繪圖設(shè)計(jì)。
1 參數(shù)化繪圖概述
參數(shù)化繪圖也叫參數(shù)化編程，是當(dāng)前CAD技術(shù)的研究熱點(diǎn)[1]。其可實(shí)現(xiàn)設(shè)計(jì)、計(jì)算、繪圖一體化，能充分發(fā)揮CAD準(zhǔn)確、快速的特點(diǎn)[1]。參數(shù)化繪圖主要適用于結(jié)構(gòu)基本固定而尺寸參數(shù)變化的圖形。主要實(shí)現(xiàn)步驟是：確定基本參數(shù)、計(jì)算繪圖參數(shù)、設(shè)計(jì)與實(shí)現(xiàn)繪圖程序。
2 斜管沉淀池參數(shù)化繪圖的實(shí)現(xiàn)
2.1 關(guān)于斜管沉淀池
斜管沉淀池是根據(jù)淺池理論，在沉淀池中安裝大量間距很小且平行的斜板或蜂窩狀斜管的沉淀池。被處理的污水和沉降的泥砂在各沉淀淺層中相互運(yùn)動(dòng)并分離。功能上分為異向流、同向流和側(cè)向流三種方式。給水廠中廣泛應(yīng)用側(cè)向流斜管沉淀池，污水廠中廣泛應(yīng)用異向流斜管沉淀池[2]。
2.2 設(shè)計(jì)思想
首先創(chuàng)建可視化界面，建立窗體，運(yùn)行程序，將處理水量等設(shè)計(jì)參數(shù)輸入相應(yīng)控件中。再建立計(jì)算和繪圖模塊。計(jì)算模塊計(jì)算的數(shù)據(jù)校核成功后傳給繪圖模塊。依據(jù)合理的尺寸數(shù)據(jù)進(jìn)行繪制，并以CAD圖形的形式輸出。最后用VBA語句將模塊和窗體連接，完成參數(shù)化繪圖程序設(shè)計(jì)。
2.3 斜管沉淀池參數(shù)化繪圖的開發(fā)實(shí)例
2.3.1 窗體界面的創(chuàng)建
首先在主窗體中添加六個(gè)按鈕：“設(shè)計(jì)資料”、“設(shè)計(jì)參數(shù)”、“斜管沉淀池尺寸計(jì)算”、“沉淀池構(gòu)造尺寸計(jì)算”、“繪圖”以及“退出”。窗體的創(chuàng)建也貫穿之后模塊中相應(yīng)窗體創(chuàng)建，即添加相應(yīng)控件實(shí)現(xiàn)相應(yīng)的功能。如計(jì)算模塊中點(diǎn)擊計(jì)算按鈕實(shí)現(xiàn)相應(yīng)數(shù)據(jù)的計(jì)算。
2.3.2 模塊的創(chuàng)建
（1）計(jì)算模塊：依據(jù)相關(guān)規(guī)范利用VBA語言，編輯出斜管沉淀池各部分的計(jì)算。將每一個(gè)部分的每一步計(jì)算過程放入一個(gè)自定義函數(shù)中，由大化小，分工明確，進(jìn)行相關(guān)界面的設(shè)計(jì)[3]。計(jì)算出的尺寸經(jīng)程序校核直至通過為止。以下為斜管沉淀池尺寸設(shè)計(jì)計(jì)算部分程序：
設(shè)計(jì)單池水量：
斜管沉淀池尺寸設(shè)計(jì)計(jì)算.txt21.text=Format（clsl*（1+rzybfb）/24/n /3600，"######.##"）
sjdcsl=Val（斜管沉淀池尺寸設(shè)計(jì)計(jì)算.txt21.text）
（2）繪圖模塊
計(jì)算模塊校核后的數(shù)據(jù)傳遞給繪圖程序模塊進(jìn)行繪圖，如在AutoCAD中畫圖一樣，運(yùn)用VBA進(jìn)行參數(shù)化繪圖，也要先設(shè)置繪圖環(huán)境，即將不同的對象繪制在不同的圖層里[4]。本軟件繪圖環(huán)境設(shè)置了“墻體”、“ 標(biāo)注”、“標(biāo)高”等圖層。系統(tǒng)創(chuàng)建圖層的代碼如下：
創(chuàng)建圖層：
Dim layObj As AcadLayer
Set layObj = ThisDrawing.Layers.Add（"墻體"）
Set layObj = ThisDrawing.Layers.Add（"標(biāo)注"）
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"
首先根據(jù)計(jì)算模塊所得數(shù)據(jù)，在CAD中選擇基準(zhǔn)點(diǎn)進(jìn)行池體繪制，之后進(jìn)行內(nèi)部結(jié)構(gòu)的繪制。繪制過程中，由選擇基準(zhǔn)點(diǎn)開始，通過記錄在程序中各個(gè)點(diǎn)的連接關(guān)系、坐標(biāo)等信息進(jìn)行繪圖，完成后以CAD圖形的形式輸出[5]。
斜管沉淀池各部分尺寸繪圖模塊編制完成后，可以選擇繪圖比例，如下代碼所示：
ptpick1=ThisDrawing.Utility.GetPoint（，"請拾取平面圖的插入點(diǎn)："）
InsertX=ptpick1（0）： InsertY=ptpick1（1）
bili=Val（確定平面圖繪圖參數(shù).ComboBoxh1.text）
Select Case bili
Case 100
bi=1/100
Case 200
bi=1/200
End Select
2.3.3 斜管沉淀池參數(shù)化繪圖的實(shí)現(xiàn)
當(dāng)窗體、計(jì)算與繪圖模塊均創(chuàng)建完成后，啟動(dòng)設(shè)計(jì)資料與參數(shù)窗體，輸入?yún)?shù)，點(diǎn)擊按鈕啟動(dòng)計(jì)算模塊，得出數(shù)據(jù)并傳遞給繪圖模塊，選擇繪圖比例，在CAD界面拾取插入點(diǎn)，進(jìn)行斜管沉淀池的平面圖繪制，并以CAD圖形的形式輸出。如圖1所示：
圖1 繪制斜管沉淀池平面圖
3 結(jié)束語
斜管沉淀池的參數(shù)化設(shè)計(jì)軟件，將傳統(tǒng)設(shè)計(jì)方法改為用VBA編程自動(dòng)完成，點(diǎn)擊按鈕便能進(jìn)行斜管沉淀池的計(jì)算及平面圖的繪制，達(dá)到設(shè)計(jì)計(jì)算與自動(dòng)繪圖完美結(jié)合的目的，提高了設(shè)計(jì)效率。通過模塊的建立，軟件靈活性與實(shí)用性更強(qiáng)。
參考文獻(xiàn)
[1]李長勛.Auto CAD VBA程序開發(fā)技術(shù)[M].北京：國防工業(yè)出版社，2004.
[2]尹士君，李亞峰.水處理構(gòu)筑物設(shè)計(jì)與計(jì)算[M].化學(xué)工業(yè)出版社，2004.
[3]清源計(jì)算機(jī)工作室.AUTOCAD工程二次開發(fā)[M]. 北京：機(jī)械工業(yè)出版社，2000.
[4]Joseph Sutphin，AutoCAD 2004 VBA：A Programmer SReference，APress[M]，2004.
[5]老虎工作室，王鈺.用VBA開發(fā)AutoCAD2000應(yīng)用程序[M].人民郵電出版社，1999.endprint
摘 要：目的：研究斜管沉淀池的自動(dòng)化設(shè)計(jì)及參數(shù)化繪圖。方法：利用AutoCAD 2006內(nèi)嵌的VBA語言，建立計(jì)算及繪圖模塊，進(jìn)行參數(shù)化繪圖。結(jié)果：按設(shè)計(jì)參數(shù)，直接在CAD中繪制斜管沉淀池平面圖。結(jié)論：將模塊化設(shè)計(jì)和CAD技術(shù)相結(jié)合，實(shí)現(xiàn)斜管沉淀池的參數(shù)化繪圖。
關(guān)鍵詞：AutoCAD；VBA；參數(shù)化繪圖；斜管沉淀池
引言
隨著沉淀池在水處理中的廣泛應(yīng)用，斜管沉淀池的設(shè)計(jì)也越來越重要。傳統(tǒng)設(shè)計(jì)過程僅因設(shè)計(jì)資料與參數(shù)的不同，在CAD軟件中就需要重復(fù)繪制。為了提高設(shè)計(jì)效率，需對斜管沉淀池進(jìn)行參數(shù)化繪圖設(shè)計(jì)。
1 參數(shù)化繪圖概述
參數(shù)化繪圖也叫參數(shù)化編程，是當(dāng)前CAD技術(shù)的研究熱點(diǎn)[1]。其可實(shí)現(xiàn)設(shè)計(jì)、計(jì)算、繪圖一體化，能充分發(fā)揮CAD準(zhǔn)確、快速的特點(diǎn)[1]。參數(shù)化繪圖主要適用于結(jié)構(gòu)基本固定而尺寸參數(shù)變化的圖形。主要實(shí)現(xiàn)步驟是：確定基本參數(shù)、計(jì)算繪圖參數(shù)、設(shè)計(jì)與實(shí)現(xiàn)繪圖程序。
2 斜管沉淀池參數(shù)化繪圖的實(shí)現(xiàn)
2.1 關(guān)于斜管沉淀池
斜管沉淀池是根據(jù)淺池理論，在沉淀池中安裝大量間距很小且平行的斜板或蜂窩狀斜管的沉淀池。被處理的污水和沉降的泥砂在各沉淀淺層中相互運(yùn)動(dòng)并分離。功能上分為異向流、同向流和側(cè)向流三種方式。給水廠中廣泛應(yīng)用側(cè)向流斜管沉淀池，污水廠中廣泛應(yīng)用異向流斜管沉淀池[2]。
2.2 設(shè)計(jì)思想
首先創(chuàng)建可視化界面，建立窗體，運(yùn)行程序，將處理水量等設(shè)計(jì)參數(shù)輸入相應(yīng)控件中。再建立計(jì)算和繪圖模塊。計(jì)算模塊計(jì)算的數(shù)據(jù)校核成功后傳給繪圖模塊。依據(jù)合理的尺寸數(shù)據(jù)進(jìn)行繪制，并以CAD圖形的形式輸出。最后用VBA語句將模塊和窗體連接，完成參數(shù)化繪圖程序設(shè)計(jì)。
2.3 斜管沉淀池參數(shù)化繪圖的開發(fā)實(shí)例
2.3.1 窗體界面的創(chuàng)建
首先在主窗體中添加六個(gè)按鈕：“設(shè)計(jì)資料”、“設(shè)計(jì)參數(shù)”、“斜管沉淀池尺寸計(jì)算”、“沉淀池構(gòu)造尺寸計(jì)算”、“繪圖”以及“退出”。窗體的創(chuàng)建也貫穿之后模塊中相應(yīng)窗體創(chuàng)建，即添加相應(yīng)控件實(shí)現(xiàn)相應(yīng)的功能。如計(jì)算模塊中點(diǎn)擊計(jì)算按鈕實(shí)現(xiàn)相應(yīng)數(shù)據(jù)的計(jì)算。
2.3.2 模塊的創(chuàng)建
（1）計(jì)算模塊：依據(jù)相關(guān)規(guī)范利用VBA語言，編輯出斜管沉淀池各部分的計(jì)算。將每一個(gè)部分的每一步計(jì)算過程放入一個(gè)自定義函數(shù)中，由大化小，分工明確，進(jìn)行相關(guān)界面的設(shè)計(jì)[3]。計(jì)算出的尺寸經(jīng)程序校核直至通過為止。以下為斜管沉淀池尺寸設(shè)計(jì)計(jì)算部分程序：
設(shè)計(jì)單池水量：
斜管沉淀池尺寸設(shè)計(jì)計(jì)算.txt21.text=Format（clsl*（1+rzybfb）/24/n /3600，"######.##"）
sjdcsl=Val（斜管沉淀池尺寸設(shè)計(jì)計(jì)算.txt21.text）
（2）繪圖模塊
計(jì)算模塊校核后的數(shù)據(jù)傳遞給繪圖程序模塊進(jìn)行繪圖，如在AutoCAD中畫圖一樣，運(yùn)用VBA進(jìn)行參數(shù)化繪圖，也要先設(shè)置繪圖環(huán)境，即將不同的對象繪制在不同的圖層里[4]。本軟件繪圖環(huán)境設(shè)置了“墻體”、“ 標(biāo)注”、“標(biāo)高”等圖層。系統(tǒng)創(chuàng)建圖層的代碼如下：
創(chuàng)建圖層：
Dim layObj As AcadLayer
Set layObj = ThisDrawing.Layers.Add（"墻體"）
Set layObj = ThisDrawing.Layers.Add（"標(biāo)注"）
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"
首先根據(jù)計(jì)算模塊所得數(shù)據(jù)，在CAD中選擇基準(zhǔn)點(diǎn)進(jìn)行池體繪制，之后進(jìn)行內(nèi)部結(jié)構(gòu)的繪制。繪制過程中，由選擇基準(zhǔn)點(diǎn)開始，通過記錄在程序中各個(gè)點(diǎn)的連接關(guān)系、坐標(biāo)等信息進(jìn)行繪圖，完成后以CAD圖形的形式輸出[5]。
斜管沉淀池各部分尺寸繪圖模塊編制完成后，可以選擇繪圖比例，如下代碼所示：
ptpick1=ThisDrawing.Utility.GetPoint（，"請拾取平面圖的插入點(diǎn)："）
InsertX=ptpick1（0）： InsertY=ptpick1（1）
bili=Val（確定平面圖繪圖參數(shù).ComboBoxh1.text）
Select Case bili
Case 100
bi=1/100
Case 200
bi=1/200
End Select
2.3.3 斜管沉淀池參數(shù)化繪圖的實(shí)現(xiàn)
當(dāng)窗體、計(jì)算與繪圖模塊均創(chuàng)建完成后，啟動(dòng)設(shè)計(jì)資料與參數(shù)窗體，輸入?yún)?shù)，點(diǎn)擊按鈕啟動(dòng)計(jì)算模塊，得出數(shù)據(jù)并傳遞給繪圖模塊，選擇繪圖比例，在CAD界面拾取插入點(diǎn)，進(jìn)行斜管沉淀池的平面圖繪制，并以CAD圖形的形式輸出。如圖1所示：
圖1 繪制斜管沉淀池平面圖
3 結(jié)束語
斜管沉淀池的參數(shù)化設(shè)計(jì)軟件，將傳統(tǒng)設(shè)計(jì)方法改為用VBA編程自動(dòng)完成，點(diǎn)擊按鈕便能進(jìn)行斜管沉淀池的計(jì)算及平面圖的繪制，達(dá)到設(shè)計(jì)計(jì)算與自動(dòng)繪圖完美結(jié)合的目的，提高了設(shè)計(jì)效率。通過模塊的建立，軟件靈活性與實(shí)用性更強(qiáng)。
參考文獻(xiàn)
[1]李長勛.Auto CAD VBA程序開發(fā)技術(shù)[M].北京：國防工業(yè)出版社，2004.
[2]尹士君，李亞峰.水處理構(gòu)筑物設(shè)計(jì)與計(jì)算[M].化學(xué)工業(yè)出版社，2004.
[3]清源計(jì)算機(jī)工作室.AUTOCAD工程二次開發(fā)[M]. 北京：機(jī)械工業(yè)出版社，2000.
[4]Joseph Sutphin，AutoCAD 2004 VBA：A Programmer SReference，APress[M]，2004.
[5]老虎工作室，王鈺.用VBA開發(fā)AutoCAD2000應(yīng)用程序[M].人民郵電出版社，1999.endprint
摘 要：目的：研究斜管沉淀池的自動(dòng)化設(shè)計(jì)及參數(shù)化繪圖。方法：利用AutoCAD 2006內(nèi)嵌的VBA語言，建立計(jì)算及繪圖模塊，進(jìn)行參數(shù)化繪圖。結(jié)果：按設(shè)計(jì)參數(shù)，直接在CAD中繪制斜管沉淀池平面圖。結(jié)論：將模塊化設(shè)計(jì)和CAD技術(shù)相結(jié)合，實(shí)現(xiàn)斜管沉淀池的參數(shù)化繪圖。
關(guān)鍵詞：AutoCAD；VBA；參數(shù)化繪圖；斜管沉淀池
引言
隨著沉淀池在水處理中的廣泛應(yīng)用，斜管沉淀池的設(shè)計(jì)也越來越重要。傳統(tǒng)設(shè)計(jì)過程僅因設(shè)計(jì)資料與參數(shù)的不同，在CAD軟件中就需要重復(fù)繪制。為了提高設(shè)計(jì)效率，需對斜管沉淀池進(jìn)行參數(shù)化繪圖設(shè)計(jì)。
1 參數(shù)化繪圖概述
參數(shù)化繪圖也叫參數(shù)化編程，是當(dāng)前CAD技術(shù)的研究熱點(diǎn)[1]。其可實(shí)現(xiàn)設(shè)計(jì)、計(jì)算、繪圖一體化，能充分發(fā)揮CAD準(zhǔn)確、快速的特點(diǎn)[1]。參數(shù)化繪圖主要適用于結(jié)構(gòu)基本固定而尺寸參數(shù)變化的圖形。主要實(shí)現(xiàn)步驟是：確定基本參數(shù)、計(jì)算繪圖參數(shù)、設(shè)計(jì)與實(shí)現(xiàn)繪圖程序。
2 斜管沉淀池參數(shù)化繪圖的實(shí)現(xiàn)
2.1 關(guān)于斜管沉淀池
斜管沉淀池是根據(jù)淺池理論，在沉淀池中安裝大量間距很小且平行的斜板或蜂窩狀斜管的沉淀池。被處理的污水和沉降的泥砂在各沉淀淺層中相互運(yùn)動(dòng)并分離。功能上分為異向流、同向流和側(cè)向流三種方式。給水廠中廣泛應(yīng)用側(cè)向流斜管沉淀池，污水廠中廣泛應(yīng)用異向流斜管沉淀池[2]。
2.2 設(shè)計(jì)思想
首先創(chuàng)建可視化界面，建立窗體，運(yùn)行程序，將處理水量等設(shè)計(jì)參數(shù)輸入相應(yīng)控件中。再建立計(jì)算和繪圖模塊。計(jì)算模塊計(jì)算的數(shù)據(jù)校核成功后傳給繪圖模塊。依據(jù)合理的尺寸數(shù)據(jù)進(jìn)行繪制，并以CAD圖形的形式輸出。最后用VBA語句將模塊和窗體連接，完成參數(shù)化繪圖程序設(shè)計(jì)。
2.3 斜管沉淀池參數(shù)化繪圖的開發(fā)實(shí)例
2.3.1 窗體界面的創(chuàng)建
首先在主窗體中添加六個(gè)按鈕：“設(shè)計(jì)資料”、“設(shè)計(jì)參數(shù)”、“斜管沉淀池尺寸計(jì)算”、“沉淀池構(gòu)造尺寸計(jì)算”、“繪圖”以及“退出”。窗體的創(chuàng)建也貫穿之后模塊中相應(yīng)窗體創(chuàng)建，即添加相應(yīng)控件實(shí)現(xiàn)相應(yīng)的功能。如計(jì)算模塊中點(diǎn)擊計(jì)算按鈕實(shí)現(xiàn)相應(yīng)數(shù)據(jù)的計(jì)算。
2.3.2 模塊的創(chuàng)建
（1）計(jì)算模塊：依據(jù)相關(guān)規(guī)范利用VBA語言，編輯出斜管沉淀池各部分的計(jì)算。將每一個(gè)部分的每一步計(jì)算過程放入一個(gè)自定義函數(shù)中，由大化小，分工明確，進(jìn)行相關(guān)界面的設(shè)計(jì)[3]。計(jì)算出的尺寸經(jīng)程序校核直至通過為止。以下為斜管沉淀池尺寸設(shè)計(jì)計(jì)算部分程序：
設(shè)計(jì)單池水量：
斜管沉淀池尺寸設(shè)計(jì)計(jì)算.txt21.text=Format（clsl*（1+rzybfb）/24/n /3600，"######.##"）
sjdcsl=Val（斜管沉淀池尺寸設(shè)計(jì)計(jì)算.txt21.text）
（2）繪圖模塊
計(jì)算模塊校核后的數(shù)據(jù)傳遞給繪圖程序模塊進(jìn)行繪圖，如在AutoCAD中畫圖一樣，運(yùn)用VBA進(jìn)行參數(shù)化繪圖，也要先設(shè)置繪圖環(huán)境，即將不同的對象繪制在不同的圖層里[4]。本軟件繪圖環(huán)境設(shè)置了“墻體”、“ 標(biāo)注”、“標(biāo)高”等圖層。系統(tǒng)創(chuàng)建圖層的代碼如下：
創(chuàng)建圖層：
Dim layObj As AcadLayer
Set layObj = ThisDrawing.Layers.Add（"墻體"）
Set layObj = ThisDrawing.Layers.Add（"標(biāo)注"）
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"
首先根據(jù)計(jì)算模塊所得數(shù)據(jù)，在CAD中選擇基準(zhǔn)點(diǎn)進(jìn)行池體繪制，之后進(jìn)行內(nèi)部結(jié)構(gòu)的繪制。繪制過程中，由選擇基準(zhǔn)點(diǎn)開始，通過記錄在程序中各個(gè)點(diǎn)的連接關(guān)系、坐標(biāo)等信息進(jìn)行繪圖，完成后以CAD圖形的形式輸出[5]。
斜管沉淀池各部分尺寸繪圖模塊編制完成后，可以選擇繪圖比例，如下代碼所示：
ptpick1=ThisDrawing.Utility.GetPoint（，"請拾取平面圖的插入點(diǎn)："）
InsertX=ptpick1（0）： InsertY=ptpick1（1）
bili=Val（確定平面圖繪圖參數(shù).ComboBoxh1.text）
Select Case bili
Case 100
bi=1/100
Case 200
bi=1/200
End Select
2.3.3 斜管沉淀池參數(shù)化繪圖的實(shí)現(xiàn)
當(dāng)窗體、計(jì)算與繪圖模塊均創(chuàng)建完成后，啟動(dòng)設(shè)計(jì)資料與參數(shù)窗體，輸入?yún)?shù)，點(diǎn)擊按鈕啟動(dòng)計(jì)算模塊，得出數(shù)據(jù)并傳遞給繪圖模塊，選擇繪圖比例，在CAD界面拾取插入點(diǎn)，進(jìn)行斜管沉淀池的平面圖繪制，并以CAD圖形的形式輸出。如圖1所示：
圖1 繪制斜管沉淀池平面圖
3 結(jié)束語
斜管沉淀池的參數(shù)化設(shè)計(jì)軟件，將傳統(tǒng)設(shè)計(jì)方法改為用VBA編程自動(dòng)完成，點(diǎn)擊按鈕便能進(jìn)行斜管沉淀池的計(jì)算及平面圖的繪制，達(dá)到設(shè)計(jì)計(jì)算與自動(dòng)繪圖完美結(jié)合的目的，提高了設(shè)計(jì)效率。通過模塊的建立，軟件靈活性與實(shí)用性更強(qiáng)。
參考文獻(xiàn)
[1]李長勛.Auto CAD VBA程序開發(fā)技術(shù)[M].北京：國防工業(yè)出版社，2004.
[2]尹士君，李亞峰.水處理構(gòu)筑物設(shè)計(jì)與計(jì)算[M].化學(xué)工業(yè)出版社，2004.
[3]清源計(jì)算機(jī)工作室.AUTOCAD工程二次開發(fā)[M]. 北京：機(jī)械工業(yè)出版社，2000.
[4]Joseph Sutphin，AutoCAD 2004 VBA：A Programmer SReference，APress[M]，2004.
[5]老虎工作室，王鈺.用VBA開發(fā)AutoCAD2000應(yīng)用程序[M].人民郵電出版社，1999.endprint
