水利工程斷面圖的應用論文

VBA是建立在Office97中的宏語言，現在Autocad2000版內置了VBA開發工具。由於VBA具有VB的語言特點，語言結構簡潔，適合工程技術人員開發。

在河道整治、海塘建設、土地整理等大型項目的測量之後，都有一個十分繁瑣的過程：畫原始縱、橫斷面圖。原始的方法是在測量過後，按照測量的數據，把原始縱橫斷面畫在方格紙上，此種方法既慢，又不規範。現在隨着計算機軟件的發展，要求測量單位把原始縱橫斷面圖用AUTOCAD表示出來。如果縱橫斷面圖少的話，還可以，如果有大量的原始縱橫斷面圖的話，在測量的同時，就需要有很多人來一筆一劃的畫。這種方法有很多缺點：

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

2．容易出錯，長時間的重複同一件事情（製圖），很容易產生疲倦。

3．出錯後不易檢查修改。整個原始縱橫斷面圖畫好之後，要檢查每一個細節，費時費力。

現在，經過我的努力，找到一種畫原始縱橫斷面圖的好方法。只要測量人員把測量的數據按照一定的格式輸入到數據檔案（如txt文字、Excel、數據庫等），輕輕點擊一下鼠標，整個工程的縱橫斷面圖就畫出來了。

測量數據中有斷面號、距離、高程等要素，用AUTOLISP和VBA都可以編程讀數據、製圖。但是，AUTOLISP的語言不如VBA的直觀，執行效率也不如VBA的高；同時，AUTOLISP沒有很簡潔明瞭的介面，對有些不懂得計算機語言的人來說，在操作上有些困難。而VBA的介面完全可以達到智能化，即操作者只需簡單的電腦知識即可完成其操作。

整個製圖過程分兩步，分別爲獨立的模組。第一步：創建數據庫。利用DAO創建一個數據庫，內容包括：圖號、中心點的座標，各個測點的座標。在創建數據庫的時候，要首先知道整個工程一個斷面的測點最多有多少。數據庫的域只能多，不能少。因爲數據庫一行就存放一個斷面的數據。如果數據庫的域少了，則放不下。數據庫的域多了沒關係，多的部分可以補零。下面介紹一下創建數據庫的思路與過程。

使用者開啟Autocad2000後，在“工具”選單下“宏”選項下的“visualbasic編輯器”選項，開啟此選項。在添加選項裏添加一個新模組。程序的流程圖如下：

生成的數據檔案可以用來存放一個工程的全部數據，也可以把整個工程的數據分成幾大塊，分別存放在不同的數據檔案。數據庫如圖：

樁號

第一點距中

心的距離

座標個數

x座標0

y座標0

x座標1

y座標1

“第一點距中心的距離”是爲了使畫出的圖形的中心對齊。座標個數是輸入數據的點的個數。後面的座標從第一點開始，依次輸入。默認值均爲零。

找到生成的數據檔案，然後用Access開啟，輸入數據。也可以在Excel裏，按照數據庫同樣的格式把數據輸好了，再拷貝到Access數據庫裏。其中的數據檔案用的是DAO數據格式。數據庫的連接方式很多，有ODBC，DAO，ADO，OLEDB，RDO等數據庫連接方式。DAO是建立在MicrosoftJet引擎上的。在VBA中，用戶可透過DAO操作Access數據庫，十分方便。並且這種數據庫的穩定性很好，而其他的數據庫格式在VBA中則沒有DAO的數據庫格式方便，可靠性也不如DAO，因爲DAO在數據庫的應用中已經大量應用，並且性能可靠。

數據準備好之後，儲存數據檔案。

第二步：讀入數據及製圖。

畫圖的過程中，先是讀入所有的數據，給各個變量賦值，然後再按照一定的先後順序畫。每個斷面畫好之後，變成一個模組，模組的插入點在斷面圖的左下角。等所有的圖形都畫好之後，再插入到圖框中。圖框的大小要先選好。在插入各個斷面塊體時，要控制插入點的位置，如圖：1區爲已經插入圖形的區域，2、3區爲下一幅圖要放的區域，4爲空白區域。先畫好圖框，然後x1=0;x2=圖框長;y1=0;y2=圖框高。

插入第一個斷面圖，

x1=圖形長+a，y1=圖形1高+a，

x2=x2-a-x1,y2=y2-a-y1

式中，a爲圖形與圖形之間或圖形與圖框之間的距離，可以根據圖框的`大小調節。插入點在相對圖框左上角點(a,-y1)處。插入第一個斷面圖之後，第二個斷面圖在插入時，有幾種情況：

(1)圖形大小小於2號區域，即第二幅圖形的長<x2並且高<y1,則插入，插入點在相對圖框左上角點(x1+a,-y1)處。x1=x1+圖形長+a,y1=y1,X2=x2-x1,y2=y2。

(2)圖形的高大於2號區域，即第二幅圖形的長y1,則y1=圖形2高+a,插入點在相對圖框左上角點(x1+a,-y1)處。X1=x1+圖形長+a,y1=圖形2高+a,X2=x2-x1,y2=圖框高-y1。

(3)圖形的長大於2號區域，即第二幅圖形的長>x2,高<y2,則放在3號區域，

x1=圖形2長+a,y1=y1+圖形2高+a

插入點在相對圖框左上角點(a,-y1)

x2=圖框長-max(圖形1長+a,圖形2長+a)-a

y2=圖框高-y1

式中maxmax(圖形1長+a,圖形2長+a)爲取兩個值中的最大值。

(4)圖形太大，在2、3區域都放不下，則x1、x2、y1、y2恢復原值，另畫一個圖框，按照剛纔的方法，依次插入圖形。

圖形畫好之後，儲存圖形，然後仔細檢視，如果有問題，要覈對數據檔案裏的數據。數據確定準確無誤後，重新執行第二步，生成圖形檔案，儲存時覆蓋上一次的錯誤的檔案。然後就可以出圖。

此種方法有以下優點：

(1)整個過程簡潔，不需要測量人員花大量的時間描繪圖紙。不論工程的大小，測量數據的多少，一個人即可完成。節約了大量的寶貴的勞動力資源。並且工程量越大，效果越明顯。

(2)由於過程簡單，不容易出錯。

(3)便於檢查、修改。測量人員在往數據檔案輸入數據後，只要校覈一下原始數據，即可確認畫出的圖形準確無誤。

(4)爲以後的發展奠定基礎。以後的測量，如果是用全測儀，測量數據可以儲存在磁盤裏，只要往計算機裏拷貝一下，就可出圖，工作效率極度提高。即便不用全測儀，也可用掃描儀把數據檔案掃描下來，然後生成數據檔案，免去了輸入數據的麻煩。工作效率依然很高，並且不易出錯。