田麗娜+尹士君+孫旭芳+李濱羽+孫夢秋+李想

摘 要：目的：研究斜管沉淀池的自動化設(shè)計及參數(shù)化繪圖。方法：利用AutoCAD 2006內(nèi)嵌的VBA語言，建立計算及繪圖模塊，進行參數(shù)化繪圖。結(jié)果：按設(shè)計參數(shù)，直接在CAD中繪制斜管沉淀池平面圖。結(jié)論：將模塊化設(shè)計和CAD技術(shù)相結(jié)合，實現(xiàn)斜管沉淀池的參數(shù)化繪圖。

關(guān)鍵詞：AutoCAD；VBA；參數(shù)化繪圖；斜管沉淀池

引言

隨著沉淀池在水處理中的廣泛應(yīng)用，斜管沉淀池的設(shè)計也越來越重要。傳統(tǒng)設(shè)計過程僅因設(shè)計資料與參數(shù)的不同，在CAD軟件中就需要重復繪制。為了提高設(shè)計效率，需對斜管沉淀池進行參數(shù)化繪圖設(shè)計。

1 參數(shù)化繪圖概述

參數(shù)化繪圖也叫參數(shù)化編程，是當前CAD技術(shù)的研究熱點[1]。其可實現(xiàn)設(shè)計、計算、繪圖一體化，能充分發(fā)揮CAD準確、快速的特點[1]。參數(shù)化繪圖主要適用于結(jié)構(gòu)基本固定而尺寸參數(shù)變化的圖形。主要實現(xiàn)步驟是：確定基本參數(shù)、計算繪圖參數(shù)、設(shè)計與實現(xiàn)繪圖程序。

2 斜管沉淀池參數(shù)化繪圖的實現(xiàn)

2.1 關(guān)于斜管沉淀池

斜管沉淀池是根據(jù)淺池理論，在沉淀池中安裝大量間距很小且平行的斜板或蜂窩狀斜管的沉淀池。被處理的污水和沉降的泥砂在各沉淀淺層中相互運動并分離。功能上分為異向流、同向流和側(cè)向流三種方式。給水廠中廣泛應(yīng)用側(cè)向流斜管沉淀池，污水廠中廣泛應(yīng)用異向流斜管沉淀池[2]。

2.2 設(shè)計思想

首先創(chuàng)建可視化界面，建立窗體，運行程序，將處理水量等設(shè)計參數(shù)輸入相應(yīng)控件中。再建立計算和繪圖模塊。計算模塊計算的數(shù)據(jù)校核成功后傳給繪圖模塊。依據(jù)合理的尺寸數(shù)據(jù)進行繪制，并以CAD圖形的形式輸出。最后用VBA語句將模塊和窗體連接，完成參數(shù)化繪圖程序設(shè)計。

2.3 斜管沉淀池參數(shù)化繪圖的開發(fā)實例

2.3.1 窗體界面的創(chuàng)建

首先在主窗體中添加六個按鈕：“設(shè)計資料”、“設(shè)計參數(shù)”、“斜管沉淀池尺寸計算”、“沉淀池構(gòu)造尺寸計算”、“繪圖”以及“退出”。窗體的創(chuàng)建也貫穿之后模塊中相應(yīng)窗體創(chuàng)建，即添加相應(yīng)控件實現(xiàn)相應(yīng)的功能。如計算模塊中點擊計算按鈕實現(xiàn)相應(yīng)數(shù)據(jù)的計算。

2.3.2 模塊的創(chuàng)建

（1）計算模塊：依據(jù)相關(guān)規(guī)范利用VBA語言，編輯出斜管沉淀池各部分的計算。將每一個部分的每一步計算過程放入一個自定義函數(shù)中，由大化小，分工明確，進行相關(guān)界面的設(shè)計[3]。計算出的尺寸經(jīng)程序校核直至通過為止。以下為斜管沉淀池尺寸設(shè)計計算部分程序：

設(shè)計單池水量：

斜管沉淀池尺寸設(shè)計計算.txt21.text=Format（clsl*（1+rzybfb）/24/n /3600，"######.##"）

sjdcsl=Val（斜管沉淀池尺寸設(shè)計計算.txt21.text）

（2）繪圖模塊

計算模塊校核后的數(shù)據(jù)傳遞給繪圖程序模塊進行繪圖，如在AutoCAD中畫圖一樣，運用VBA進行參數(shù)化繪圖，也要先設(shè)置繪圖環(huán)境，即將不同的對象繪制在不同的圖層里[4]。本軟件繪圖環(huán)境設(shè)置了“墻體”、“ 標注”、“標高”等圖層。系統(tǒng)創(chuàng)建圖層的代碼如下：

創(chuàng)建圖層：

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"

首先根據(jù)計算模塊所得數(shù)據(jù)，在CAD中選擇基準點進行池體繪制，之后進行內(nèi)部結(jié)構(gòu)的繪制。繪制過程中，由選擇基準點開始，通過記錄在程序中各個點的連接關(guān)系、坐標等信息進行繪圖，完成后以CAD圖形的形式輸出[5]。

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

ptpick1=ThisDrawing.Utility.GetPoint（，"請拾取平面圖的插入點："）

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ù)化繪圖的實現(xiàn)

當窗體、計算與繪圖模塊均創(chuàng)建完成后，啟動設(shè)計資料與參數(shù)窗體，輸入?yún)?shù)，點擊按鈕啟動計算模塊，得出數(shù)據(jù)并傳遞給繪圖模塊，選擇繪圖比例，在CAD界面拾取插入點，進行斜管沉淀池的平面圖繪制，并以CAD圖形的形式輸出。如圖1所示：

圖1 繪制斜管沉淀池平面圖

3 結(jié)束語

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

參考文獻

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

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

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

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

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

摘 要：目的：研究斜管沉淀池的自動化設(shè)計及參數(shù)化繪圖。方法：利用AutoCAD 2006內(nèi)嵌的VBA語言，建立計算及繪圖模塊，進行參數(shù)化繪圖。結(jié)果：按設(shè)計參數(shù)，直接在CAD中繪制斜管沉淀池平面圖。結(jié)論：將模塊化設(shè)計和CAD技術(shù)相結(jié)合，實現(xiàn)斜管沉淀池的參數(shù)化繪圖。

關(guān)鍵詞：AutoCAD；VBA；參數(shù)化繪圖；斜管沉淀池

引言

隨著沉淀池在水處理中的廣泛應(yīng)用，斜管沉淀池的設(shè)計也越來越重要。傳統(tǒng)設(shè)計過程僅因設(shè)計資料與參數(shù)的不同，在CAD軟件中就需要重復繪制。為了提高設(shè)計效率，需對斜管沉淀池進行參數(shù)化繪圖設(shè)計。

1 參數(shù)化繪圖概述

參數(shù)化繪圖也叫參數(shù)化編程，是當前CAD技術(shù)的研究熱點[1]。其可實現(xiàn)設(shè)計、計算、繪圖一體化，能充分發(fā)揮CAD準確、快速的特點[1]。參數(shù)化繪圖主要適用于結(jié)構(gòu)基本固定而尺寸參數(shù)變化的圖形。主要實現(xiàn)步驟是：確定基本參數(shù)、計算繪圖參數(shù)、設(shè)計與實現(xiàn)繪圖程序。

2 斜管沉淀池參數(shù)化繪圖的實現(xiàn)

2.1 關(guān)于斜管沉淀池

斜管沉淀池是根據(jù)淺池理論，在沉淀池中安裝大量間距很小且平行的斜板或蜂窩狀斜管的沉淀池。被處理的污水和沉降的泥砂在各沉淀淺層中相互運動并分離。功能上分為異向流、同向流和側(cè)向流三種方式。給水廠中廣泛應(yīng)用側(cè)向流斜管沉淀池，污水廠中廣泛應(yīng)用異向流斜管沉淀池[2]。

2.2 設(shè)計思想

首先創(chuàng)建可視化界面，建立窗體，運行程序，將處理水量等設(shè)計參數(shù)輸入相應(yīng)控件中。再建立計算和繪圖模塊。計算模塊計算的數(shù)據(jù)校核成功后傳給繪圖模塊。依據(jù)合理的尺寸數(shù)據(jù)進行繪制，并以CAD圖形的形式輸出。最后用VBA語句將模塊和窗體連接，完成參數(shù)化繪圖程序設(shè)計。

2.3 斜管沉淀池參數(shù)化繪圖的開發(fā)實例

2.3.1 窗體界面的創(chuàng)建

首先在主窗體中添加六個按鈕：“設(shè)計資料”、“設(shè)計參數(shù)”、“斜管沉淀池尺寸計算”、“沉淀池構(gòu)造尺寸計算”、“繪圖”以及“退出”。窗體的創(chuàng)建也貫穿之后模塊中相應(yīng)窗體創(chuàng)建，即添加相應(yīng)控件實現(xiàn)相應(yīng)的功能。如計算模塊中點擊計算按鈕實現(xiàn)相應(yīng)數(shù)據(jù)的計算。

2.3.2 模塊的創(chuàng)建

（1）計算模塊：依據(jù)相關(guān)規(guī)范利用VBA語言，編輯出斜管沉淀池各部分的計算。將每一個部分的每一步計算過程放入一個自定義函數(shù)中，由大化小，分工明確，進行相關(guān)界面的設(shè)計[3]。計算出的尺寸經(jīng)程序校核直至通過為止。以下為斜管沉淀池尺寸設(shè)計計算部分程序：

設(shè)計單池水量：

斜管沉淀池尺寸設(shè)計計算.txt21.text=Format（clsl*（1+rzybfb）/24/n /3600，"######.##"）

sjdcsl=Val（斜管沉淀池尺寸設(shè)計計算.txt21.text）

（2）繪圖模塊

計算模塊校核后的數(shù)據(jù)傳遞給繪圖程序模塊進行繪圖，如在AutoCAD中畫圖一樣，運用VBA進行參數(shù)化繪圖，也要先設(shè)置繪圖環(huán)境，即將不同的對象繪制在不同的圖層里[4]。本軟件繪圖環(huán)境設(shè)置了“墻體”、“ 標注”、“標高”等圖層。系統(tǒng)創(chuàng)建圖層的代碼如下：

創(chuàng)建圖層：

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"

首先根據(jù)計算模塊所得數(shù)據(jù)，在CAD中選擇基準點進行池體繪制，之后進行內(nèi)部結(jié)構(gòu)的繪制。繪制過程中，由選擇基準點開始，通過記錄在程序中各個點的連接關(guān)系、坐標等信息進行繪圖，完成后以CAD圖形的形式輸出[5]。

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

ptpick1=ThisDrawing.Utility.GetPoint（，"請拾取平面圖的插入點："）

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ù)化繪圖的實現(xiàn)

當窗體、計算與繪圖模塊均創(chuàng)建完成后，啟動設(shè)計資料與參數(shù)窗體，輸入?yún)?shù)，點擊按鈕啟動計算模塊，得出數(shù)據(jù)并傳遞給繪圖模塊，選擇繪圖比例，在CAD界面拾取插入點，進行斜管沉淀池的平面圖繪制，并以CAD圖形的形式輸出。如圖1所示：

圖1 繪制斜管沉淀池平面圖

3 結(jié)束語

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

參考文獻

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

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

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

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

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

摘 要：目的：研究斜管沉淀池的自動化設(shè)計及參數(shù)化繪圖。方法：利用AutoCAD 2006內(nèi)嵌的VBA語言，建立計算及繪圖模塊，進行參數(shù)化繪圖。結(jié)果：按設(shè)計參數(shù)，直接在CAD中繪制斜管沉淀池平面圖。結(jié)論：將模塊化設(shè)計和CAD技術(shù)相結(jié)合，實現(xiàn)斜管沉淀池的參數(shù)化繪圖。

關(guān)鍵詞：AutoCAD；VBA；參數(shù)化繪圖；斜管沉淀池

引言

隨著沉淀池在水處理中的廣泛應(yīng)用，斜管沉淀池的設(shè)計也越來越重要。傳統(tǒng)設(shè)計過程僅因設(shè)計資料與參數(shù)的不同，在CAD軟件中就需要重復繪制。為了提高設(shè)計效率，需對斜管沉淀池進行參數(shù)化繪圖設(shè)計。

1 參數(shù)化繪圖概述

參數(shù)化繪圖也叫參數(shù)化編程，是當前CAD技術(shù)的研究熱點[1]。其可實現(xiàn)設(shè)計、計算、繪圖一體化，能充分發(fā)揮CAD準確、快速的特點[1]。參數(shù)化繪圖主要適用于結(jié)構(gòu)基本固定而尺寸參數(shù)變化的圖形。主要實現(xiàn)步驟是：確定基本參數(shù)、計算繪圖參數(shù)、設(shè)計與實現(xiàn)繪圖程序。

2 斜管沉淀池參數(shù)化繪圖的實現(xiàn)

2.1 關(guān)于斜管沉淀池

斜管沉淀池是根據(jù)淺池理論，在沉淀池中安裝大量間距很小且平行的斜板或蜂窩狀斜管的沉淀池。被處理的污水和沉降的泥砂在各沉淀淺層中相互運動并分離。功能上分為異向流、同向流和側(cè)向流三種方式。給水廠中廣泛應(yīng)用側(cè)向流斜管沉淀池，污水廠中廣泛應(yīng)用異向流斜管沉淀池[2]。

2.2 設(shè)計思想

首先創(chuàng)建可視化界面，建立窗體，運行程序，將處理水量等設(shè)計參數(shù)輸入相應(yīng)控件中。再建立計算和繪圖模塊。計算模塊計算的數(shù)據(jù)校核成功后傳給繪圖模塊。依據(jù)合理的尺寸數(shù)據(jù)進行繪制，并以CAD圖形的形式輸出。最后用VBA語句將模塊和窗體連接，完成參數(shù)化繪圖程序設(shè)計。

2.3 斜管沉淀池參數(shù)化繪圖的開發(fā)實例

2.3.1 窗體界面的創(chuàng)建

首先在主窗體中添加六個按鈕：“設(shè)計資料”、“設(shè)計參數(shù)”、“斜管沉淀池尺寸計算”、“沉淀池構(gòu)造尺寸計算”、“繪圖”以及“退出”。窗體的創(chuàng)建也貫穿之后模塊中相應(yīng)窗體創(chuàng)建，即添加相應(yīng)控件實現(xiàn)相應(yīng)的功能。如計算模塊中點擊計算按鈕實現(xiàn)相應(yīng)數(shù)據(jù)的計算。

2.3.2 模塊的創(chuàng)建

（1）計算模塊：依據(jù)相關(guān)規(guī)范利用VBA語言，編輯出斜管沉淀池各部分的計算。將每一個部分的每一步計算過程放入一個自定義函數(shù)中，由大化小，分工明確，進行相關(guān)界面的設(shè)計[3]。計算出的尺寸經(jīng)程序校核直至通過為止。以下為斜管沉淀池尺寸設(shè)計計算部分程序：

設(shè)計單池水量：

斜管沉淀池尺寸設(shè)計計算.txt21.text=Format（clsl*（1+rzybfb）/24/n /3600，"######.##"）

sjdcsl=Val（斜管沉淀池尺寸設(shè)計計算.txt21.text）

（2）繪圖模塊

計算模塊校核后的數(shù)據(jù)傳遞給繪圖程序模塊進行繪圖，如在AutoCAD中畫圖一樣，運用VBA進行參數(shù)化繪圖，也要先設(shè)置繪圖環(huán)境，即將不同的對象繪制在不同的圖層里[4]。本軟件繪圖環(huán)境設(shè)置了“墻體”、“ 標注”、“標高”等圖層。系統(tǒng)創(chuàng)建圖層的代碼如下：

創(chuàng)建圖層：

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"

首先根據(jù)計算模塊所得數(shù)據(jù)，在CAD中選擇基準點進行池體繪制，之后進行內(nèi)部結(jié)構(gòu)的繪制。繪制過程中，由選擇基準點開始，通過記錄在程序中各個點的連接關(guān)系、坐標等信息進行繪圖，完成后以CAD圖形的形式輸出[5]。

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

ptpick1=ThisDrawing.Utility.GetPoint（，"請拾取平面圖的插入點："）

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ù)化繪圖的實現(xiàn)

當窗體、計算與繪圖模塊均創(chuàng)建完成后，啟動設(shè)計資料與參數(shù)窗體，輸入?yún)?shù)，點擊按鈕啟動計算模塊，得出數(shù)據(jù)并傳遞給繪圖模塊，選擇繪圖比例，在CAD界面拾取插入點，進行斜管沉淀池的平面圖繪制，并以CAD圖形的形式輸出。如圖1所示：

圖1 繪制斜管沉淀池平面圖

3 結(jié)束語

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

參考文獻

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

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

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

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

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