diff --git a/ЧМВ2/swxJRNL.swj b/ЧМВ2/swxJRNL.swj new file mode 100644 index 0000000..0bff9ea --- /dev/null +++ b/ЧМВ2/swxJRNL.swj @@ -0,0 +1,163 @@ +' ****************************************************************************** +' 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/Болт М20 - ЧМВ2.01.04.SLDPRT b/ЧМВ2/Болт М20 - ЧМВ2.01.04.SLDPRT new file mode 100644 index 0000000..e49f085 Binary files /dev/null and b/ЧМВ2/Болт М20 - ЧМВ2.01.04.SLDPRT differ diff --git a/ЧМВ2/Вал - ЧМВ2.01.03.SLDPRT b/ЧМВ2/Вал - ЧМВ2.01.03.SLDPRT new file mode 100644 index 0000000..271299f Binary files /dev/null and b/ЧМВ2/Вал - ЧМВ2.01.03.SLDPRT differ diff --git a/ЧМВ2/Винт М8 - ЧМВ2.01.06.SLDPRT b/ЧМВ2/Винт М8 - ЧМВ2.01.06.SLDPRT new file mode 100644 index 0000000..fafd9ed Binary files /dev/null and b/ЧМВ2/Винт М8 - ЧМВ2.01.06.SLDPRT differ diff --git a/ЧМВ2/Губки для тисков - ЧМВ2.01.05.SLDPRT b/ЧМВ2/Губки для тисков - ЧМВ2.01.05.SLDPRT new file mode 100644 index 0000000..76e0b17 Binary files /dev/null and b/ЧМВ2/Губки для тисков - ЧМВ2.01.05.SLDPRT differ diff --git a/ЧМВ2/Основание - ЧМВ2.01.00.SLDASM b/ЧМВ2/Основание - ЧМВ2.01.00.SLDASM index 61df74b..6f543c8 100644 Binary files a/ЧМВ2/Основание - ЧМВ2.01.00.SLDASM and b/ЧМВ2/Основание - ЧМВ2.01.00.SLDASM differ diff --git a/ЧМВ2/Основание - ЧМВ2.01.00.SLDDRW b/ЧМВ2/Основание - ЧМВ2.01.00.SLDDRW index 0ad1b8c..dff0c35 100644 Binary files a/ЧМВ2/Основание - ЧМВ2.01.00.SLDDRW and b/ЧМВ2/Основание - ЧМВ2.01.00.SLDDRW differ diff --git a/ЧМВ2/Подвижная часть - ЧМВ2.02.00.SLDASM b/ЧМВ2/Подвижная часть - ЧМВ2.02.00.SLDASM index 01f23cb..5c465a4 100644 Binary files a/ЧМВ2/Подвижная часть - ЧМВ2.02.00.SLDASM and b/ЧМВ2/Подвижная часть - ЧМВ2.02.00.SLDASM differ diff --git a/ЧМВ2/Подвижная часть - ЧМВ2.02.00.SLDDRW b/ЧМВ2/Подвижная часть - ЧМВ2.02.00.SLDDRW index dc823c0..1a862db 100644 Binary files a/ЧМВ2/Подвижная часть - ЧМВ2.02.00.SLDDRW and b/ЧМВ2/Подвижная часть - ЧМВ2.02.00.SLDDRW differ