solidworks批量換工程圖圖框的VBA代碼

慕容攬月

第一步：將后綴為“.slddrt”的圖紙格式文件放入此文件夾內，此圖紙格式文件是自己需要的新圖框。
* j( v' J: A2 A; q. f' `( V- v第二步：將要替換模板的文件放入一個文件夾，將文件夾地址粘貼到相應的地方（程序中有備注）
% Z' s! J" Q0 f% B# i; ]" u0 f第三步：用宏命令運行程序：
( f: I7 g+ H  a  i  r
& I- O( w  R, N4 ]7 U第一步的附圖：

程序：
2 x5 @5 e  o5 k1 ?+ P- E: w5 Z' ******************************************************************************
2 N9 G) F7 V2 N" m4 ^! |& Y9 c' C:\Users\Administrator\AppData\Local\Temp\swx8592\Macro1.swb - macro recorded on 06/26/19 by Administrator
' ******************************************************************************
0 C0 u4 k+ e# I: n! lDim swApp As Object
) y& R& F2 j5 h3 }
Dim Part As Object
Dim boolstatus As Boolean





Dim longstatus As Long, longwarnings As Long, myPath$, myFile$
Dim i As Integer

; r! x- c( p& R7 g/ g( OSub Main()



Set swApp = _
0 Z! a: z: u' z, i, hApplication.SldWorks
myPath = "C:\Users\Administrator\Desktop\新建文件夾 (2)\" '把文件路徑定義給變量，第二步中的路徑填到此處。
myFile = Dir(myPath & "*.slddrw") '依次找尋指定路徑中的*.文件
' G6 B$ C9 h4 f$ ei = 0
Do While myFile <> ""
Set Part = swApp.OpenDoc6(myPath & myFile, 3, 0, "", longstatus, longwarnings)
4 Z( b0 _: \' G4 y6 z' i: `
Set Drawing = swApp.ActiveDoc
9 i" q' \. L  c2 y; GIf Drawing.GetType <> 3 Then Exit Sub
' A  D/ P% f' u# p+ g8 {RetoreSheetName = Drawing.GetCurrentSheet.GetName
. i1 i5 B5 U) |; T6 v0 i0 CSheetName = Drawing.GetSheetNames
SheetCount = Drawing.GetSheetCount
: ~+ F' V; h0 D% eFor i = 0 To SheetCount - 1
# Z; p7 h& \. c" M& `# W    Drawing.ActivateSheet SheetName(i)
    swTemplate = Drawing.GetCurrentSheet.GetTemplateName
) b3 b) ~% D% E3 P) ^4 a) f    swTemplatePath = Split(swTemplate, "")
  W2 E2 j5 W0 x! ~    swTemplate = swTemplatePath(UBound(swTemplatePath))
    vSheetProps = Drawing.GetCurrentSheet.GetProperties()
    Drawing.SetupSheet4 Drawing.GetCurrentSheet.GetName, 0, 0, vSheetProps(2), vSheetProps(3), vSheetProps(4), "", 1, 1, ""
+ o( J4 a7 \) d7 E    Drawing.SetupSheet4 Drawing.GetCurrentSheet.GetName, 12, 12, vSheetProps(2), vSheetProps(3), vSheetProps(4), swTemplate, 0, 0, ""
    vSheetProps = Drawing.GetCurrentSheet.GetProperties()
Next
Drawing.ActivateSheet RetoreSheetName

Part.Save
swApp.CloseDoc myPath & myFile

! ]$ x5 Y$ P5 k; m( D" NmyFile = Dir '找尋下一個*.文件
  A1 V, m' G: m8 W* |
Loop

2 ]6 e3 f1 x* l, _$ o8 e' REnd Sub

ィ心兂鎅

感謝

遠祥

這種騷操作不用插件就能實現？

925269815

有時間試試看，感謝

hdgd501

好強大，謝謝樓主！！！

零度freedom

樓主，有沒有批量導入展開圖的VBA，像圖片這樣的
或者鈑金方面批量處理的VBA，比如批量改折彎系數 批量歸類不同板厚零件的
* C( V& j% F" V$ Z) B, F  d

nolility

可以在solid works設置實現嗎

念天悠

感謝，學習了

mg172

宏內部能否指定（圖紙格式文件），現在運行宏，顯示要選擇圖紙格式文件，能否不要互動窗口，直接指定某個文件進行替換

眸上有傷痕

學習學習