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

慕容攬月

第一步：將后綴為“.slddrt”的圖紙格式文件放入此文件夾內(nèi),，此圖紙格式文件是自己需要的新圖框。
第二步：將要替換模板的文件放入一個文件夾,，將文件夾地址粘貼到相應的地方（程序中有備注）
1 ?# I& o, X% @7 V& ~第三步：用宏命令運行程序：
+ t  y8 I1 |5 |( ?( X' y) _# i
5 P3 N$ M5 _$ L: _第一步的附圖：

程序：
' ******************************************************************************
# O6 K8 I! C- i0 ?' C:\Users\Administrator\AppData\Local\Temp\swx8592\Macro1.swb - macro recorded on 06/26/19 by Administrator
( {* @# F% w" Q/ O' ******************************************************************************
Dim swApp As Object

: e( [# h% I- p! A0 x( A( _, |. UDim Part As Object
+ `! q6 s, a7 T2 \# p. x( \Dim boolstatus As Boolean
, h& f6 |) a/ }0 a

6 z7 f* l0 |8 c# P  X" L9 n; f
- j/ b+ g( Z8 }1 r
0 }8 v  `. g3 e" [4 ~  p. \
1 \( d: e6 U9 A# n4 zDim longstatus As Long, longwarnings As Long, myPath$, myFile$
1 q5 Q1 V" D. S" zDim i As Integer
- K! K" q, c7 j7 t+ g) [
& s$ l3 \  ~6 A- ?8 V% Y! d, ^Sub Main()
+ L! r# j- F4 v

/ D4 h" X$ X. @' x/ c3 n
: \5 Q$ j; k; a. d4 vSet swApp = _
5 e' w4 ^+ Q' j, |: }9 l: A  v" aApplication.SldWorks
myPath = "C:\Users\Administrator\Desktop\新建文件夾 (2)\" '把文件路徑定義給變量,，第二步中的路徑填到此處。
! w: j8 m* g0 a) k% N  CmyFile = Dir(myPath & "*.slddrw") '依次找尋指定路徑中的*.文件
i = 0
# ~. j4 R# V7 i: H0 fDo While myFile <> ""
Set Part = swApp.OpenDoc6(myPath & myFile, 3, 0, "", longstatus, longwarnings)
6 n2 t( _$ |1 ~, b
9 y1 a( c& F5 q  W9 A  @/ C6 gSet Drawing = swApp.ActiveDoc
6 V, {! P" D: @+ Z) A" m( KIf Drawing.GetType <> 3 Then Exit Sub
RetoreSheetName = Drawing.GetCurrentSheet.GetName
SheetName = Drawing.GetSheetNames
! N0 W5 [/ x4 w( {9 ASheetCount = Drawing.GetSheetCount
For i = 0 To SheetCount - 1
    Drawing.ActivateSheet SheetName(i)
    swTemplate = Drawing.GetCurrentSheet.GetTemplateName
9 ], e4 t5 ?* i# q# C    swTemplatePath = Split(swTemplate, "")
    swTemplate = swTemplatePath(UBound(swTemplatePath))
8 W) o0 m1 O9 F( ^    vSheetProps = Drawing.GetCurrentSheet.GetProperties()
4 r# I6 O5 W8 e1 R3 o. E2 c0 J    Drawing.SetupSheet4 Drawing.GetCurrentSheet.GetName, 0, 0, vSheetProps(2), vSheetProps(3), vSheetProps(4), "", 1, 1, ""
" X; @8 J3 `9 N1 }0 O2 c% u+ s" R    Drawing.SetupSheet4 Drawing.GetCurrentSheet.GetName, 12, 12, vSheetProps(2), vSheetProps(3), vSheetProps(4), swTemplate, 0, 0, ""
2 G8 e5 K8 r# w6 {    vSheetProps = Drawing.GetCurrentSheet.GetProperties()
Next
& P+ k  X" D! U' p6 S3 }4 jDrawing.ActivateSheet RetoreSheetName
: N4 ]  |, c% `) f9 D* L2 e* R
# I1 w$ o# I; s+ G" {Part.Save
/ s, C5 E: r5 W6 y, KswApp.CloseDoc myPath & myFile

myFile = Dir '找尋下一個*.文件

Loop

0 o4 c) n2 O8 C+ E% ~& T6 ]8 Y; hEnd Sub

ィ心兂鎅

感謝

遠祥

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

925269815

有時間試試看，感謝

hdgd501

好強大,，謝謝樓主�,。,。�

零度freedom

樓主,，有沒有批量導入展開圖的VBA,，像圖片這樣的
或者鈑金方面批量處理的VBA，比如批量改折彎系數(shù) 批量歸類不同板厚零件的

nolility

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

念天悠

感謝，學習了

mg172

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

眸上有傷痕

學習學習