Hank's VBA 學習歷程

出圖是一門很大的學問。 常見出圖方式有： 1.模型空間出圖 2.配置空間出圖 1.模型空間出圖，在AutoCAD顧問裡頭已經有這類的文件可參酌→  AutoCAD顧問-批次打印     有關模型空間出圖的總頁數與頁次等圖框參數，請參考  圖紙小精靈Ver1.0  或  功能變數 2.配置空間出圖，可以直接選擇使用批次出圖的工具進行出圖，這項工具已經是相當的便利，比較麻煩的部分是，當你的圖框需要切割很整齊的時候，要使用這個方法來對齊  配置分圖 因此，又引發我撰寫這次的side project來對配置分圖的這部分再做自動追蹤圖框跟比例。 DEMO影片如： 使用步驟： 1.開啟活頁簿，名稱為：圖說.xls。 2.打開AutoCAD後載入 Command.lsp 及 Main_UI(new).dvb。 3.指令：MSVPORT 建立要追蹤的視埠範圍。 4.指令：MSLAYOUT 框選所有視埠範圍。 操作程式碼如： Sub MSLayout() Dim la As New clsLayout la.X = 0.8 la.Y = 5 la.MyConfigName = "DWG to PDF.pc3" la.MyCanonicalMediaName = "ISO_expand_A3_(297.00_x_420.00_MM)" la.MyStyleSheet = "Monochrome.ctb" la.CollectMSLayout la.ClearVport la.SortLayout la.FillInLayout MsgBox "已經處理完成!!請點選批次出圖" End Sub Sub MSVport() Dim la As New clsLayout la.CreateMSVport End Sub 有需要的人歡迎寄mail給我索取哦

前言 本篇文章主要介紹如何取得全站儀的基本點位資料後的處理，坊間已經有許多的套裝軟體支援這部分的應用，諸如：Civil 3D、西谷資訊...等，僅供參酌使用。 與一般的套裝軟體不同，這次的Side Project可以同時支援AutoCAD與ZWCAD，並且由Excel97-2003的xls檔為主要驅動介面，透過引用AutoCAD與ZWCAD的library來操作。 主要功能包括：展點、取點、連線、定線、定樁、橫斷面、縱斷面，進行一系列的全測站點位資料加值應用，以下將進行相關內容的介紹。 圖文並茂簡報檔： ( 點我下載 ) 大綱 展點：  於工作表('總表')中的資料表PNEZ CD直接展開至CAD檔。 P.S : WebGIS展點方法 取點： 與地籍圖套疊完畢後，點位經過旋轉校正，再由CAD檔轉移至Excel總表的過程。 連線： 依據CD碼的分類透過3種方式排序數據以及3種Feature的安排對聚合線進行處理。 定線： 採用雙邊的中心點連線，對於彎曲程度較高的中心線設定流心連線距離來取得中心線。 P.S: 定線定樁簡介 定樁： 指定中心線後，可以自行決定下一段距離後設定橫斷面樁，解決原先的DIV指令無法進行特定距離分段的缺點。 橫斷面： 透過取樣橫斷面樁與圖面特徵線的交點進行內插，並且可以經由假設線段的操作方式節省現地測量作業的時間。 縱斷面： 為符合水利會機關的範本，可以決定顯示於表格與不顯示於表格的內容，並且可以決定輸入的X軸與Y軸比例。 P.S: 縱斷面自動繪圖