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給我索取哦

前言： 有鑑於大部分前輩的圖都建立於模型空間(ModelSpace)之下，每次畫圖完畢發現少(多)某一張圖，當要插入或者是刪除時，就會需要在圖框內的頁次欄位進行更動，這點可以說是相當麻煩(尤其是對於超過30頁的圖檔來說)，因而引發筆者寫這篇Side Project供參考使用。 Demo影片： 使用方法： 1.程式介面建立於VBA之下，為一個dvb檔，有關如何開啟請參考( 如何使用dvb檔 )。 2.請檢查頁次項目部分為： 第OO頁共OO頁。 3.請檢查圖框圈選線是否為聚合線(連續線段)：偵測(LowerLeftPoint,UpperRightPoint)使用。 4.請檢查圖框圈選線所處圖層是否為 ( 出圖圖框 )：過濾圖框項目。 5.執行VBA巨集→點選第一個module(ShowUserForm)→執行。 圖一、紅色部分為圖框圈選線。 按鈕介紹： 1.創造圖框：若需要創建一連串的圖框們，可先在Excel檔中定義圖框內容後批次輸出。 圖二、圖框內容定義 2.新增圖紙：框選所有圖框，輸入要插入的頁次，會把所有框選起來的頁次及>=插入頁次的                           部分批次增加。 3.去除圖紙：框選所有圖框，輸入要刪除的頁次，會把所有框選起來的頁次及>=插入頁次的                           部分批次減少。 4.批次列印：必須先設定列印配置，請參考 ( AutoCAD顧問-批次出圖  ) 圖三、列印配置 注意事項 ：先選擇要輸出的印表機→出圖內容改為視窗(要求圈選時先隨意圈選)→置中出圖→比例為1:1→圖面方位(橫式)→如有需要再更改出圖型式表→套用至配置。 檔案下載： 本機端執行環境 AutoCAD2016 x64，Excel2016 x64，下載點：  Frame.dvb 原始碼： UserFrom比較沒...