Create 360°
Revolve Feature Example (VB.NET)
This example shows how to create a 360°
revolve feature.
'----------------------------------------------------------------------------
' Preconditions:
' Open a part document that contains an axis and a sketch of a rectangle
' to revolve around the axis.
'
' Postconditions:
' 1. A 360° revolve feature is created.
' 2.
The revolve type is printed to the Immediate window.
' 3. The revolve type is set to 3.
' 4. The revolve type is printed to the Immediate window.
'---------------------------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System.Runtime.InteropServices
Imports
System
Imports
System.Diagnostics
Partial
Class
SolidWorksMacro
Dim
swModel As
ModelDoc2
Dim
swModelDocExt As
ModelDocExtension
Dim
swFeatMgr As
FeatureManager
Dim
swFeat As
Feature
Dim
swRevolveFeat As
RevolveFeatureData2
Dim
boolstatus As
Boolean
Sub
main()
swModel = swApp.ActiveDoc
swModelDocExt = swModel.Extension
boolstatus = swModelDocExt.SelectByID2("Axis1",
"AXIS",
-0.001439, 0.008691, -0.001923, False,
16, Nothing,
0)
boolstatus = swModelDocExt.SelectByID2("Sketch1",
"SKETCH",
0, 0, 0, True,
0, Nothing,
0)
swFeatMgr = swModel.FeatureManager
swFeat = swFeatMgr.FeatureRevolve2(True,
True,
False,
False,
False,
False, 0,
0, 6.2831853071796, 0, False,
False,
0.01, 0.01, 0, 0, 0, True,
True,
True)
swModel.ViewZoomtofit2()
swRevolveFeat = swFeat.GetDefinition
' Set the type of revolve as
defined in swRevolveType_e
Debug.Print("Revolve feature type
before setting to 3: " & swRevolveFeat.Type)
swRevolveFeat.Type = 3
boolstatus = swFeat.ModifyDefinition(swRevolveFeat, swModel,
Nothing)
Debug.Print("Revolve feature type after setting to 3: " &
swRevolveFeat.Type)
End
Sub
Public
swApp As
SldWorks
End
Class