• <tr id="yyy80"></tr>
  • <sup id="yyy80"></sup>
  • <tfoot id="yyy80"><noscript id="yyy80"></noscript></tfoot>
  • 99热精品在线国产_美女午夜性视频免费_国产精品国产高清国产av_av欧美777_自拍偷自拍亚洲精品老妇_亚洲熟女精品中文字幕_www日本黄色视频网_国产精品野战在线观看 ?

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

    2014-09-29 02:57:59田麗娜尹士君孫旭芳李濱羽孫夢(mèng)秋李想
    科技創(chuàng)新與應(yīng)用 2014年30期

    田麗娜+尹士君+孫旭芳+李濱羽+孫夢(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

    深爱激情五月婷婷| 天堂影院成人在线观看| 自拍偷自拍亚洲精品老妇| 波多野结衣巨乳人妻| 别揉我奶头 嗯啊视频| 亚洲精品日本国产第一区| 日本av手机在线免费观看| 一级毛片电影观看| 国产伦精品一区二区三区视频9| 91aial.com中文字幕在线观看| 蜜臀久久99精品久久宅男| 亚洲经典国产精华液单| 免费无遮挡裸体视频| 91精品一卡2卡3卡4卡| 日韩视频在线欧美| 免费人成在线观看视频色| 欧美变态另类bdsm刘玥| 久久久久久久久中文| 青春草视频在线免费观看| 伊人久久国产一区二区| 99热这里只有精品一区| 成人亚洲精品av一区二区| 一级av片app| 日韩一区二区三区影片| 成人av在线播放网站| 国产精品嫩草影院av在线观看| 18禁裸乳无遮挡免费网站照片| 亚洲精品国产av成人精品| 国产在视频线精品| 亚洲欧美中文字幕日韩二区| 午夜精品在线福利| 国产精品美女特级片免费视频播放器| 简卡轻食公司| 99热6这里只有精品| 少妇熟女欧美另类| 国产69精品久久久久777片| 熟女人妻精品中文字幕| 美女cb高潮喷水在线观看| 嫩草影院入口| 午夜亚洲福利在线播放| 啦啦啦中文免费视频观看日本| 免费观看无遮挡的男女| 国产高清有码在线观看视频| 亚洲高清免费不卡视频| 国产av国产精品国产| 一级毛片我不卡| 久久久久九九精品影院| 久99久视频精品免费| 美女高潮的动态| 久久久久久久国产电影| 国产成人精品一,二区| 一级爰片在线观看| 久久这里有精品视频免费| 国产在线男女| 天天一区二区日本电影三级| 日韩,欧美,国产一区二区三区| 99视频精品全部免费 在线| 日本免费在线观看一区| 久久久久久九九精品二区国产| 久久热精品热| 深夜a级毛片| 亚洲怡红院男人天堂| 久久久久久伊人网av| 亚洲伊人久久精品综合| 天堂√8在线中文| 青春草亚洲视频在线观看| 一级a做视频免费观看| 精品午夜福利在线看| 亚洲国产欧美人成| 狂野欧美激情性xxxx在线观看| 久久97久久精品| 男人和女人高潮做爰伦理| 日韩亚洲欧美综合| 人妻少妇偷人精品九色| 亚洲人与动物交配视频| 欧美丝袜亚洲另类| 蜜桃久久精品国产亚洲av| 久久精品熟女亚洲av麻豆精品 | 成年版毛片免费区| 大陆偷拍与自拍| 国产高潮美女av| 国产 一区精品| 国产一区亚洲一区在线观看| 国产精品日韩av在线免费观看| 日本爱情动作片www.在线观看| 69av精品久久久久久| 久久韩国三级中文字幕| 亚洲欧美清纯卡通| 国产精品久久久久久精品电影小说 | 一区二区三区免费毛片| 男插女下体视频免费在线播放| 97精品久久久久久久久久精品| 国产单亲对白刺激| 别揉我奶头 嗯啊视频| 亚洲在线观看片| 日韩欧美一区视频在线观看 | 欧美高清成人免费视频www| 黄色欧美视频在线观看| 亚洲丝袜综合中文字幕| 久久久久久久久大av| 国产成人精品婷婷| 欧美性感艳星| 亚洲高清免费不卡视频| 国产老妇伦熟女老妇高清| 三级国产精品片| 九九爱精品视频在线观看| 亚洲精品一区蜜桃| 欧美一级a爱片免费观看看| 国产伦一二天堂av在线观看| 大陆偷拍与自拍| av网站免费在线观看视频 | 中国国产av一级| 亚洲aⅴ乱码一区二区在线播放| 午夜福利在线观看吧| 97精品久久久久久久久久精品| 又爽又黄a免费视频| a级一级毛片免费在线观看| 十八禁网站网址无遮挡 | 久久久亚洲精品成人影院| 看非洲黑人一级黄片| 久久久国产一区二区| 卡戴珊不雅视频在线播放| 成人性生交大片免费视频hd| 国产精品蜜桃在线观看| 99热这里只有是精品50| 日韩国内少妇激情av| 亚洲欧美一区二区三区黑人 | 精品一区二区三卡| 成人午夜精彩视频在线观看| 九草在线视频观看| 国产一级毛片七仙女欲春2| 91aial.com中文字幕在线观看| 在线免费观看的www视频| 嫩草影院新地址| 丰满少妇做爰视频| 国产精品国产三级国产专区5o| 观看免费一级毛片| 国产伦理片在线播放av一区| 欧美日韩一区二区视频在线观看视频在线 | 欧美激情在线99| 国产精品一区www在线观看| 丝瓜视频免费看黄片| 成人欧美大片| av天堂中文字幕网| 只有这里有精品99| 亚洲av成人av| 偷拍熟女少妇极品色| 美女内射精品一级片tv| 99久久精品国产国产毛片| 一级黄片播放器| 国产高清三级在线| 国产毛片a区久久久久| 成人毛片a级毛片在线播放| 亚洲国产av新网站| 精品一区在线观看国产| 亚洲va在线va天堂va国产| 国产单亲对白刺激| 国产欧美日韩精品一区二区| 夫妻性生交免费视频一级片| av播播在线观看一区| 国产成年人精品一区二区| 久久6这里有精品| 久久人人爽人人片av| 欧美极品一区二区三区四区| 久久久久久久亚洲中文字幕| 看十八女毛片水多多多| 日韩一本色道免费dvd| 亚洲一级一片aⅴ在线观看| 国产高清有码在线观看视频| 精品欧美国产一区二区三| 精品久久久久久成人av| 国产又色又爽无遮挡免| 全区人妻精品视频| 日韩伦理黄色片| 午夜激情久久久久久久| 国模一区二区三区四区视频| 亚洲国产精品成人久久小说| 亚洲av不卡在线观看| 精品久久久噜噜| av福利片在线观看| 久久99蜜桃精品久久| 777米奇影视久久| 校园人妻丝袜中文字幕| 国产精品一区www在线观看| 亚洲美女搞黄在线观看| 久久久欧美国产精品| 日本-黄色视频高清免费观看| 国产成人91sexporn| 校园人妻丝袜中文字幕| 99久国产av精品国产电影| 99热这里只有精品一区| 美女被艹到高潮喷水动态| 肉色欧美久久久久久久蜜桃 | 看非洲黑人一级黄片| 免费大片18禁| 午夜免费激情av| 久久久久久久大尺度免费视频| 看黄色毛片网站| 国内精品美女久久久久久| 爱豆传媒免费全集在线观看| 观看美女的网站| 97精品久久久久久久久久精品| 夜夜爽夜夜爽视频| 亚洲成人av在线免费| 超碰97精品在线观看| 日本一本二区三区精品| 欧美区成人在线视频| 美女国产视频在线观看| 午夜老司机福利剧场| 直男gayav资源| .国产精品久久| 国内揄拍国产精品人妻在线| 一区二区三区四区激情视频| 国产69精品久久久久777片| 老女人水多毛片| 日本熟妇午夜| 国产一区二区三区av在线| 欧美另类一区| 人妻少妇偷人精品九色| 成人一区二区视频在线观看| 一个人看的www免费观看视频| 91av网一区二区| 欧美一区二区亚洲| 国产精品国产三级国产专区5o| 小蜜桃在线观看免费完整版高清| 午夜福利网站1000一区二区三区| 一级毛片 在线播放| 国产成人a∨麻豆精品| 亚洲av不卡在线观看| 黄色配什么色好看| 国产一区二区三区av在线| 日本免费a在线| 美女高潮的动态| 国产成人一区二区在线| 亚洲欧美精品自产自拍| 国产精品人妻久久久影院| 性色avwww在线观看| 国产在视频线在精品| 最近中文字幕2019免费版| 久久99热这里只有精品18| 六月丁香七月| 99久久人妻综合| 网址你懂的国产日韩在线| 久久久久精品久久久久真实原创| 女人十人毛片免费观看3o分钟| 亚洲国产成人一精品久久久| 一个人看视频在线观看www免费| 国产精品国产三级专区第一集| 激情 狠狠 欧美| 水蜜桃什么品种好| 小蜜桃在线观看免费完整版高清| av在线蜜桃| 亚洲18禁久久av| 中文乱码字字幕精品一区二区三区 | 赤兔流量卡办理| 国产亚洲5aaaaa淫片| 亚洲欧洲日产国产| 久久国内精品自在自线图片| 成人亚洲精品av一区二区| 国产白丝娇喘喷水9色精品| 日本wwww免费看| 毛片女人毛片| 久久久a久久爽久久v久久| 日本-黄色视频高清免费观看| 精品久久国产蜜桃| 韩国av在线不卡| 特级一级黄色大片| 自拍偷自拍亚洲精品老妇| 搡老妇女老女人老熟妇| 麻豆成人午夜福利视频| 久久久久久久国产电影| 国产淫语在线视频| www.av在线官网国产| 日本色播在线视频| 午夜亚洲福利在线播放| 丝瓜视频免费看黄片| 欧美最新免费一区二区三区| 久久久久精品久久久久真实原创| 卡戴珊不雅视频在线播放| 极品少妇高潮喷水抽搐| 肉色欧美久久久久久久蜜桃 | 中文精品一卡2卡3卡4更新| 在现免费观看毛片| 国产激情偷乱视频一区二区| 免费观看在线日韩| av又黄又爽大尺度在线免费看| 亚洲国产精品成人久久小说| 赤兔流量卡办理| av黄色大香蕉| 午夜福利成人在线免费观看| www.av在线官网国产| 看非洲黑人一级黄片| 六月丁香七月| 尤物成人国产欧美一区二区三区| 午夜福利在线观看免费完整高清在| 2018国产大陆天天弄谢| 最近的中文字幕免费完整| 免费av观看视频| 亚洲自拍偷在线| 在线观看免费高清a一片| 久久精品国产亚洲av天美| av福利片在线观看| 亚洲一级一片aⅴ在线观看| 国产精品嫩草影院av在线观看| 99热这里只有是精品50| 纵有疾风起免费观看全集完整版 | 18禁在线无遮挡免费观看视频| av黄色大香蕉| 肉色欧美久久久久久久蜜桃 | 国产精品精品国产色婷婷| 国产精品蜜桃在线观看| 99re6热这里在线精品视频| 亚洲精品日韩av片在线观看| 69av精品久久久久久| 国产成人a区在线观看| 国产黄色免费在线视频| 日本av手机在线免费观看| 高清在线视频一区二区三区| 国产一级毛片七仙女欲春2| 亚洲国产欧美人成| 天堂俺去俺来也www色官网 | 黄片wwwwww| 亚洲综合精品二区| 成人一区二区视频在线观看| 国产精品福利在线免费观看| 欧美激情在线99| 免费人成在线观看视频色| 黄片无遮挡物在线观看| 一级毛片我不卡| 日日摸夜夜添夜夜添av毛片| 精品一区二区免费观看| 男人和女人高潮做爰伦理| 国产成人午夜福利电影在线观看| 少妇被粗大猛烈的视频| av女优亚洲男人天堂| 国产亚洲精品av在线| 七月丁香在线播放| 午夜激情欧美在线| 成人高潮视频无遮挡免费网站| 亚洲伊人久久精品综合| 国产精品一区www在线观看| 国产毛片a区久久久久| 国产成人福利小说| 久久久久久久国产电影| 亚洲精品aⅴ在线观看| 嫩草影院精品99| 久久久久久久大尺度免费视频| 日本免费在线观看一区| 亚洲国产欧美在线一区| 男人爽女人下面视频在线观看| 欧美人与善性xxx| 日日撸夜夜添| 美女高潮的动态| 精品熟女少妇av免费看| 成人特级av手机在线观看| 精品久久久久久成人av| 久久久亚洲精品成人影院| 久久6这里有精品| 亚洲在线自拍视频| 亚洲乱码一区二区免费版| 久久韩国三级中文字幕| 在线观看人妻少妇| 天天躁夜夜躁狠狠久久av| 亚洲av一区综合| 国产色婷婷99| 亚洲精品日韩av片在线观看| 国产亚洲精品久久久com| 欧美激情国产日韩精品一区| 777米奇影视久久| 国产视频内射| 国产一区二区三区综合在线观看 | 国产亚洲精品久久久com| 亚洲av中文字字幕乱码综合| 婷婷色综合大香蕉| 老司机影院成人| av福利片在线观看| 偷拍熟女少妇极品色| 青春草视频在线免费观看| 亚洲精品日韩av片在线观看| 麻豆成人午夜福利视频| 国产熟女欧美一区二区| 免费看美女性在线毛片视频| 久久久久久久亚洲中文字幕| 亚洲欧美精品专区久久| 亚洲国产精品成人综合色| 国产色婷婷99| 欧美日韩精品成人综合77777| 99九九线精品视频在线观看视频| 成人二区视频| 精品熟女少妇av免费看| 欧美性感艳星| 国产一区有黄有色的免费视频 | 欧美一区二区亚洲| 别揉我奶头 嗯啊视频| 亚洲精品自拍成人| 日韩欧美精品免费久久| 人妻一区二区av| 亚洲国产欧美在线一区| 国产精品国产三级国产专区5o| 伦理电影大哥的女人| 亚洲av福利一区| 熟妇人妻不卡中文字幕| 蜜臀久久99精品久久宅男| 99久国产av精品国产电影| 久久鲁丝午夜福利片| 国产男人的电影天堂91| 亚洲国产成人一精品久久久| 国产乱人视频| 男插女下体视频免费在线播放| 国产探花极品一区二区| 99久久精品热视频| 啦啦啦啦在线视频资源| 边亲边吃奶的免费视频| 一级毛片我不卡| 十八禁网站网址无遮挡 | 九色成人免费人妻av| 丝瓜视频免费看黄片| 久久久亚洲精品成人影院| 禁无遮挡网站| 国产成人freesex在线| 有码 亚洲区| 久久久久久久久久久丰满| 精华霜和精华液先用哪个| 久久久久网色| 三级男女做爰猛烈吃奶摸视频| 91在线精品国自产拍蜜月| 国产激情偷乱视频一区二区| 免费不卡的大黄色大毛片视频在线观看 | 成人欧美大片| 99热网站在线观看| 极品教师在线视频| 午夜日本视频在线| 日本欧美国产在线视频| 国产白丝娇喘喷水9色精品| 久久久久久国产a免费观看| 久久久久久久久久久丰满| 最新中文字幕久久久久| 亚洲国产精品成人久久小说| 精品酒店卫生间| 亚洲av电影在线观看一区二区三区 | 欧美日韩国产mv在线观看视频 | 丰满少妇做爰视频| 一个人看视频在线观看www免费| 精品久久国产蜜桃| av在线老鸭窝| 国产成人91sexporn| 亚洲成人一二三区av| 免费观看av网站的网址| 欧美不卡视频在线免费观看| 男女啪啪激烈高潮av片| 午夜老司机福利剧场| 国产一区二区三区综合在线观看 | 久久精品久久久久久久性| 成人亚洲精品av一区二区| 高清午夜精品一区二区三区| 日韩成人av中文字幕在线观看| 波多野结衣巨乳人妻| 亚洲精品乱久久久久久| 日韩一区二区三区影片| av.在线天堂| 男女视频在线观看网站免费| 亚洲国产日韩欧美精品在线观看| 一边亲一边摸免费视频| 精品人妻一区二区三区麻豆| 美女主播在线视频| 国产中年淑女户外野战色| 天堂中文最新版在线下载 | 精品午夜福利在线看| 成年av动漫网址| 街头女战士在线观看网站| 国产人妻一区二区三区在| 美女脱内裤让男人舔精品视频| 国产精品久久久久久av不卡| 麻豆成人av视频| 国产视频首页在线观看| 黄色欧美视频在线观看| 国产精品久久久久久精品电影| 欧美成人午夜免费资源| 街头女战士在线观看网站| 51国产日韩欧美| 永久免费av网站大全| 2021少妇久久久久久久久久久| 色网站视频免费| 好男人视频免费观看在线| 国内精品一区二区在线观看| 国产综合精华液| 91精品一卡2卡3卡4卡| 久久人人爽人人爽人人片va| 久久久a久久爽久久v久久| 精品久久久久久电影网| 特大巨黑吊av在线直播| 神马国产精品三级电影在线观看| 在线免费十八禁| 一级毛片黄色毛片免费观看视频| 成人无遮挡网站| 黄色日韩在线| 91精品伊人久久大香线蕉| 99re6热这里在线精品视频| 我要看日韩黄色一级片| 国产伦精品一区二区三区四那| 美女黄网站色视频| 天堂影院成人在线观看| 日本wwww免费看| 内地一区二区视频在线| 欧美日韩精品成人综合77777| 欧美丝袜亚洲另类| 国产免费一级a男人的天堂| 亚洲国产精品成人综合色| 久久久久国产网址| 欧美日韩视频高清一区二区三区二| 秋霞伦理黄片| 少妇的逼好多水| 亚洲在线观看片| 五月玫瑰六月丁香| 国产成人a区在线观看| 免费电影在线观看免费观看| av线在线观看网站| 日本午夜av视频| 国产精品伦人一区二区| av在线观看视频网站免费| 99热全是精品| 国内少妇人妻偷人精品xxx网站| 99久国产av精品国产电影| 美女脱内裤让男人舔精品视频| 毛片一级片免费看久久久久| 日韩,欧美,国产一区二区三区| 视频中文字幕在线观看| 波多野结衣巨乳人妻| 成人特级av手机在线观看| 日韩视频在线欧美| 日韩制服骚丝袜av| 人妻系列 视频| 精品一区二区三区人妻视频| 亚洲av成人av| 久久久久性生活片| 白带黄色成豆腐渣| 国产一区亚洲一区在线观看| 免费看av在线观看网站| 成人亚洲精品一区在线观看 | 啦啦啦中文免费视频观看日本| 人人妻人人看人人澡| 精品久久久久久久久av| 中文字幕久久专区| 亚洲国产欧美人成| 人人妻人人看人人澡| 久久久久久久午夜电影| 亚洲人成网站在线观看播放| 狂野欧美激情性xxxx在线观看| 亚洲无线观看免费| 国产亚洲最大av| 伦精品一区二区三区| 观看美女的网站| 久久久久国产网址| 久久韩国三级中文字幕| av天堂中文字幕网| 亚洲va在线va天堂va国产| 国产有黄有色有爽视频| 美女cb高潮喷水在线观看| 亚洲欧美精品自产自拍| 精品一区二区三区视频在线| 国产乱人视频| 一级黄片播放器| 国产真实伦视频高清在线观看| 中文字幕亚洲精品专区| 亚洲国产av新网站| 国产亚洲av片在线观看秒播厂 | 2021少妇久久久久久久久久久| 中文天堂在线官网| 国产乱来视频区| 久久国产乱子免费精品| 亚洲久久久久久中文字幕| 亚洲伊人久久精品综合| 男女那种视频在线观看| 国产黄a三级三级三级人| 亚洲精品一二三| av在线播放精品| 美女脱内裤让男人舔精品视频| 一本久久精品| 人妻夜夜爽99麻豆av| 久久久久精品性色| 日产精品乱码卡一卡2卡三| 免费看日本二区| 菩萨蛮人人尽说江南好唐韦庄| 久久久久久久亚洲中文字幕| 国产黄a三级三级三级人| 看黄色毛片网站| 日日干狠狠操夜夜爽| .国产精品久久| 18禁裸乳无遮挡免费网站照片| 成年女人看的毛片在线观看| 精品一区二区三区视频在线| 午夜福利在线在线| 91精品国产九色| 男女下面进入的视频免费午夜| 直男gayav资源| 欧美精品国产亚洲| 亚洲精华国产精华液的使用体验| 啦啦啦中文免费视频观看日本| 精品国产露脸久久av麻豆 | 精品亚洲乱码少妇综合久久| xxx大片免费视频| 国产午夜精品一二区理论片| 欧美日韩视频高清一区二区三区二| h日本视频在线播放| 男插女下体视频免费在线播放| 男的添女的下面高潮视频| 天堂俺去俺来也www色官网 | 男女视频在线观看网站免费| 在线天堂最新版资源| 狂野欧美白嫩少妇大欣赏| 国产 一区精品| 日韩欧美国产在线观看| 国产黄a三级三级三级人| 国产伦在线观看视频一区| 天天躁日日操中文字幕|