[分享]圖紙小精靈Ver1.0-VBA版本

由 **林宗漢** 2018-03-31, 9:57 am

前言：

有鑑於大部分前輩的圖都建立於模型空間(ModelSpace)之下，每次畫圖完畢發現少(多)某一張圖，當要插入或者是刪除時，就會需要在圖框內的頁次欄位進行更動，這點可以說是相當麻煩(尤其是對於超過30頁的圖檔來說)，因而引發筆者寫這篇Side Project供參考使用。

使用方法：

1.程式介面建立於VBA之下，為一個dvb檔。

2.請檢查頁次項目部分為：第OO頁共OO頁

3.請檢查圖框圈選線是否為聚合線(連續線段)：偵測(LowerLeftPoint,UpperRightPoint)使用。

4.請檢查圖框圈選線所處圖層是否為 ( 出圖圖框 )：過濾圖框項目。

5.執行VBA巨集→點選第一個module(ShowUserForm)→執行。

[分享]圖紙小精靈Ver1.0-VBA版本 Uyeau-11

圖框圈選線如上圖

按鈕介紹：

1.創造圖框：若需要創建一連串的圖框們，可先在Excel檔中定義圖框內容後批次輸出。

[分享]圖紙小精靈Ver1.0-VBA版本 Uyeau-13

2.新增圖紙：框選所有圖框，輸入要插入的頁次，會把所有框選起來的頁次及>=插入頁次的部分批次增加。

3.去除圖紙：框選所有圖框，輸入要刪除的頁次，會把所有框選起來的頁次及>=插入頁次的部分批次減少。

4.批次列印：必須先設定列印配置，請參考AutoCAD顧問論壇上的批次出圖即可

[分享]圖紙小精靈Ver1.0-VBA版本 Uyeau-12

圖三、列印配置

注意事項：先選擇要輸出的印表機→出圖內容改為視窗(要求圈選時先隨意圈選)→置中出圖→比例為1:1→圖面方位(橫式)→如有需要再更改出圖型式表→套用至配置。

檔案下載：
本機端執行環境 AutoCAD2016 x64，Excel2016 x64，下載點：

PS:每家公司圖框都不太一樣，但這部分可以去原始碼中改成自己喜歡的，程式點開檢視程式碼有註解在裡面