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

慕容攬?jiān)?/a>

第一步：將后綴為“.slddrt”的圖紙格式文件放入此文件夾內(nèi)，此圖紙格式文件是自己需要的新圖框。
第二步：將要替換模板的文件放入一個(gè)文件夾，將文件夾地址粘貼到相應(yīng)的地方（程序中有備注）
第三步：用宏命令運(yùn)行程序：

  b2 A* {3 @2 x& ]  R* f第一步的附圖：

3 v& C2 _. P$ [9 v程序：
' ******************************************************************************
' C:\Users\Administrator\AppData\Local\Temp\swx8592\Macro1.swb - macro recorded on 06/26/19 by Administrator
: E- e3 t! P" r3 _: g' ******************************************************************************
! [) d1 t9 c: G& s% Q8 v; x6 j' EDim swApp As Object
8 S: i# C- n8 A' F& {, z
Dim Part As Object
Dim boolstatus As Boolean

" g' `4 D5 w6 [



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

+ [  h* x5 E5 L% A; DSub Main()

$ @; ?' G# }8 P0 s1 p3 K

Set swApp = _
& o0 u* V; }8 L  [% \$ Z& VApplication.SldWorks
1 G( m5 h' `0 T3 a9 g5 e& ZmyPath = "C:\Users\Administrator\Desktop\新建文件夾 (2)\" '把文件路徑定義給變量，第二步中的路徑填到此處。
myFile = Dir(myPath & "*.slddrw") '依次找尋指定路徑中的*.文件
* @! D" h# N( D* U* H) ci = 0
9 I' Q* D, K7 L8 x0 C& c# X; }( ?3 E0 zDo While myFile <> ""
. ?/ q3 c5 S' u/ g+ i) O' ~$ RSet Part = swApp.OpenDoc6(myPath & myFile, 3, 0, "", longstatus, longwarnings)

Set Drawing = swApp.ActiveDoc
$ A9 L' x+ B' j8 t( `9 |If Drawing.GetType <> 3 Then Exit Sub
( q3 @, y+ _' f3 B5 R4 W# bRetoreSheetName = Drawing.GetCurrentSheet.GetName
0 I7 r/ l9 ~8 H- l- l- b9 ySheetName = Drawing.GetSheetNames
SheetCount = Drawing.GetSheetCount
+ z3 H5 y' |; b; l0 y6 p$ lFor i = 0 To SheetCount - 1
    Drawing.ActivateSheet SheetName(i)
    swTemplate = Drawing.GetCurrentSheet.GetTemplateName
  |9 \: D: n) p; p9 N7 `    swTemplatePath = Split(swTemplate, "")
    swTemplate = swTemplatePath(UBound(swTemplatePath))
# f+ ~; r4 ]9 u' H/ c  A% b8 U9 o& P    vSheetProps = Drawing.GetCurrentSheet.GetProperties()
    Drawing.SetupSheet4 Drawing.GetCurrentSheet.GetName, 0, 0, vSheetProps(2), vSheetProps(3), vSheetProps(4), "", 1, 1, ""
    Drawing.SetupSheet4 Drawing.GetCurrentSheet.GetName, 12, 12, vSheetProps(2), vSheetProps(3), vSheetProps(4), swTemplate, 0, 0, ""
3 ], R% j3 C2 |9 A    vSheetProps = Drawing.GetCurrentSheet.GetProperties()
Next
. W( W- R' T! N9 C) qDrawing.ActivateSheet RetoreSheetName

Part.Save
( k: I5 O3 U9 x; D( |1 |) _swApp.CloseDoc myPath & myFile

1 o( |/ W  J2 PmyFile = Dir '找尋下一個(gè)*.文件
. Q* f9 I* m3 u, O. [
/ R3 p, O5 S. h  I  HLoop

End Sub

ィ心兂鎅

感謝

遠(yuǎn)祥

這種騷操作不用插件就能實(shí)現(xiàn)？

925269815

有時(shí)間試試看，感謝

hdgd501

好強(qiáng)大，謝謝樓主！！！

零度freedom

樓主，有沒有批量導(dǎo)入展開圖的VBA，像圖片這樣的
9 Y3 s! C# w9 E/ M7 N' H$ G' P或者鈑金方面批量處理的VBA，比如批量改折彎系數(shù) 批量歸類不同板厚零件的
( C2 g* ?6 z1 u. H* F! w( o* h& C

nolility

可以在solid works設(shè)置實(shí)現(xiàn)嗎

念天悠

感謝，學(xué)習(xí)了

mg172

宏內(nèi)部能否指定（圖紙格式文件），現(xiàn)在運(yùn)行宏，顯示要選擇圖紙格式文件，能否不要互動窗口，直接指定某個(gè)文件進(jìn)行替換

眸上有傷痕

學(xué)習(xí)學(xué)習(xí)