[分享]批次配置分圖工具(VBA)

主題回顧 :

配置出圖在建立視埠之後，需要點進去模型去移動到定位之後進行調整比例，彈有時候都會歪歪的。
非常感謝蘋果爸無私提供的 Zoom>>C>>找兩中心點>>端點>>端點的移動方式，讓配置的視埠可以相當準確對正。

我後來將這套追圖的流程轉移到VBA上，變成可以批次自動追蹤視埠範圍在模型空間的位置，並安排入相對應的配置框內。

小技巧：可以在系統設定的時候將視埠隨著配置生成自動新增的選項取消勾選。

使用步驟為：

1.開啟活頁簿，名稱為：圖說.xls。 (需要使用我的Excel檔的欄位才行...)



2.打開AutoCAD後載入 Command.lsp 及PaperSapceLayout.dvb。

3.指令：MSVPORT 建立要追蹤的視埠範圍。

將新建立的視埠範圍移動到模型空間內任何你要放置的地方，如需放大，必須框跟文字一起選後同時放大倍數(指令：Scale)

4.指令：MSLAYOUT 框選所有視埠範圍。

操作影片如下：



PS1.如果需要調整圖框大小跟文字高度的話 在 clsLayout物件類別模組裡面的PlotFrameInner有註解可以進行調整。



PS2.如果不需要產生新圖框的話 在clsLayout物件類別模組裡面的FillInLayout可以把CreateFrame_Main註解掉。



相關檔案連結如下（*回覆可見*）：

謝謝分享---

感謝分享，看起來會節省非常多時間

讚!

讚，真的是快速的出圖方式。

謝謝分享

感謝版主及大大分享。。。。

感謝版主，抓緊研究

test, thank you

感謝無私分享

很棒的工具，剛好有需要，感謝分享
也感謝論壇，總是能讓我發現新東西
符合我的需求

ECGO 寫到:不好意思我是新手，想請問執行會遇到下面問題該如何處理呢?

我也遇到相同狀況，但是在嘗試錯誤的情況下發現，可能是圖名有重複，所以導致這錯誤，
將圖名修正後，應該即可正常使用。

以上是我遇到的狀況，並不代表每個人都適用。

感謝版大無私的分享，這樣可以節省很多出圖時間。

正在頭痛每次出圖都要重複動作，趕緊來試看看，謝謝分享

感謝熱心分享

感謝無私得分享

感謝分享 趕快來研究一下 經驗+1