09.06.2025_macro_v6
This commit is contained in:
parent
66e917de4d
commit
ae173de478
13 changed files with 324 additions and 0 deletions
Binary file not shown.
Binary file not shown.
BIN
reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_002.swp
Normal file
BIN
reducer/Precessing_Reducer/Precessing_Reducer_gear_macro_002.swp
Normal file
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
BIN
reducer/Precessing_Reducer/Select Plane Example.swp
Normal file
BIN
reducer/Precessing_Reducer/Select Plane Example.swp
Normal file
Binary file not shown.
BIN
reducer/Precessing_Reducer/Test_gear.SLDPRT
Normal file
BIN
reducer/Precessing_Reducer/Test_gear.SLDPRT
Normal file
Binary file not shown.
BIN
reducer/Precessing_Reducer/Test_gear_002.SLDPRT
Normal file
BIN
reducer/Precessing_Reducer/Test_gear_002.SLDPRT
Normal file
Binary file not shown.
BIN
reducer/Precessing_Reducer/Test_gear_003.SLDPRT
Normal file
BIN
reducer/Precessing_Reducer/Test_gear_003.SLDPRT
Normal file
Binary file not shown.
166
reducer/Precessing_Reducer/gear.txt
Normal file
166
reducer/Precessing_Reducer/gear.txt
Normal file
|
|
@ -0,0 +1,166 @@
|
|||
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
|
||||
|
||||
158
reducer/Precessing_Reducer/spiral.txt
Normal file
158
reducer/Precessing_Reducer/spiral.txt
Normal file
|
|
@ -0,0 +1,158 @@
|
|||
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)
|
||||
Loading…
Add table
Add a link
Reference in a new issue