Solidworks2022VBA更改命名未生效

在Solidworks 2022 VBA中，更改文件名的常见操作是使用Pack and Go功能。但是，有时可能会遇到更改文件名后未生效的情况。这可能是由于VBA代码中的某些错误或缺陷引起的。以下是一种可能的

1. 创建一个新的宏，并在其中添加以下代码：

Sub RenameFiles()

Dim swApp As Object Dim swModel As Object Dim swDrawing As Object Dim swModelDoc As Object Dim swView As Object Dim swViewMgr As Object Dim swFeat As Object Dim swModelDocExt As Object Dim swNewName As String Dim swPath As String Dim swDrawingPath As String Dim swFileExt As String Dim swDrawPath As String Dim swDocType As String Dim swViewName As String Dim swUOM As Long Dim swUpdate As Boolean Dim varSheetNames As Variant Dim SheetName As Variant Dim boolstatus As Boolean

Set swApp = Application.SldWorks

'获取当前打开的模型 Set swModel = swApp.ActiveDoc

If swModel Is Nothing Then MsgBox "请先打开Solidworks模型" Exit Sub End If

'设置新的文件名和路径 swNewName = "NEW FILE NAME" swPath = "NEW FILE PATH"

'检查文件名是否有扩展名 If Not InStr(swNewName, ".") > 0 Then swModelDocExt = swModel.Extension swDocType = swModelDocExt.DocumentType(swModel.GetPathName) swFileExt = swModelDocExt.GetDocumentTypeExtension(swDocType) swNewName = swNewName & swFileExt End If

'检查文件是否已经存在于路径中 If Dir(swPath & swNewName) <> "" Then MsgBox "文件已存在！" Exit Sub End If

'获取视图管理器 Set swViewMgr = swModel.GetActiveView

If swModel.GetType = swDocPART Then '操作零件文件类型