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

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

林宗漢 寫到:配置出圖在建立視埠之後，需要點進去模型去移動到定位之後進行調整比例，彈有時候都會歪歪的。
非常感謝蘋果爸無私提供的 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註解掉。



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