Create Variable-pitch Helix (VB.NET)
This example shows how to create a variable-pitch helix.
'---------------------------------------------------------
'
' Preconditions: Specified part document template exists.
'
' Postconditons: A variable-pitch helix is created.
'
'---------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports System
Partial
Class SolidWorksMacro
Public
Sub Main()
Dim swModel
As ModelDoc2
Dim swSketchManager
As SketchManager
Dim swSketchSegment
As SketchSegment
Dim
swFeatureManager As
FeatureManager
Dim swFeature
As Feature
Dim errors
As
Integer
Dim
status As
Boolean
' Create part
document
swModel = swApp.NewDocument("C:\Documents
and Settings\All Users\Application Data\SOLIDWORKS\SOLIDWORKS 2011\templates\Part.prtdot",
0, 0, 0)
swApp.ActivateDoc2("Part1",
False, errors)
swModel = swApp.ActiveDoc
swSketchManager = swModel.SketchManager
swFeatureManager = swModel.FeatureManager
' Sketch a circle
swSketchSegment = swSketchManager.CreateCircle(0.0#,
0.0#, 0.0#, 0.045549, 0.013926, 0.0#)
' Create a variable-pitch helix using the
sketched circle
status = swFeatureManager.InsertVariablePitchHelix(False,
True, 1, 4.712388980385)
status = swFeatureManager.AddVariablePitchHelixFirstPitchAndDiameter(0.053,
0.05382625271268)
status = swFeatureManager.AddVariablePitchHelixSegment(0.0265,
0.05382625271268, 0.5)
status = swFeatureManager.AddVariablePitchHelixSegment(0.03975,
0.05382625271268, 0.75)
status = swFeatureManager.AddVariablePitchHelixSegment(0.046375,
0.05382625271268, 0.875)
status = swFeatureManager.AddVariablePitchHelixSegment(0.053,
0.05382625271268, 1)
swFeature = swFeatureManager.EndVariablePitchHelix()
End
Sub
'''
<summary>
''' The SldWorks swApp
variable is pre-assigned for you.
'''
</summary>
Public
swApp As SldWorks
End
Class