亚洲免费av电影一区二区三区,日韩爱爱视频,51精品视频一区二区三区,91视频爱爱,日韩欧美在线播放视频,中文字幕少妇AV,亚洲电影中文字幕,久久久久亚洲av成人网址,久久综合视频网站,国产在线不卡免费播放

        ?

        關(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

        国产免费一级高清淫日本片| 亚洲av乱码一区二区三区林ゆな| 人妻少妇乱子伦精品无码专区电影 | japanese无码中文字幕| 国产精品美女一级在线观看| 亚洲一区二区蜜桃视频| 亚洲妇熟xxxx妇色黄| 日本办公室三级在线观看| 色综合久久网| 色一情一乱一伦一区二区三区日本| 中文字幕在线观看国产双飞高清| 日韩av在线免费观看不卡| 男吃奶玩乳尖高潮视频| 午夜精品久久久久久久久久久久| 亚洲高清在线不卡中文字幕网| 青青草视频免费在线播放| 在线日本国产成人免费精品| 国产免费无遮挡吸奶头视频| 亚洲男人天堂| 网友自拍人妻一区二区三区三州| 成人大片免费视频播放一级| 欧美午夜刺激影院| 亚洲国产精品久久久久秋霞1| 久久这黄色精品免费久| 亚洲国产精品久久久久久无码| 亚洲 欧美精品suv| 精品久久久久久99人妻| 国产三级国产精品国产专区50| 一区二区三区乱码在线 | 欧洲 | 欧美最大胆的西西人体44| 国产精品99久久久久久98AV| 亚洲国产av精品一区二| 99久久精品免费看国产| 亚洲另类自拍丝袜第五页 | 免费无码不卡视频在线观看| 宝贝把腿张开我要添你下边动态图 | 一本久久伊人热热精品中文| 东京热加勒比视频一区| 久久精品国产免费观看| 96精品在线| 性色国产成人久久久精品二区三区|