Change Pitch of Helix (VB.NET)
This example shows how to change the pitch of a helix.
'-------------------------------------------------------
' Preconditions:
' 1. Model containing a helix feature is open.
' 2. Helix feature is selected.
' 3. Open the Immediate window.
' 4. Run the macro.
'
' Postconditions:
' 1. Pitch of selected helix feature is modified.
' 2. Name of helix feature, original pitch, and
' modified pitch values are printed to the Immediate window.
'--------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports System
Imports System.Diagnostics
Partial
Class SolidWorksMacro
Public
Sub Main()
Dim swModel
As ModelDoc2
Dim swSelMgr
As SelectionMgr
Dim swFeat
As Feature
Dim swHelix
As HelixFeatureData
Dim bRet
As
Boolean
swModel = swApp.ActiveDoc
swSelMgr = swModel.SelectionManager
swFeat = swSelMgr.GetSelectedObject6(1, -1)
swHelix = swFeat.GetDefinition
Debug.Print("Feature = "
& swFeat.Name)
Debug.Print(" Original pitch = "
& swHelix.Pitch * 1000.0# & " mm")
' Change the pitch value
swHelix.Pitch = 1.25 * swHelix.Pitch
Debug.Print(" Modified pitch = "
& swHelix.Pitch * 1000.0# & " mm")
' Apply the change
bRet = swFeat.ModifyDefinition(swHelix,
swModel, Nothing) :
Debug.Assert(bRet)
End
Sub
'''
<summary>
''' The SldWorks swApp
variable is pre-assigned for you.
'''
</summary>
Public
swApp As SldWorks
End
Class