vba在水利工程斷面圖中的應(yīng)用

VBA在水利工程斷面圖中的應(yīng)用簡介：鑒于在畫斷面圖時不需要設(shè)計、思考，而許多工程設(shè)計單位要浪費大量的人力資源。為了節(jié)省勞動力并提高效率，開發(fā)出一套畫圖程序，來滿足畫斷面圖的需要。關(guān)鍵字：VBAAutocad2000斷面圖水利工程設(shè)計

VBA是建立在Office97中的宏語言，現(xiàn)在Autocad2000版內(nèi)置了VBA開發(fā)工具。由于VBA具有VB的語言特點，語言結(jié)構(gòu)簡潔，適合工程技術(shù)人員開發(fā)。在河道整治、海塘建設(shè)、土地整理等大型項目的測量之后，都有一個十分繁瑣的過程：畫原始縱、橫斷面圖。原始的方法是在測量過后，按照測量的數(shù)據(jù)，把原始縱橫斷面畫在方格紙上，此種方法既慢，又不規(guī)范?，F(xiàn)在隨著計算機(jī)軟件的發(fā)展，要求測量單位把原始縱橫斷面圖用AUTOCAD表示出來。如果縱橫斷面圖少的話，還可以，如果有大量的原始縱橫斷面圖的話，在測量的同時，就需要有很多人來一筆一劃的畫。這種方法有很多缺點：1．

需要浪費大量的人力資源，效率低下。2．

容易出錯，長時間的重復(fù)同一件事情（制圖），很容易產(chǎn)生疲倦。3．

出錯后不易檢查修改。整個原始縱橫斷面圖畫好之后，要檢查每一個細(xì)節(jié)，費時費力?，F(xiàn)在，經(jīng)過我的努力，找到一種畫原始縱橫斷面圖的好方法。只要測量人員把測量的數(shù)據(jù)按照一定的格式輸入到數(shù)據(jù)文件（如txt文本、Excel、數(shù)據(jù)庫等），輕輕點擊一下鼠標(biāo)，整個工程的縱橫斷面圖就畫出來了。測量數(shù)據(jù)中有斷面號、距離、高程等要素，用AUTOLISP和VBA都可以編程讀數(shù)據(jù)、制圖。但是，AUTOLISP的語言不如VBA的直觀，運行效率也不如VBA的高；同時，AUTOLISP沒有很簡潔明了的界面，對有些不懂得計算機(jī)語言的人來說，在操作上有些困難。而VBA的界面完全可以達(dá)到智能化，即操作者只需簡單的電腦知識即可完成其操作。整個制圖過程分兩步，分別為獨立的模塊。第一步：創(chuàng)建數(shù)據(jù)庫。利用DAO創(chuàng)建一個數(shù)據(jù)庫，內(nèi)容包括：圖號、中心點的坐標(biāo)，各個測點的坐標(biāo)。在創(chuàng)建數(shù)據(jù)庫的時候，要首先知道整個工程一個斷面的測點最多有多少。數(shù)據(jù)庫的域只能多，不能少。因為數(shù)據(jù)庫一行就存放一個斷面的數(shù)據(jù)。如果數(shù)據(jù)庫的域少了，則放不下。數(shù)據(jù)庫的域多了沒關(guān)系，多的部分可以補(bǔ)零。下面介紹一下創(chuàng)建數(shù)據(jù)庫的思路與過程。使用者打開Autocad2000后，在“工具”菜單下“宏”選項下的“visualbasic編輯器”選項，打開此選項。在添加選項里添加一個新模塊。程序的流程圖如下：生成的數(shù)據(jù)文件可以用來存放一個工程的全部數(shù)據(jù)，也可以把整個工程的數(shù)據(jù)分成幾大塊，分別存放在不同的數(shù)據(jù)文件。數(shù)據(jù)庫如圖：掌樁號攻第一點距孕中康心的距離達(dá)坐標(biāo)個數(shù)俊x述坐題標(biāo)榮0射y斤坐乘標(biāo)喊0茫x禮坐鋒標(biāo)嶺1賽y慎坐唱標(biāo)慘1尚0冤0予0綿0呀0理0懇0“第一點距中心的距離”是為了使畫出的圖形的中心對齊。坐標(biāo)個數(shù)是輸入數(shù)據(jù)的點的個數(shù)。后面的坐標(biāo)從第一點開始，依次輸入。默認(rèn)值均為零。找到生成的數(shù)據(jù)文件，然后用Access打開，輸入數(shù)據(jù)。也可以在Excel里，按照數(shù)據(jù)庫同樣的格式把數(shù)據(jù)輸好了，再拷貝到Access數(shù)據(jù)庫里。其中的數(shù)據(jù)文件用的是DAO數(shù)據(jù)格式。數(shù)據(jù)庫的連接方式很多，有ODBC，DAO，ADO，OLEDB，RDO等數(shù)據(jù)庫連接方式。DAO是建立在MicrosoftJet引擎上的。在VBA中，用戶可通過DAO操作Access數(shù)據(jù)庫，十分方便。并且這種數(shù)據(jù)庫的穩(wěn)定性很好，而其他的數(shù)據(jù)庫格式在VBA中則沒有DAO的數(shù)據(jù)庫格式方便，可靠性也不如DAO，因為DAO在數(shù)據(jù)庫的應(yīng)用中已經(jīng)大量應(yīng)用，并且性能可靠。數(shù)據(jù)準(zhǔn)備好之后，保存數(shù)據(jù)文件。第二步：讀入數(shù)據(jù)及制圖。畫圖的過程中，先是讀入所有的數(shù)據(jù)，給各個變量賦值，然后再按照一定的先后順序畫。每個斷面畫好之后，變成一個模塊，模塊的插入點在斷面圖的左下角。等所有的圖形都畫好之后，再插入到圖框中。圖框的大小要先選好。在插入各個斷面塊體時，要控制插入點的位置，如圖：1區(qū)為已經(jīng)插入圖形的區(qū)域，2、3區(qū)為下一幅圖要放的區(qū)域，4為空白區(qū)域。先畫好圖框，然后x1=0;x2=圖框長;y1=0;y2=圖框高。插入第一個斷面圖，篩x1=世圖形長泊+a韻，半y1=典圖形翅1衛(wèi)高楚+a獲，話x2=x設(shè)2-a-攀x1,y散2=y2毛-a-y鹽1涌式中，擊a悔為圖形與魂圖形之間盆或圖形與凳圖框之間醒的距離，較可以根據(jù)閣圖框的大拐小調(diào)節(jié)。崖插入點在編相對圖框鋒左上角點者(馳a,-y役1)號處。插入狹第一個斷捐面圖之后齒，第二個層斷面圖在洋插入時，浸有幾種情滋況：培(風(fēng)1)賭圖形大小括小于公2種號區(qū)域，昂即第二幅柔圖形的長嘆<x2棒并且高網(wǎng)<y1,勢則插入，竭插入點在虜相對圖框巾左上角點監(jiān)(輔x1+a艇,-y1灑)逢處。題x1=x馬1+淚圖形長編+a,深y1=y謎1,X2姜=x2-芹x1,y朋2=y2幻。戀(砍2)熊圖形的高賽大于胡2脹號區(qū)域，莖即第二幅明圖形的長兇<x2阿，但高距>y1,比則零y1=善圖形鏡2跳高境+a,林插入點在榜相對圖框竹左上角點歉(僑x1+a痰,-y1虛)確處。歸X1=x意1+硬圖形長聚+a,y國1=庭圖形招2鞠高壟+a,僻X2=x醫(yī)2-x1蛾,y2=夏圖框高慶-y1盞。召(姐3)既圖形的長態(tài)大于瞇2療號區(qū)域，宰即第二幅君圖形的長碰>x2,喇高鏈<y2,鉆則放在垂3宵號區(qū)域，走x1=倘圖形震2貴長頁+a,y伯1=y1工+繡圖形褲2濤高洪+a隙插入點在徒相對圖框勝左上角點胡(盈a,-y納1)招x2=配圖框長行-max絹(億圖形對1煉長紗+a,廈圖形飲2斷長參+a)-隱a傾y2=謀圖框高岸-y1駁式中鈔max唇max(辮圖形怕1并長侮+a,買圖形賽2位長乘+a)章為取兩個喉值中的最里大值。煮(涉4)紐圖形太大菌，在樹2私、途3催區(qū)域都放潛不下，則檔x1鐮、絡(luò)x2玩、刺y1淹、惰y2控恢復(fù)原值動，另畫一根個圖框，攤按照剛才流的方法，舌依次插入謠圖形。診圖形畫好享之后，保丑存圖形，泄然后仔細(xì)饅查看，如槳果有問題斯，要核對臨數(shù)據(jù)文件瘦里的數(shù)據(jù)夕。數(shù)據(jù)確濕定準(zhǔn)確無戚誤后，重脂新運行第漫二步，生拐成圖形文侄件，保存白時覆蓋上呈一次的錯劫誤的文件集。然后就橋可以出圖廣。候此種方法撞有以下優(yōu)輔點：踏(慚1)

證整個過程膏簡潔，不佩需要測量井人員花大季量的時間液描繪圖紙指。不論工痰程的大小堤，測量數(shù)猶據(jù)的多少競，一個人采即可完成許。節(jié)約了嚼大量的寶噴貴的勞動臣力資源。館并且工程廈量越大，社效果越明潔顯。笨(的2)

殊

嫌

頸

然由于過程嘩簡單，不傳容易出錯霉。害(貼3)

粒

小

陣

宋便于檢查脆、修改。站測量人員輛在往數(shù)據(jù)渣文件輸入鋒數(shù)據(jù)后，逗只要校核校一下原始噴數(shù)據(jù)，即崖可確認(rèn)畫圓出的圖形輸準(zhǔn)確無誤矮。才(群4)

郵

卵

叼

昨為以后的鎮(zhèn)發(fā)