Create Thin Feature Revolve in Two Directions Example (VB.NET)
This example shows how to create a thin feature revolve in two directions.
'----------------------------------------------------------------------------
' Preconditions: Open install_dir\samples\tutorial\api\Multiple
Planar_Faces2.sldprt.
'
' Postconditions:
' 1. Creates a thin feature revolve in two directions.
' 2. Examine the graphics area and FeatureManager design tree.
'
' NOTE: Because the model is used elsewhere, do not save changes
'---------------------------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System
Partial
Class
SolidWorksMacro
Sub
main()
Dim
Part As
ModelDoc2
Dim
boolstatus As
Boolean
Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Sketch2",
"SKETCH",
0, 0, 0, True,
0, Nothing,
0)
boolstatus = Part.Extension.SelectByID2("Axis1",
"AXIS",
-0.03249248386774, -0.008890295497245, -0.005457395402805,
True, 16,
Nothing, 0)
boolstatus = Part.Extension.SelectByID2("",
"FACE",
-0.03948753408952, 0.1016773485926, -0.08343298757264,
True, 32,
Nothing, 0)
Dim
myFeature As
Feature
myFeature = Part.FeatureManager.FeatureRevolve2(False,
True,
True,
False,
False,
True, 4, 5,
6.28318530718, 0,
False,
True, 0.01,
0.01, 0, 0.002, 0.01, True,
True,
True)
End
Sub
Public
swApp As
SldWorks
End
Class