Я искал и искал макрос, который при запуске преобразует файлы в этом месте в файлы .stp, и я наткнулся на ниже.Как я могу манипулировать им, чтобы получить следующий файл в папке и продолжить следующие файлы и конвертировать их, пока все файлы не будут конвертированы.
Dim swApp As Object
Dim Part As Object
Dim FilePath As String
Dim sFilePath As String
Dim PathSize As Long
DimPathNoExtention As String
Dim NewFilePath As String
Dim FileLocation As String
Dim sPath As String
Dim i As Long
DimbRebuild As Boolean
Dim bRet As Boolean
Dim sRev As String
Dim nErrors As Long
Dim nWarnings As Long
Submain ()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
FilePath = Part.GetPathName
PathSize = Strings.Len (FilePath)
sPath = Left (Part.GetPathName, InStrRev (Part.GetPathName, "\"))
sRev = Part.CustomInfo ("re") 'Изменить имя свойства конфигурации здесь
FileLocation = "C:"
PathNoExtension = Strings.Left (FilePath, PathSize - 7)
Part.SaveAs (PathNoExtension & "rev" & sRev & ".step«)
End Sub