diff --git a/motor/parts/72mm/new_plastic_stator_72mm.SLDPRT b/motor/parts/72mm/new_plastic_stator_72mm.SLDPRT index 5d60cf3..81171e8 100644 Binary files a/motor/parts/72mm/new_plastic_stator_72mm.SLDPRT and b/motor/parts/72mm/new_plastic_stator_72mm.SLDPRT differ diff --git a/reducer/Precessing_Reducer/Create Plane Example.swp b/reducer/Precessing_Reducer/Create Plane Example.swp deleted file mode 100644 index 82280a4..0000000 Binary files a/reducer/Precessing_Reducer/Create Plane Example.swp and /dev/null differ diff --git a/reducer/Precessing_Reducer/Insert axis Example.swp b/reducer/Precessing_Reducer/Insert axis Example.swp deleted file mode 100644 index a5ceef6..0000000 Binary files a/reducer/Precessing_Reducer/Insert axis Example.swp and /dev/null differ diff --git a/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_001_spiral.swp b/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_001_spiral.swp deleted file mode 100644 index 989cf9c..0000000 Binary files a/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_001_spiral.swp and /dev/null differ diff --git a/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_002.swp b/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_002.swp deleted file mode 100644 index aba33b1..0000000 Binary files a/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_002.swp and /dev/null differ diff --git a/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_003_gear.swp b/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_003_gear.swp deleted file mode 100644 index 6b9cc8e..0000000 Binary files a/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_003_gear.swp and /dev/null differ diff --git a/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_004_gear.swp b/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_004_gear.swp deleted file mode 100644 index 2a95143..0000000 Binary files a/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_004_gear.swp and /dev/null differ diff --git a/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_005_points.swp b/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_005_points.swp deleted file mode 100644 index 435b0c2..0000000 Binary files a/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_005_points.swp and /dev/null differ diff --git a/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_006_points_second_paper.swp b/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_006_points_second_paper.swp deleted file mode 100644 index 73fcdc9..0000000 Binary files a/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_006_points_second_paper.swp and /dev/null differ diff --git a/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_007.swp b/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_007.swp deleted file mode 100644 index 5cc1861..0000000 Binary files a/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_007.swp and /dev/null differ diff --git a/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_008_complete.swp b/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_008_complete.swp deleted file mode 100644 index da5e68e..0000000 Binary files a/reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_008_complete.swp and /dev/null differ diff --git a/reducer/Precessing_Reducer/Select Plane Example.swp b/reducer/Precessing_Reducer/Select Plane Example.swp deleted file mode 100644 index bfb8d05..0000000 Binary files a/reducer/Precessing_Reducer/Select Plane Example.swp and /dev/null differ diff --git a/reducer/Precessing_Reducer/Test_gear.SLDPRT b/reducer/Precessing_Reducer/Test_gear.SLDPRT deleted file mode 100644 index 281160d..0000000 Binary files a/reducer/Precessing_Reducer/Test_gear.SLDPRT and /dev/null differ diff --git a/reducer/Precessing_Reducer/Test_gear_002.SLDPRT b/reducer/Precessing_Reducer/Test_gear_002.SLDPRT deleted file mode 100644 index e55a1a0..0000000 Binary files a/reducer/Precessing_Reducer/Test_gear_002.SLDPRT and /dev/null differ diff --git a/reducer/Precessing_Reducer/Test_gear_003.SLDPRT b/reducer/Precessing_Reducer/Test_gear_003.SLDPRT deleted file mode 100644 index 29c5b3f..0000000 Binary files a/reducer/Precessing_Reducer/Test_gear_003.SLDPRT and /dev/null differ diff --git a/reducer/Precessing_Reducer/Test_gear_004.SLDPRT b/reducer/Precessing_Reducer/Test_gear_004.SLDPRT deleted file mode 100644 index 51fe624..0000000 Binary files a/reducer/Precessing_Reducer/Test_gear_004.SLDPRT and /dev/null differ diff --git a/reducer/Precessing_Reducer/Test_gear_005.SLDPRT b/reducer/Precessing_Reducer/Test_gear_005.SLDPRT deleted file mode 100644 index ed7e3a8..0000000 Binary files a/reducer/Precessing_Reducer/Test_gear_005.SLDPRT and /dev/null differ diff --git a/reducer/Precessing_Reducer/Test_gear_006.SLDPRT b/reducer/Precessing_Reducer/Test_gear_006.SLDPRT deleted file mode 100644 index 8379bcc..0000000 Binary files a/reducer/Precessing_Reducer/Test_gear_006.SLDPRT and /dev/null differ diff --git a/reducer/Precessing_Reducer/Vectors Example.swp b/reducer/Precessing_Reducer/Vectors Example.swp deleted file mode 100644 index 3ed0fe4..0000000 Binary files a/reducer/Precessing_Reducer/Vectors Example.swp and /dev/null differ diff --git a/reducer/Precessing_Reducer/asm_precessing_reducer.SLDASM b/reducer/Precessing_Reducer/asm_precessing_reducer.SLDASM index c1c4118..cb848dd 100644 Binary files a/reducer/Precessing_Reducer/asm_precessing_reducer.SLDASM and b/reducer/Precessing_Reducer/asm_precessing_reducer.SLDASM differ diff --git a/reducer/Precessing_Reducer/gear.txt b/reducer/Precessing_Reducer/gear.txt deleted file mode 100644 index dd61ab3..0000000 --- a/reducer/Precessing_Reducer/gear.txt +++ /dev/null @@ -1,166 +0,0 @@ -Option Explicit - -Sub Main() - Dim swApp As SldWorks.SldWorks - Dim swModel As SldWorks.ModelDoc2 - Dim swSketchMgr As SldWorks.SketchManager - Dim swPart As SldWorks.PartDoc - Dim points() As Double - Dim i As Integer - Dim Z1, Z2 As Integer - Dim t As Double - Dim x, y, z As Double - Dim numPoints As Integer - Dim radius As Double - Dim numTurns As Double - Dim height As Double - Dim boolStatus As Boolean - - Dim cone_angle As Double - Dim nutation_angle As Double - Dim prec_angle As Double - - 'Dim swSketchPoint As SldWorks.SketchPoint - Dim swSketchSegment As SldWorks.SketchSegment - - ' Iiaee??aiea e SolidWorks - Debug.Print "1. Attempting to connect to SolidWorks" - On Error Resume Next - Set swApp = Application.SldWorks - If swApp Is Nothing Then - MsgBox "Ia oaaeinu iiaee??eouny e SolidWorks!", vbCritical - Debug.Print "1. Failed to connect to SolidWorks" - Exit Sub - End If - On Error GoTo 0 - Debug.Print "1. Successfully connected to SolidWorks" - - ' I?iaa?ea aeoeaiiai aieoiaioa - Debug.Print "2. Checking active document" - Set swModel = swApp.ActiveDoc - If swModel Is Nothing Then - MsgBox "Ioe?ieoa aieoiaio aaoaee a SolidWorks!", vbExclamation - Debug.Print "2. No active document found" - Exit Sub - End If - Debug.Print "2. Active document found: " & swModel.GetTitle - - ' I?iaa?ea, ?oi yoi aieoiaio aaoaee - If swModel.GetType <> swDocPART Then - MsgBox "Aeoeaiue aieoiaio aie?ai auou aaoaeu?!", vbExclamation - Debug.Print "2. Document is not a part, type: " & swModel.GetType - Exit Sub - End If - Set swPart = swModel - Debug.Print "2. Document is a part" - - ' Eieoeaeecaoey SketchManager - Debug.Print "3. Initializing SketchManager" - Set swSketchMgr = swModel.SketchManager - If swSketchMgr Is Nothing Then - MsgBox "Ia oaaeinu eieoeaeece?iaaou SketchManager!", vbCritical - Debug.Print "3. Failed to initialize SketchManager" - Exit Sub - End If - Debug.Print "3. SketchManager initialized" - - ' I?iaa?ea e cae?uoea aeoeaiiai yneeca - Debug.Print "4. Checking for active sketch" - If Not swSketchMgr.ActiveSketch Is Nothing Then - swSketchMgr.InsertSketch True ' Cae?uou oaeouee yneec - swModel.ClearSelection2 True ' I?enoea auaaeaiey - Debug.Print "4. Closed active sketch" - Else - Debug.Print "4. No active sketch found" - End If - - ' Onoaiiaea ?a?eia yneeca - Debug.Print "5. Setting sketch mode" - swModel.SketchManager.AddToDB = False ' Ioee??aiea i?yiie caiene aey nei?inoe - - ' Nicaaiea 3D-yneeca - Debug.Print "6. Creating 3D sketch" - On Error Resume Next - swModel.SketchManager.Insert3DSketch True - If Err.Number <> 0 Then - MsgBox "Ioeaea i?e nicaaiee 3D-yneeca: " & Err.Description, vbCritical - Debug.Print "6. Error creating 3D sketch: " & Err.Description - On Error GoTo 0 - Exit Sub - End If - On Error GoTo 0 - Debug.Print "6. 3D sketch created successfully" - - ' Iano?aeaaaiua ia?aiao?u oanoa?aiee - Z2 = 60 - Z1 = Z2 - 1 - radius = 60 ' ?aaeon nie?aee (a ieeeeiao?ao) - radius = radius / 1000 ' ?aaeon nie?aee (a iao?ao) - numPoints = 360 ' Eiee?anoai eiio?ieuiuo oi?ae - cone_angle = 10 - nutation_angle = 5 - prec_angle = 5 - - - ' Eieoeaeecaoey ianneaa oi?ae - ReDim points(0 To numPoints * 3 - 1) ' [x1, y1, z1, x2, y2, z2, ...] - - ' Aaia?aoey eii?aeiao oi?ae (nie?aeu) - Debug.Print "7. Generating control points" - For i = 0 To numPoints - 1 - x = radius * Cos(cone_angle) * (-1 * Cos(prec_angle) * Sin(prec_angle * (Z1 / Z2)) + Sin(prec_angle) * Cos(prec_angle * (Z1 / Z2)) * Cos(nutation_angle)) - (radius * Sin(cone_angle) * Sin(prec_angle) * Sin(nutation_angle)) - y = -1 * radius * Cos(cone_angle) * (Sin(prec_angle) * Sin(prec_angle * (Z1 / Z2)) + Cos(prec_angle) * Cos(prec_angle * (Z1 / Z2)) * Cos(nutation_angle)) + (radius * Sin(cone_angle) * Cos(prec_angle) * Sin(nutation_angle)) - z = -1 * radius * Cos(cone_angle) * Cos(prec_angle * (Z1 / Z2)) * Sin(nutation_angle) - (radius * Sin(cone_angle) * Cos(nutation_angle)) - points(i * 3) = x - points(i * 3 + 1) = y - points(i * 3 + 2) = z - Debug.Print "7. Point " & i & ": (" & x & ", " & y & ", " & z & ")" - Next i - ' For i = 0 To numPoints - 1 - ' t = i / (numPoints - 1) - ' x = radius * Cos(numTurns * 2 * 3.14159 * t) - ' y = radius * Sin(numTurns * 2 * 3.14159 * t) - ' z = height * t - ' points(i * 3) = x - ' points(i * 3 + 1) = y - ' points(i * 3 + 2) = z - ' Debug.Print "7. Point " & i & ": (" & x & ", " & y & ", " & z & ")" - ' Next i - Debug.Print "7. Control points generated" - - ' Nicaaiea nieaeia - Debug.Print "8. Creating spline" - Debug.Print "Err.Number: " & Err.Number - On Error Resume Next - ' boolStatus = swSketchMgr.CreateSpline(points) - Set swSketchSegment = swSketchMgr.CreateSpline2((points), True) - ' If Err.Number <> 0 Then - ' MsgBox "Ioeaea i?e nicaaiee nieaeia: " & Err.Description, vbCritical - ' Debug.Print "8. Error creating spline: " & Err.Description - ' swSketchMgr.InsertSketch False - ' On Error GoTo 0 - ' Exit Sub - 'End If - 'If Not boolStatus Then - ' MsgBox "Ia oaaeinu nicaaou nieaei! I?iaa?uoa ia?aiao?u.", vbCritical - ' Debug.Print "8. Failed to create spline" - ' swSketchMgr.InsertSketch False - ' Exit Sub - 'End If - 'On Error GoTo 0 - 'Debug.Print "8. Spline created successfully" - - ' Caaa?oaiea yneeca - Debug.Print "9. Closing sketch" - swSketchMgr.InsertSketch True - Debug.Print "9. Sketch closed" - - ' Iaiiaeaiea iiaaee - Debug.Print "10. Rebuilding model" - swModel.ForceRebuild3 True - Debug.Print "10. Model rebuilt" - - ' Niiauaiea ia oniaoiii caaa?oaiee - MsgBox "3D-nieaei oniaoii nicaai!", vbInformation -End Sub - diff --git a/reducer/Precessing_Reducer/gear2.SLDPRT b/reducer/Precessing_Reducer/gear2.SLDPRT index d263d1a..2c8af72 100644 Binary files a/reducer/Precessing_Reducer/gear2.SLDPRT and b/reducer/Precessing_Reducer/gear2.SLDPRT differ diff --git a/reducer/Precessing_Reducer/mainGearBody.SLDPRT b/reducer/Precessing_Reducer/mainGearBody.SLDPRT index da920fb..738595b 100644 Binary files a/reducer/Precessing_Reducer/mainGearBody.SLDPRT and b/reducer/Precessing_Reducer/mainGearBody.SLDPRT differ diff --git a/reducer/Precessing_Reducer/spiral.txt b/reducer/Precessing_Reducer/spiral.txt deleted file mode 100644 index 71720e7..0000000 --- a/reducer/Precessing_Reducer/spiral.txt +++ /dev/null @@ -1,158 +0,0 @@ -Option Explicit - -Sub Main() - Dim swApp As SldWorks.SldWorks - Dim swModel As SldWorks.ModelDoc2 - Dim swSketchMgr As SldWorks.SketchManager - Dim swPart As SldWorks.PartDoc - Dim points() As Double - Dim i As Integer - Dim t As Double - Dim x, y, z As Double - Dim numPoints As Integer - Dim radius As Double - Dim numTurns As Double - Dim height As Double - Dim boolStatus As Boolean - - 'Dim swSketchPoint As SldWorks.SketchPoint - Dim swSketchSegment As SldWorks.SketchSegment - - ' ????????????? ????????? ??????? - radius = 0.01 ' ?aaeon nie?aee (a iao?ao) - numTurns = 2 ' Eiee?anoai aeoeia nie?aee - height = 0.01 ' Aunioa nie?aee (a iao?ao) - numPoints = 10 ' Eiee?anoai eiio?ieuiuo oi?ae - - ' Iiaee??aiea e SolidWorks - Debug.Print "1. Attempting to connect to SolidWorks" - On Error Resume Next - Set swApp = Application.SldWorks - If swApp Is Nothing Then - MsgBox "Ia oaaeinu iiaee??eouny e SolidWorks!", vbCritical - Debug.Print "1. Failed to connect to SolidWorks" - Exit Sub - End If - On Error GoTo 0 - Debug.Print "1. Successfully connected to SolidWorks" - - ' I?iaa?ea aeoeaiiai aieoiaioa - Debug.Print "2. Checking active document" - Set swModel = swApp.ActiveDoc - If swModel Is Nothing Then - MsgBox "Ioe?ieoa aieoiaio aaoaee a SolidWorks!", vbExclamation - Debug.Print "2. No active document found" - Exit Sub - End If - Debug.Print "2. Active document found: " & swModel.GetTitle - - ' I?iaa?ea, ?oi yoi aieoiaio aaoaee - If swModel.GetType <> swDocPART Then - MsgBox "Aeoeaiue aieoiaio aie?ai auou aaoaeu?!", vbExclamation - Debug.Print "2. Document is not a part, type: " & swModel.GetType - Exit Sub - End If - Set swPart = swModel - Debug.Print "2. Document is a part" - - ' Eieoeaeecaoey SketchManager - Debug.Print "3. Initializing SketchManager" - Set swSketchMgr = swModel.SketchManager - If swSketchMgr Is Nothing Then - MsgBox "Ia oaaeinu eieoeaeece?iaaou SketchManager!", vbCritical - Debug.Print "3. Failed to initialize SketchManager" - Exit Sub - End If - Debug.Print "3. SketchManager initialized" - - ' I?iaa?ea e cae?uoea aeoeaiiai yneeca - Debug.Print "4. Checking for active sketch" - If Not swSketchMgr.ActiveSketch Is Nothing Then - swSketchMgr.InsertSketch True ' Cae?uou oaeouee yneec - swModel.ClearSelection2 True ' I?enoea auaaeaiey - Debug.Print "4. Closed active sketch" - Else - Debug.Print "4. No active sketch found" - End If - - ' Onoaiiaea ?a?eia yneeca - Debug.Print "5. Setting sketch mode" - swModel.SketchManager.AddToDB = False ' Ioee??aiea i?yiie caiene aey nei?inoe - - ' Nicaaiea 3D-yneeca - Debug.Print "6. Creating 3D sketch" - On Error Resume Next - swModel.SketchManager.Insert3DSketch True - If Err.Number <> 0 Then - MsgBox "Ioeaea i?e nicaaiee 3D-yneeca: " & Err.Description, vbCritical - Debug.Print "6. Error creating 3D sketch: " & Err.Description - On Error GoTo 0 - Exit Sub - End If - On Error GoTo 0 - Debug.Print "6. 3D sketch created successfully" - - ' Eieoeaeecaoey ianneaa oi?ae - ReDim points(0 To numPoints * 3 - 1) ' [x1, y1, z1, x2, y2, z2, ...] - - ' Aaia?aoey eii?aeiao oi?ae (nie?aeu) - Debug.Print "7. Generating control points" - For i = 0 To numPoints - 1 - t = i / (numPoints - 1) - x = radius * Cos(numTurns * 2 * 3.14159 * t) - y = radius * Sin(numTurns * 2 * 3.14159 * t) - z = height * t - points(i * 3) = x - points(i * 3 + 1) = y - points(i * 3 + 2) = z - Debug.Print "7. Point " & i & ": (" & x & ", " & y & ", " & z & ")" - Next i - Debug.Print "7. Control points generated" - - ' Nicaaiea nieaeia - Debug.Print "8. Creating spline" - Debug.Print "Err.Number: " & Err.Number - On Error Resume Next - ' boolStatus = swSketchMgr.CreateSpline(points) - Set swSketchSegment = swSketchMgr.CreateSpline2((points), True) - ' If Err.Number <> 0 Then - ' MsgBox "Ioeaea i?e nicaaiee nieaeia: " & Err.Description, vbCritical - ' Debug.Print "8. Error creating spline: " & Err.Description - ' swSketchMgr.InsertSketch False - ' On Error GoTo 0 - ' Exit Sub - 'End If - 'If Not boolStatus Then - ' MsgBox "Ia oaaeinu nicaaou nieaei! I?iaa?uoa ia?aiao?u.", vbCritical - ' Debug.Print "8. Failed to create spline" - ' swSketchMgr.InsertSketch False - ' Exit Sub - 'End If - 'On Error GoTo 0 - 'Debug.Print "8. Spline created successfully" - - ' Caaa?oaiea yneeca - Debug.Print "9. Closing sketch" - swSketchMgr.InsertSketch True - Debug.Print "9. Sketch closed" - - ' Iaiiaeaiea iiaaee - Debug.Print "10. Rebuilding model" - swModel.ForceRebuild3 True - Debug.Print "10. Model rebuilt" - - ' Niiauaiea ia oniaoiii caaa?oaiee - MsgBox "3D-nieaei oniaoii nicaai!", vbInformation -End Sub - - -' 7. Point 0: (0,01, 0, 0) -' 7. Point 1: (1,73649339122722E-03, 9,84807548215509E-03, 1,11111111111111E-03) -' 7. Point 2: (-9,39691814044484E-03, 3,42022359821382E-03, 2,22222222222222E-03) -' 7. Point 3: (-5,00003064098434E-03, -8,66023634719156E-03, 3,33333333333333E-03) -' 7. Point 4: (7,66041410764426E-03, -6,42791223488659E-03, 4,44444444444444E-03) -' 7. Point 5: (7,66048233538193E-03, 6,42783092413774E-03, 5,55555555555556E-03) -' 7. Point 6: (-4,99993871784355E-03, 8,66028941882481E-03, 6,66666666666667E-03) -' 7. Point 7: (-9,39695444339722E-03, -3,42012385575689E-03, 7,77777777777778E-03) -' 7. Point 8: (1,73638886011905E-03, -9,84809391336488E-03, 8,88888888888889E-03) -' 7. Point 9: (9,99999999943668E-03, -1,06143591732241E-07, 0,01) diff --git a/reducer/Precessing_Reducer/test_001.swp b/reducer/Precessing_Reducer/test_001.swp deleted file mode 100644 index 69461c7..0000000 Binary files a/reducer/Precessing_Reducer/test_001.swp and /dev/null differ diff --git a/reducer/Precessing_Reducer/test_002.swp b/reducer/Precessing_Reducer/test_002.swp deleted file mode 100644 index b0c8052..0000000 Binary files a/reducer/Precessing_Reducer/test_002.swp and /dev/null differ