excelvba開發(fā)渠道縱斷面圖輔助繪圖程序?qū)嵺`與探討

1、ExcelVBA開發(fā)渠道縱斷面圖輔助繪圖程序?qū)嵺`與探討.txt如果中了一千萬，我就去買30套房子租給別人，每天都去收一次房租。哇咔咔~~充實(shí)騎白馬的不一定是王子，可能是唐僧；帶翅膀的也不一定是天使，有時(shí)候是鳥人。本文由pingtou168貢獻(xiàn)pdf文檔可能在WAP端瀏覽體驗(yàn)不佳。建議您優(yōu)先選擇TXT，或下載源文件到本機(jī)查看。新疆農(nóng)業(yè)大學(xué)學(xué)報(bào)２００９，３２（１）：８９～９２ＪｏｕｒｎａｌｏｆＸｉｎｊｉａｎｇＡｇｒｉｃｕｌｔｕｒａｌＵｎｉｖ

2、ｅｒｓｉｔｙ文章編號(hào)：１００７—８６１４（２００９）０１—００８９—０４ＥｘｃｅｌＶＢＡ開發(fā)渠道縱斷面圖輔助繪圖程序?qū)嵺`與探討董文明１，馬英杰１，崔龍１，孔德庸１０００９４）（１新疆農(nóng)業(yè)大學(xué)水利與土木工程學(xué)院，烏魯木齊８３００５２；２中國農(nóng)業(yè)大學(xué)資源與環(huán)境學(xué)院。北京摘要：使用Ｅｘｃｅｌ的ＶＢＡ編程功能，將設(shè)計(jì)好的數(shù)據(jù)自動(dòng)的輸出為ＡｕｔｏＣＡＤ的命令組文件（Ｓｃｒｉｐｔ），在Ａｕ—ｔｏＣＡＤ里運(yùn)行該命令組文件，即口ｒ快速的繪制渠道縱斷面圖

3、。使用該程序時(shí)還可根據(jù)各項(xiàng)目的特點(diǎn)修改局部參數(shù)和預(yù)設(shè)圖框內(nèi)容，直接批量生成施工圖極大程度上減化了渠道設(shè)計(jì)人員的繪圖工作。關(guān)鍵詞：Ｅｘｃｅｌ；ＡｕｔｏＣＡＤ；ＶＢＡ編程；渠道縱斷面圖繪圖；傳統(tǒng)繪圖方法文獻(xiàn)標(biāo)識(shí)碼：Ａ中圖分類號(hào)：ＴＶ２２２１ＰｒａｃｔｉｃｅａｎｄＤｉｓｃｕｓｓｉｏｎｏｎＡｕｘｉｌｉａｒｙＤｒａｗｉｎｇＲｏｕｔｉｎｅｏｆＥｘｃｅｌＶＢＡＤｅｖｅｌｏｐｍｅｎｔＣｈａｎｎｅｌＰｒｏｆｉｌｅＤｉａｇｒａｍＤＯＮＧ（１Ｃｏｌｌｅｇｅｏ

4、ｆＷｅｎ—ｍｉｎ９１，ＭＡＹｉｎ－ｊｉｅｌ，ＣＵＩＬｏｎ９１，ＫＯＮＧＤｅ—ｙｏｎ９２ＷａｔｅｒＣｏｎｓｅｒｖａｎｃｙａｎｄＣｉｖｉｌＥｎｇｉｎｅｅｒｉｎｇ，ＸｉｎｊｉａｎｇＡｇｒｉｃｕｌｔｕｒａｌＵｎｉｖｅｒｓｉｔｙ，Ｕｒｕｍｑｉ８３００５２；２ＣｏｌｌｅｇｅｏｆＲｅｓｏｕｒｃｅｓａｎｄＥｎｖｉｒｏｎｍｅｎｔＳｃｉｅｎｃｅ，ＣｈｉｎａＡｇｒｉｃｕｌｔｕｒａｌＵｎｉｖｅｒｓｉｔｙ，Ｂｅｉｊｉｎｇ１０００９４）Ｉｎｔｈｉｓｐａｐｅｒ，ｉｔ

5、ｉｎｔｒｏｄｕｃｅｓｆｉｎｉｓｈｃａｎＡｂｓｔｒａｃｔ：ａｎｉｍｐｒｏｖｅｄｗａｙｔｏｔｏ者，大部分利用Ｅｘｃｅｌ表格處理斷面數(shù)據(jù)（地面高程、渠底高程等），但將數(shù)據(jù)錄入到ＡｕｔｏＣＡＤ中繪制斷面圖卻產(chǎn)生了一定的困難，采用常規(guī)的手工錄入數(shù)據(jù)，繪制各條設(shè)計(jì)線的方法，其效率和正確率都很低，一直以來，不收稿日期：２００８—１０一１２基金項(xiàng)目：新疆水利水電重點(diǎn)學(xué)科基金項(xiàng)目通訊作者：馬英杰Ｅ－ｍａｉｌ：ｄｗｍ＠ｘｊａｕｅｄｕｃｎ少設(shè)計(jì)者在Ｅｘｃｅｌ

6、和ＣＡＤ之間尋求著快捷、便利的方法，諸如：復(fù)制、粘貼或利用手工編制ＣＡＤ命令組文件，雖然取得了一定的進(jìn)展，但工序煩瑣，人工參與較多，當(dāng)然，目前也有不少相關(guān)軟件，但由于價(jià)格偏高或有的需要程序讀取和數(shù)據(jù)轉(zhuǎn)換，成圖效率低等特點(diǎn)，并不能真正意義上給廣大的渠道設(shè)計(jì)者萬方數(shù)據(jù)９０新疆農(nóng)業(yè)大學(xué)學(xué)報(bào)提供便利。筆者在長期實(shí)踐工作中利用Ｅｘｃｅｌ的ＶＢＡ編程功能，將設(shè)計(jì)好的數(shù)據(jù)自動(dòng)輸出為Ａｕｔｏ—ＣＡＤ的命令組文件（Ｓｃｒｉｐｔ），結(jié)合ＡｕｔｏＣＡＤ內(nèi)部的

7、命令組文件。開發(fā)出一套可快速繪制渠道縱斷面圖的渠道輔助繪圖程序。該程序還可根據(jù)各項(xiàng)目的特點(diǎn)修改局部參數(shù)和預(yù)設(shè)圖框內(nèi)容，直接批量生成施工圖。Ｓｈｅｅｔｌ中第ｉ行、第ｊ列單元格數(shù)值２程序編制的實(shí)現(xiàn)過程在Ｃ盤（也可其它盤符，本研究以Ｃ盤編制程序）建立“Ｃａｎａｌ”子目錄，后續(xù)的ＣＡＤ圖、Ｅｘｃｅｌ表格、程序生成文件均在此目錄下。２１渠道設(shè)計(jì)的Ｅｘｃｅｌ表格建立在Ｃａｎａｌ目錄下新建名為“渠道繪圖”的Ｅｘｃｅｌ１程序編制的基本原理程序編制的基本

8、原理主要是通過ＥｘｃｅｌＶＢＡ編制程序讀?。牛悖澹烨涝O(shè)計(jì)數(shù)據(jù)并生成ＡｕｔｏＣＡＤ可以執(zhí)行的命令組文件（Ｓｃｒｉｐｔ）。命令組文件也稱腳本研究件，是ＣＡＤ中讀人并能鶯復(fù)執(zhí)行ＣＡＤ命令的文件（以下簡稱ｓｃｒ文件），相當(dāng)于Ｄｏｓ系統(tǒng)下的批處理文件［１］。如建立一Ｔｅｓｔｓｃｒ文件：ＴｅｘｔＭｃ１０，１０３５Ｌｉｎｅ１５，０１５，２０９００＋０００表，默認(rèn)Ｓｈｅｅｔｌ為當(dāng)前活動(dòng)表格，其第一行的１～８列分別為“填高”、“挖深”、“設(shè)計(jì)渠頂高程

9、”、“設(shè)計(jì)水面高程”、“設(shè)計(jì)渠底高程”、“設(shè)計(jì)開挖高程”、“原地面高程”和“樁號(hào)”，設(shè)計(jì)數(shù)據(jù)從第二行開始，樁號(hào)使用“ｘ＋ＸＸＸ”的格式。在表格的右邊空白處，從“視圖”一“工具欄”一“控件工具箱”插入３個(gè)文本框控件、３個(gè)標(biāo)簽控件和一個(gè)命令按鈕控件，使用標(biāo)簽控件從上至下分別標(biāo)志三文本框Ｔｅｘｔｂｏｘｌ、Ｔｅｘｔｂｏｘｌ和Ｔｅｘｔｂｏｘ３為“橫向比例”、“縱向比例”和“生成新圖圖名”；命令按鈕Ｃａｐｔｉｏｎ內(nèi)容為“生成繪圖文件”。２２實(shí)現(xiàn)的流