'----------------------------------------------------------------------------
' Preconditions:
' 1. Open a sheet metal part that contains two sketch profiles, Sketch1
and
' Sketch2, that reside on parallel planes.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. A lofted bend is inserted in the FeatureManager design tree.
' 2. Inspect the Immediate window.
'
---------------------------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System.Runtime.InteropServices
Imports
System
Imports
System.Diagnostics
Partial
Class
SolidWorksMacro
Dim
Part As
ModelDoc2
Dim
feat As
Feature
Dim
lbfd As
LoftedBendsFeatureData
Dim
boolstatus As
Boolean
Sub
main()
Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Sketch1",
"SKETCH",
0, 0, 0, False,
1, Nothing,
0)
boolstatus = Part.Extension.SelectByID2("Sketch2",
"SKETCH",
0, 0, 0, True,
1, Nothing,
0)
' Insert a lofted bend feature
with two bends
feat = Part.FeatureManager.InsertSheetMetalLoftedBend2(0,
0.0007366, False,
0.0007366, True,
swLoftedBendFacetOptions_e.swBendsPerTransitionSegment, 0, 2, 0, 0)
' Get lofted bend feature data
lbfd = feat.GetDefinition
Debug.Print("Number of sketch
profiles in this feature: " & lbfd.GetProfileCount)
Debug.Print("Thickness: "
& lbfd.Thickness)
Debug.Print("Reverse
thickness direction? " & lbfd.Direction)
Debug.Print("Faceting option
as defined in swLoftedBendFacetOptions_e: "
& lbfd.FacetingOption)
Debug.Print("Faceting option
value: " & lbfd.FacetValue)
Debug.Print("Formed? "
& lbfd.FormedMethod)
Debug.Print("Calculate facet
transitions using vertexes? " & lbfd.ReferToEndPoint)
End
Sub
Public
swApp As
SldWorks
End
Class