Insert Gusset Feature Example (VB.NET)
This example shows how to create a weldment gusset feature.
'----------------------------------------------------------------------------
' Preconditions: Open install_dir\samples\tutorial\api\weldment_box3.
'
' Postconditions: Creates Gusset5.
'
' NOTE: Because the model is used elsewhere, do not save changes.
'
---------------------------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System.Runtime.InteropServices
Imports
System
Partial
Class
SolidWorksMacro
Dim
Part As
ModelDoc2
Dim
myFeature As
Feature
Dim
boolstatus As
Boolean
Sub
main()
Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("",
"FACE",
0.600909534718824, 0.15614125327869, -0.985000000000127,
True, 0,
Nothing, 0)
boolstatus = Part.Extension.SelectByID2("",
"FACE",
0.597259667129663, 0.0149999999998727, -0.944257845206607,
True, 0,
Nothing, 0)
myFeature = Part.FeatureManager.InsertGussetFeature3(0.005,
swGussetThicknessType_e.swGussetThicknessBothSides,
swGussetProfileLocationType_e.swGussetProfileLocationCenter,
False, 0.025,
0.025, 0.015, 0.78539816339745, 0.015, False,
0.005, 0, False,
False,
False,
0.0125, 0.0125, 0.785398163397452, True,
False)
End
Sub
Public
swApp As
SldWorks
End
Class