Всем привет!
В поиске не нашел, может кто знает.
В чём может быть проблема, когда SW не хочет сохранять чертежи в JPG? Ошибок никаких не выкидывает, просто не генерит файл jpg.
P.s. В TIF сохраняет.
SW2019 SP2
Здравствуйте.
Я написал небольшой макрос, который позволяет вам сохранять файлы с серийными номерами до 99.
Надеюсь вас понравится.
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim saveFileName As String
Dim nErrors As Long
Dim nWarnings As Long
Dim vnam As String
Dim vbool As Boolean
Dim i As Long
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
For i = 1 To 99
saveFileName = Left(swModel.GetPathName, Len(swModel.GetPathName) - 7) & "