AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
[分享]批次配置分圖工具(VBA) - 頁 2 2020-211 [分享]批次配置分圖工具(VBA) - 頁 2 Oooo-110 [分享]批次配置分圖工具(VBA) - 頁 2 Oo-2-110 [分享]批次配置分圖工具(VBA) - 頁 2 Ziao1510 [分享]批次配置分圖工具(VBA) - 頁 2 BPl3tjj [分享]批次配置分圖工具(VBA) - 頁 2 Uos15010

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

2頁(共2頁) 上一頁  1, 2

向下

[分享]批次配置分圖工具(VBA) - 頁 2 Empty [分享]批次配置分圖工具(VBA)

發表 由 林宗漢 于 2018-08-28, 22:39

主題回顧 :

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

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

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

使用步驟為:

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

[分享]批次配置分圖工具(VBA) - 頁 2 Su10

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

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

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

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

操作影片如下:



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

[分享]批次配置分圖工具(VBA) - 頁 2 Su210

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

[分享]批次配置分圖工具(VBA) - 頁 2 Su410

相關檔案連結如下(*回覆可見*):


林宗漢 在 2018-09-02, 17:05 作了第 1 次修改
林宗漢
林宗漢
一般會員
一般會員

文章總數 : 15
年齡 : 25
來自 : 雲林
職業 : 水利工程技師
愛好 : AutoCADVBA/ExcelVBA
個性 : 樂於分享
使用年資 : 2年
使用版本 : AutoCAD2016
經驗值 : 924
威望值 : 28
注冊日期 : 2018-03-15
男 雙魚座 豬

回頂端 向下


[分享]批次配置分圖工具(VBA) - 頁 2 Empty 回復: [分享]批次配置分圖工具(VBA)

發表 由 58529129 于 2020-05-20, 14:33

謝謝分享---
58529129
58529129
一般會員
一般會員

文章總數 : 10
年齡 : 39
來自 : 嘉義
職業 : 土木
愛好 : 運動
個性 : 沉靜活潑
使用年資 : 10年
使用版本 : 2020
經驗值 : 3593
威望值 : 6
注冊日期 : 2010-09-16
藍鵲294號
男 雙魚座 雞

回頂端 向下

2頁(共2頁) 上一頁  1, 2

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[分享]批次配置分圖工具(VBA) - 頁 2 Uos15010 [分享]批次配置分圖工具(VBA) - 頁 2 BPl3tjj [分享]批次配置分圖工具(VBA) - 頁 2 Ziao1510 [分享]批次配置分圖工具(VBA) - 頁 2 Oo-2-110 [分享]批次配置分圖工具(VBA) - 頁 2 Oooo-110 [分享]批次配置分圖工具(VBA) - 頁 2 2020-211