求批量打开保存工程图的宏

728070905 · 发表于 2024-5-22 12:59:40

经典图书

经常借用以前的图纸进行更改，更改之后图纸显示不是最新，求一个在装配体中一键执行宏（打开所有工程图--保存--关闭）

机制082 · 发表于 2024-9-2 17:16:56

Option Explicit
Sub SaveAllSLDDRWFiles()
Dim swApp As Object
Dim swModel As ModelDoc2
Dim swDraw As DrawingDoc
Dim FolderPath As String
Dim FileName As String
Dim FilePath As String
Dim FSO As Object
Dim Folder As Object
Dim File As Object
' 获取SolidWorks应用程序对象
Set swApp = Application.SldWorks
' 弹出对话框选择文件夹
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "选择包含.SLDDRW文件的文件夹"
If .Show = -1 Then
FolderPath = .SelectedItems(1)
Else
MsgBox "未选择任何文件夹，程序将退出。", vbExclamation
Exit Sub
End If
End With
' 创建文件系统对象
Set FSO = CreateObject("Scripting.FileSystemObject")
' 获取文件夹中的所有文件
Set Folder = FSO.GetFolder(FolderPath)
' 遍历文件夹中的每个文件
For Each File In Folder.Files
' 检查文件扩展名是否为.SLDDRW
If UCase(FSO.GetExtensionName(File.Name)) = "SLDDRW" Then
FilePath = File.Path
Set swModel = swApp.OpenDoc6(FilePath, swDocDRAWING, swOpenDocOptions_Silent, "", 0, 0)
If Not swModel Is Nothing Then
' 保存文件
swModel.Save
' 关闭文件
swApp.CloseDoc swModel.GetTitle
End If
End If
Next File
' 处理完毕后提示
MsgBox "所有文件已保存完毕！", vbInformation
End Sub

复制代码

728070905 · 发表于 2024-5-22 13:01:23

经典图书

100金币酬谢

懒懒的高贵 · 发表于 2024-5-22 14:21:25

可以用论坛里的文件夹批量执行宏，依次打开保存

董东咚 · 发表于 2024-5-22 15:57:04

经典案例图书

楼主很专业，写得很好！

lishaokai · 发表于 2024-5-23 17:19:51

顶一下，坐等高手！

728070905 · 发表于 2024-6-5 11:24:12

经典案例图书

顶一下.....

沉默的人 · 发表于 2024-8-31 08:20:56

顶一下，坐等高手！

叶落满空山 · 发表于 2024-8-31 08:39:52

打开的目的是什么？打开直接保存的意义在哪里？

		自动登录	找回密码
密码			立即注册