solidworks批量换工程图图框的VBA代码

慕容揽月

第一步：将后缀为“.slddrt”的图纸格式文件放入此文件夹内，此图纸格式文件是自己需要的新图框。
. o: B3 ?3 e( T5 \4 @第二步：将要替换模板的文件放入一个文件夹，将文件夹地址粘贴到相应的地方（程序中有备注）
第三步：用宏命令运行程序：
, h" d% s7 n1 I# U2 A7 W  Z, E
第一步的附图：

0 [% I# l, a+ r0 c: ]程序：
' ******************************************************************************
' C:\Users\Administrator\AppData\Local\Temp\swx8592\Macro1.swb - macro recorded on 06/26/19 by Administrator
' ******************************************************************************
Dim swApp As Object
( K. t9 [0 u9 J
: `5 I. P7 s1 _Dim Part As Object
Dim boolstatus As Boolean



: k3 B) r$ h! `4 z7 \8 Y: T

4 @' {: i+ _! d5 Y' s  {Dim longstatus As Long, longwarnings As Long, myPath$, myFile$
Dim i As Integer

Sub Main()
+ y& `* W& \8 f/ x: A: r# q5 @2 f

) w/ i- [& H5 y: f% x
, n3 [/ F8 K: z* B6 x% b& sSet swApp = _
' ]" Q3 j5 y, xApplication.SldWorks
myPath = "C:\Users\Administrator\Desktop\新建文件夹 (2)\" '把文件路径定义给变量，第二步中的路径填到此处。
5 O% P1 u( V$ k1 ymyFile = Dir(myPath & "*.slddrw") '依次找寻指定路径中的*.文件
i = 0
! U$ Z) _$ p! U* X6 g  KDo While myFile <> ""
Set Part = swApp.OpenDoc6(myPath & myFile, 3, 0, "", longstatus, longwarnings)

5 Y$ F! }; e- b& U7 m" }! ]Set Drawing = swApp.ActiveDoc
If Drawing.GetType <> 3 Then Exit Sub
3 P% Y1 O' J/ A5 j7 S; ORetoreSheetName = Drawing.GetCurrentSheet.GetName
SheetName = Drawing.GetSheetNames
SheetCount = Drawing.GetSheetCount
9 D, T8 d) k$ E5 U7 U! {% sFor i = 0 To SheetCount - 1
% R" b( {/ U- {7 _, r8 M    Drawing.ActivateSheet SheetName(i)
1 t* \/ v8 z/ Y, d    swTemplate = Drawing.GetCurrentSheet.GetTemplateName
    swTemplatePath = Split(swTemplate, "")
  e, |; ^) |# Z) V' f    swTemplate = swTemplatePath(UBound(swTemplatePath))
    vSheetProps = Drawing.GetCurrentSheet.GetProperties()
0 A1 }6 i7 P6 l2 V& K1 n) X    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, ""
    vSheetProps = Drawing.GetCurrentSheet.GetProperties()
8 e5 ]/ z$ L! V' TNext
Drawing.ActivateSheet RetoreSheetName
1 d5 ^+ J. w6 x6 x9 k9 X# C
Part.Save
swApp.CloseDoc myPath & myFile

* j9 L; L/ j' X+ x8 a, ^myFile = Dir '找寻下一个*.文件
0 W) y% p, r- d% d
Loop

End Sub

ィ心兂鎅

感谢

远祥

这种骚操作不用插件就能实现？

925269815

有时间试试看，感谢

hdgd501

好强大，谢谢楼主！！！

零度freedom

楼主，有没有批量导入展开图的VBA，像图片这样的
5 I3 N; b8 S5 ?1 |6 w2 Y: n: ?* z# c或者钣金方面批量处理的VBA，比如批量改折弯系数 批量归类不同板厚零件的

nolility

可以在solid works设置实现吗

念天悠

感谢，学习了

mg172

宏内部能否指定（图纸格式文件），现在运行宏，显示要选择图纸格式文件，能否不要互动窗口，直接指定某个文件进行替换

眸上有伤痕

学习学习