關(guān)于斜管沉淀池參數(shù)化繪圖的研究

田麗娜+尹士君+孫旭芳+李濱羽+孫夢(mèng)秋+李想

摘 要：目的：研究斜管沉淀池的自動(dòng)化設(shè)計(jì)及參數(shù)化繪圖。方法：利用AutoCAD 2006內(nèi)嵌的VBA語(yǔ)言，建立計(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ì)也越來(lái)越重要。傳統(tǒng)設(shè)計(jì)過(guò)程僅因設(shè)計(jì)資料與參數(shù)的不同，在CAD軟件中就需要重復(fù)繪制。為了提高設(shè)計(jì)效率，需對(duì)斜管沉淀池進(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語(yǔ)句將模塊和窗體連接，完成參數(shù)化繪圖程序設(shè)計(jì)。

2.3 斜管沉淀池參數(shù)化繪圖的開(kāi)發(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語(yǔ)言，編輯出斜管沉淀池各部分的計(jì)算。將每一個(gè)部分的每一步計(jì)算過(guò)程放入一個(gè)自定義函數(shù)中，由大化小，分工明確，進(jìn)行相關(guān)界面的設(shè)計(jì)[3]。計(jì)算出的尺寸經(jīng)程序校核直至通過(guò)為止。以下為斜管沉淀池尺寸設(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中畫(huà)圖一樣，運(yùn)用VBA進(jìn)行參數(shù)化繪圖，也要先設(shè)置繪圖環(huán)境，即將不同的對(duì)象繪制在不同的圖層里[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)的繪制。繪制過(guò)程中，由選擇基準(zhǔn)點(diǎn)開(kāi)始，通過(guò)記錄在程序中各個(gè)點(diǎn)的連接關(guān)系、坐標(biāo)等信息進(jìn)行繪圖，完成后以CAD圖形的形式輸出[5]。

斜管沉淀池各部分尺寸繪圖模塊編制完成后，可以選擇繪圖比例，如下代碼所示：

ptpick1=ThisDrawing.Utility.GetPoint（，"請(qǐng)拾取平面圖的插入點(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é)束語(yǔ)

斜管沉淀池的參數(shù)化設(shè)計(jì)軟件，將傳統(tǒng)設(shè)計(jì)方法改為用VBA編程自動(dòng)完成，點(diǎn)擊按鈕便能進(jìn)行斜管沉淀池的計(jì)算及平面圖的繪制，達(dá)到設(shè)計(jì)計(jì)算與自動(dòng)繪圖完美結(jié)合的目的，提高了設(shè)計(jì)效率。通過(guò)模塊的建立，軟件靈活性與實(shí)用性更強(qiáng)。

參考文獻(xiàn)

[1]李長(zhǎng)勛.Auto CAD VBA程序開(kāi)發(fā)技術(shù)[M].北京：國(guó)防工業(yè)出版社，2004.

[2]尹士君，李亞峰.水處理構(gòu)筑物設(shè)計(jì)與計(jì)算[M].化學(xué)工業(yè)出版社，2004.

[3]清源計(jì)算機(jī)工作室.AUTOCAD工程二次開(kāi)發(fā)[M]. 北京：機(jī)械工業(yè)出版社，2000.

[4]Joseph Sutphin，AutoCAD 2004 VBA：A Programmer SReference，APress[M]，2004.

[5]老虎工作室，王鈺.用VBA開(kāi)發(fā)AutoCAD2000應(yīng)用程序[M].人民郵電出版社，1999.endprint

摘 要：目的：研究斜管沉淀池的自動(dòng)化設(shè)計(jì)及參數(shù)化繪圖。方法：利用AutoCAD 2006內(nèi)嵌的VBA語(yǔ)言，建立計(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ì)也越來(lái)越重要。傳統(tǒng)設(shè)計(jì)過(guò)程僅因設(shè)計(jì)資料與參數(shù)的不同，在CAD軟件中就需要重復(fù)繪制。為了提高設(shè)計(jì)效率，需對(duì)斜管沉淀池進(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語(yǔ)句將模塊和窗體連接，完成參數(shù)化繪圖程序設(shè)計(jì)。

2.3 斜管沉淀池參數(shù)化繪圖的開(kāi)發(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語(yǔ)言，編輯出斜管沉淀池各部分的計(jì)算。將每一個(gè)部分的每一步計(jì)算過(guò)程放入一個(gè)自定義函數(shù)中，由大化小，分工明確，進(jìn)行相關(guān)界面的設(shè)計(jì)[3]。計(jì)算出的尺寸經(jīng)程序校核直至通過(guò)為止。以下為斜管沉淀池尺寸設(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中畫(huà)圖一樣，運(yùn)用VBA進(jìn)行參數(shù)化繪圖，也要先設(shè)置繪圖環(huán)境，即將不同的對(duì)象繪制在不同的圖層里[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)的繪制。繪制過(guò)程中，由選擇基準(zhǔn)點(diǎn)開(kāi)始，通過(guò)記錄在程序中各個(gè)點(diǎn)的連接關(guān)系、坐標(biāo)等信息進(jìn)行繪圖，完成后以CAD圖形的形式輸出[5]。

斜管沉淀池各部分尺寸繪圖模塊編制完成后，可以選擇繪圖比例，如下代碼所示：

ptpick1=ThisDrawing.Utility.GetPoint（，"請(qǐng)拾取平面圖的插入點(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é)束語(yǔ)

斜管沉淀池的參數(shù)化設(shè)計(jì)軟件，將傳統(tǒng)設(shè)計(jì)方法改為用VBA編程自動(dòng)完成，點(diǎn)擊按鈕便能進(jìn)行斜管沉淀池的計(jì)算及平面圖的繪制，達(dá)到設(shè)計(jì)計(jì)算與自動(dòng)繪圖完美結(jié)合的目的，提高了設(shè)計(jì)效率。通過(guò)模塊的建立，軟件靈活性與實(shí)用性更強(qiáng)。

參考文獻(xiàn)

[1]李長(zhǎng)勛.Auto CAD VBA程序開(kāi)發(fā)技術(shù)[M].北京：國(guó)防工業(yè)出版社，2004.

[2]尹士君，李亞峰.水處理構(gòu)筑物設(shè)計(jì)與計(jì)算[M].化學(xué)工業(yè)出版社，2004.

[3]清源計(jì)算機(jī)工作室.AUTOCAD工程二次開(kāi)發(fā)[M]. 北京：機(jī)械工業(yè)出版社，2000.

[4]Joseph Sutphin，AutoCAD 2004 VBA：A Programmer SReference，APress[M]，2004.

[5]老虎工作室，王鈺.用VBA開(kāi)發(fā)AutoCAD2000應(yīng)用程序[M].人民郵電出版社，1999.endprint

摘 要：目的：研究斜管沉淀池的自動(dòng)化設(shè)計(jì)及參數(shù)化繪圖。方法：利用AutoCAD 2006內(nèi)嵌的VBA語(yǔ)言，建立計(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ì)也越來(lái)越重要。傳統(tǒng)設(shè)計(jì)過(guò)程僅因設(shè)計(jì)資料與參數(shù)的不同，在CAD軟件中就需要重復(fù)繪制。為了提高設(shè)計(jì)效率，需對(duì)斜管沉淀池進(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語(yǔ)句將模塊和窗體連接，完成參數(shù)化繪圖程序設(shè)計(jì)。

2.3 斜管沉淀池參數(shù)化繪圖的開(kāi)發(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語(yǔ)言，編輯出斜管沉淀池各部分的計(jì)算。將每一個(gè)部分的每一步計(jì)算過(guò)程放入一個(gè)自定義函數(shù)中，由大化小，分工明確，進(jìn)行相關(guān)界面的設(shè)計(jì)[3]。計(jì)算出的尺寸經(jīng)程序校核直至通過(guò)為止。以下為斜管沉淀池尺寸設(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中畫(huà)圖一樣，運(yùn)用VBA進(jìn)行參數(shù)化繪圖，也要先設(shè)置繪圖環(huán)境，即將不同的對(duì)象繪制在不同的圖層里[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)的繪制。繪制過(guò)程中，由選擇基準(zhǔn)點(diǎn)開(kāi)始，通過(guò)記錄在程序中各個(gè)點(diǎn)的連接關(guān)系、坐標(biāo)等信息進(jìn)行繪圖，完成后以CAD圖形的形式輸出[5]。

斜管沉淀池各部分尺寸繪圖模塊編制完成后，可以選擇繪圖比例，如下代碼所示：

ptpick1=ThisDrawing.Utility.GetPoint（，"請(qǐng)拾取平面圖的插入點(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é)束語(yǔ)

斜管沉淀池的參數(shù)化設(shè)計(jì)軟件，將傳統(tǒng)設(shè)計(jì)方法改為用VBA編程自動(dòng)完成，點(diǎn)擊按鈕便能進(jìn)行斜管沉淀池的計(jì)算及平面圖的繪制，達(dá)到設(shè)計(jì)計(jì)算與自動(dòng)繪圖完美結(jié)合的目的，提高了設(shè)計(jì)效率。通過(guò)模塊的建立，軟件靈活性與實(shí)用性更強(qiáng)。

參考文獻(xiàn)

[1]李長(zhǎng)勛.Auto CAD VBA程序開(kāi)發(fā)技術(shù)[M].北京：國(guó)防工業(yè)出版社，2004.

[2]尹士君，李亞峰.水處理構(gòu)筑物設(shè)計(jì)與計(jì)算[M].化學(xué)工業(yè)出版社，2004.

[3]清源計(jì)算機(jī)工作室.AUTOCAD工程二次開(kāi)發(fā)[M]. 北京：機(jī)械工業(yè)出版社，2000.

[4]Joseph Sutphin，AutoCAD 2004 VBA：A Programmer SReference，APress[M]，2004.

[5]老虎工作室，王鈺.用VBA開(kāi)發(fā)AutoCAD2000應(yīng)用程序[M].人民郵電出版社，1999.endprint