diff --git a/ЧМВ2/swxJRNL.swj b/ЧМВ2/swxJRNL.swj deleted file mode 100644 index 0bff9ea..0000000 --- a/ЧМВ2/swxJRNL.swj +++ /dev/null @@ -1,163 +0,0 @@ -' ****************************************************************************** -' swxJRNL.swj - journal recorded on 12/16/25 by -' ***************************************************************************** -Dim swApp As Object - -Dim Part As Object -Dim boolstatus As Boolean -Dim longstatus As Long, longwarnings As Long - -Sub main() - -Set swApp = Application.SldWorks - -swApp.ActivateDoc2 " - 2.00.00", False, longstatus -Set Part = swApp.ActiveDoc -Set Part = swApp.ActiveDoc -Dim myModelView As Object -Set myModelView = Part.ActiveView -myModelView.FrameLeft = 0 -myModelView.FrameTop = 0 -Set myModelView = Part.ActiveView -myModelView.FrameState = swWindowState_e.swWindowMaximized -Set myModelView = Part.ActiveView -myModelView.FrameState = swWindowState_e.swWindowMaximized -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0.00257708772364788341, 0 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0.005154175447295766821, -0.02880936494558332048 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0.01288543861823941532, -0.0691424758693999636 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0.01546252634188729699, -0.09795184081498328754 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0.01030835089459153364, -0.1037137138040999662 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0.01288543861823941532, -0.1267612057605666254 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0.01288543861823941532, -0.1382849517387999272 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0.01030835089459153364, -0.1325230787496832763 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0.005154175447295766821, -0.0518568569020499831 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0.00257708772364788341, -0.0518568569020499831 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0.005154175447295766821, -0.0518568569020499831 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0.00257708772364788341, -0.0345712379346999818 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0.00257708772364788341, -0.0345712379346999818 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0, -0.02880936494558332048 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0.005154175447295766821, -0.02880936494558332048 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0, -0.0172856189673499909 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0.00257708772364788341, -0.0172856189673499909 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0, -0.0172856189673499909 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0, -0.0172856189673499909 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0, -0.005761872989116664789 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0, -0.01152374597823332958 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0.00257708772364788341, -0.005761872989116664789 -Set myModelView = Part.ActiveView -myModelView.RotateAboutCenter 0, -0.005761872989116664789 - -' Roll View -Dim swModelView As Object -Set swModelView = Part.ActiveView -swModelView.RollBy 0 - -' Open -Set Part = swApp.OpenDoc6("C:\Users\user\Documents\Chinenov_M.V\2\ - 2.01.00.SLDDRW", 3, 0, "", longstatus, longwarnings) -Dim swDrawing As Object -Set swDrawing = Part -Set Part = swApp.ActiveDoc -Set myModelView = Part.ActiveView -myModelView.FrameLeft = 0 -myModelView.FrameTop = 33 -Set myModelView = Part.ActiveView -myModelView.FrameState = swWindowState_e.swWindowMaximized -swApp.ActivateDoc2 " - 2.01.00 - 1", False, longstatus -Set Part = swApp.ActiveDoc - -' Pan -Set swModelView = Part.ActiveView -swModelView.TranslateBy -0.001556331877729257539, -0.05758427947598253327 -Set Part = swApp.ActiveDoc -Set myModelView = Part.ActiveView -myModelView.FrameLeft = 0 -myModelView.FrameTop = 0 -Set myModelView = Part.ActiveView -myModelView.FrameState = swWindowState_e.swWindowMaximized -swApp.ActivateDoc2 " - 2.00.00", False, longstatus -Set Part = swApp.ActiveDoc -boolstatus = Part.Extension.SelectByID2(" - 2.02.00-2@ - 2.00.00/ - 2.01.05-2@ - 2.02.00", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0) -Part.ClearSelection2 True - -' Open -Set Part = swApp.OpenDoc6("C:\Users\user\Documents\Chinenov_M.V\2\ - 2.02.00.SLDDRW", 3, 0, "", longstatus, longwarnings) -Set swDrawing = Part -Set Part = swApp.ActiveDoc -Set myModelView = Part.ActiveView -myModelView.FrameLeft = 0 -myModelView.FrameTop = 33 -Set myModelView = Part.ActiveView -myModelView.FrameState = swWindowState_e.swWindowMaximized -swApp.ActivateDoc2 " - 2.02.00 - 1", False, longstatus -Set Part = swApp.ActiveDoc - -' Zoom To Fit -Part.ViewZoomtofit2 - -' Zoom To Fit -Part.ViewZoomtofit2 - -' Zoom To Fit -Part.ViewZoomtofit2 - -' Save -Dim swErrors As Long -Dim swWarnings As Long -boolstatus = Part.Save3(1, swErrors, swWarnings) - -' Open -Set Part = swApp.OpenDoc6("C:\Users\user\Documents\Chinenov_M.V\2\ - 2.01.00.SLDDRW", 3, 0, "", longstatus, longwarnings) -Set swDrawing = Part -Set Part = swApp.ActiveDoc -Set myModelView = Part.ActiveView -myModelView.FrameLeft = 0 -myModelView.FrameTop = 33 -Set myModelView = Part.ActiveView -myModelView.FrameState = swWindowState_e.swWindowMaximized -swApp.ActivateDoc2 " - 2.01.00 - 1", False, longstatus -Set Part = swApp.ActiveDoc -' MSGBOX -' - 2.01.00? - -Set myModelView = Part.ActiveView -myModelView.FrameState = swWindowState_e.swWindowMaximized -Set Part = swApp.ActiveDoc -Set myModelView = Part.ActiveView -myModelView.FrameLeft = 0 -myModelView.FrameTop = 33 -Set myModelView = Part.ActiveView -myModelView.FrameState = swWindowState_e.swWindowMaximized -swApp.ActivateDoc2 " - 2.02.00 - 1", False, longstatus -Set Part = swApp.ActiveDoc -Set Part = swApp.ActiveDoc -Set myModelView = Part.ActiveView -myModelView.FrameLeft = 0 -myModelView.FrameTop = 0 -Set myModelView = Part.ActiveView -myModelView.FrameState = swWindowState_e.swWindowMaximized -swApp.ActivateDoc2 " - 2.00.00", False, longstatus -Set Part = swApp.ActiveDoc -swApp.ExitApp -End Sub diff --git a/ЧМВ2/Анимация/Тиски - ЧМВ2.00.00 - Чинёнов.avi b/ЧМВ2/Анимация/Тиски - ЧМВ2.00.00 - Чинёнов.avi new file mode 100644 index 0000000..4f2af34 Binary files /dev/null and b/ЧМВ2/Анимация/Тиски - ЧМВ2.00.00 - Чинёнов.avi differ diff --git a/ЧМВ2/Анимация/Тиски - ЧМВ2.00.00.avi b/ЧМВ2/Анимация/Тиски - ЧМВ2.00.00.avi deleted file mode 100644 index 1a5a02c..0000000 Binary files a/ЧМВ2/Анимация/Тиски - ЧМВ2.00.00.avi and /dev/null differ diff --git a/ЧМВ2/Анимация/Тиски - ЧМВ2.00.mp4 b/ЧМВ2/Анимация/Тиски - ЧМВ2.00.mp4 new file mode 100644 index 0000000..e01869c Binary files /dev/null and b/ЧМВ2/Анимация/Тиски - ЧМВ2.00.mp4 differ diff --git a/ЧМВ2/Тиски - ЧМВ2.00.00.SLDASM b/ЧМВ2/Тиски - ЧМВ2.00.00.SLDASM index aa186cf..758272a 100644 Binary files a/ЧМВ2/Тиски - ЧМВ2.00.00.SLDASM and b/ЧМВ2/Тиски - ЧМВ2.00.00.SLDASM differ diff --git a/ЧМВ2/Тиски - ЧМВ2.00.00.avi b/ЧМВ2/Тиски - ЧМВ2.00.00.avi deleted file mode 100644 index 1a5a02c..0000000 Binary files a/ЧМВ2/Тиски - ЧМВ2.00.00.avi and /dev/null differ diff --git a/ЧМВ2/Тиски - ЧМВ2.avi b/ЧМВ2/Тиски - ЧМВ2.avi deleted file mode 100644 index 9661f52..0000000 Binary files a/ЧМВ2/Тиски - ЧМВ2.avi and /dev/null differ