Hank's VBA 學習歷程

一般使用GIS進行點位套疊時，引入資料可以是txt或csv之類的文字檔案，因筆者所使用的 WebGIS 所支援的檔案為CSV檔。 點位資料只需要X,Y資料即可，而針對點資料進行處理的過程不外乎就是平移及旋轉，更高深點的會有對齊(Align)的功能。 圖一、繪圖資料庫指令位置。 圖二、依據現地點資料進行套疊(僅供參考) 筆者開發的 Hank's VBA繪圖資料庫 恰好有需要進行點資料套疊地籍圖的過程，原先進行專案的過程都在CAD中進行一系列的套疊，但總有些目標範圍是沒有地籍圖的DXF檔，因此這時候只能夠參考WebGIS嫁接農委會所提供的地籍圖(僅供參考)及農航所提供的航照圖進行，此處須注意的是，嫁接的地籍圖因需要使圖面長的更為契合，通常都會進行編修，而這樣針對破圖區就只能僅供參考，除非能有更大量的點資料來佐證此時所測出的點資料乃趨近於真實座標。 以下介紹上述提到專案中相關的功能: 1.點位微調>>平移: a.輸入X軸位移距離(向右為+) b.輸入Y軸位移距離(向上為+) 2.點位微調>>旋轉: a.輸入點序號(基準點) b.輸入角度(順時針為+) 3.點位微調>>對齊: a.輸入第一點點序號(基準點) b.輸入第一點目標X c.輸入第一點目標Y d.輸入第二點點序號 e.輸入第二點目標X f.輸入第二點目標Y 以上即可達成有關點資料一系列平移、旋轉、對齊等相關步驟。 4.輸出CSV: 輸入CSV檔的名稱後放置於某一位置，進WebGIS中>>座標>>選擇檔案>>全部定位。 圖三、WebGIS套疊指令位置。 P.S: Hank'sVBA繪圖資料庫-0430.xls才有支援"對齊"的方法。

前言: 1.透過Google Earth上點選路徑工具，創造一指定路徑後生成.kml檔案 2.將kml檔案丟入TCX converter中選取update height，取得相對應的Alt(高程)後匯出成CSV檔 3.將CSV檔中的LAT與LONG資料丟入WGS84_TWD97.xls即可取得TWD97的GoogleEarth點 請先安裝必要工具: Google earth(PC版) TCX converter WGS84_TWD97.xls Step1:開啟GoogleEarth 在Google Earth中選取好目標範圍，點選"新增路徑"，塗滿塗好你要的目標範圍後，點選確定。於左邊的路徑名稱點選"將位置另存為..."，把檔案存成kml 圖一、新增路徑停滯視窗 圖二、目標範圍塗的越密資料越精緻 圖三、另存為kml Step2:開啟TCX converter 這是一個可以將GoogleEarth的kml資料透過二次覆核的方式將ALT引入至路徑點資料中，因原本的路徑資料屬於平面資料是不含高程的， 匯出時點選"NO"以","進行分隔 。 圖四、開啟kml檔 圖五、點選Track Aanpassen>>Update Hoogte 圖六、點選Expoteer>>CSV Bestand Opslaan Step3:開啟WGS84_TWD97.xls 感謝 Victor的程式設計遇上小提琴 ，他所參考的公式為Steve Dutch學者的文章，部落格中改寫他的python原始碼為VBA使用而成，同時也感謝 ola的家 將python原始碼改寫為C#使用。 有幸借助兩位的力量，成功的將經緯度(WGS84)轉換成TWD97，爾後將點資料匯入Civil3D就能產生精細的地形了!!並經測試，已經可以從原本的誤差2M多變的非常小，堪用度提高許多。 圖七、CSV檔以Excel打開，因原本有,分隔，它會自行切開。 圖八、貼上於Main工作表中的相對應位置 圖九、點選CONVERT DATA取得twd97點資料

圖文並茂簡報檔 一份簡易的疏濬CAD檔案應該要包含以下三種內容 a.標準斷面圖(含水理因素表) b.縱斷面圖 c.橫斷面圖 此次的Side Project就是為了簡化以上的繪製過程，將所有的資料都集合在Excel的各個頁籤中，只需要點選 "標準斷面"、"橫斷面"、"縱斷面"、"匯入CAD"(表格使用)，即可將所有應該要有的資料給繪製到CAD檔上面。 整體步驟大致上為： 1.填寫工作表("渠道Type") 2.填寫工作表("標準斷面"):點選按鈕"標準斷面"、"匯入CAD" 3.填寫工作表("橫斷面"):點選按鈕"橫斷面"、"土方報告" 4.填寫工作表("縱斷面"):點選按鈕"縱斷面圖" 5.參考視埠出圖之  配置分圖工具  或者模型出圖之  圖框小精靈  進行後續出圖 Step1.填寫工作表("渠道Type") 首先需要建立各種渠道斷面的標準尺寸(單位為公尺)，目前提供的有U型溝、內面工兩種資料表，左邊的Type排序隨意(我都用ABCD去排)，只要標準斷面對應的到就可以了 以下範例介紹：A.砌石工、B.U型溝、C.內面工、D.土渠、E.有底的砌石工。 Step2.填寫工作表("標準斷面") :點選按鈕"標準斷面"、"匯入CAD" 依照樁號起與樁號迄的順序指定其渠道Type為何，並填寫水理因素表，待日後使用。 填寫完成後點選按鈕"標準斷面" 輸入樁號標題與渠底中心的距離(預設為2500),unit:mm 輸入X位移(預設為5000),unit:mm 輸入Y位移(預設為-4000),unit:mm 輸入當產生渠道斷面幾次後移往下一X位移(預設為4) 移動至CAD點選第一個斷面的渠底中心點 框選要引入CAD的表格範圍，使其為正在使用中 點選按鈕"匯入CAD" 移動至