This example shows how to create a loft using profiles, guide
curves, and a centerline.
'----------------------------------------------------------------------------
' Preconditions: Open a part document that
contains sketches for the profiles,
' guide curves, and centerline for a loft.
'
' Postconditions: A loft is created using the selected sketches.
'-------------------------------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System
Partial
Class
SolidWorksMacro
Dim
Part As
ModelDoc2
Dim
ModelDocExtension As
ModelDocExtension
Dim
FeatMgr As
FeatureManager
Dim
boolstatus As
Boolean
Sub
Main()
Part = swApp.ActiveDoc
ModelDocExtension = Part.Extension
FeatMgr = Part.FeatureManager
Part.ClearSelection2(True)
boolstatus = ModelDocExtension.SelectByID2("Profile",
"SKETCH",
-0.05366906226387, 0.02779202405622, -0.01645511042619,
False, 1,
Nothing, 0)
boolstatus = ModelDocExtension.SelectByID2("Profile2",
"SKETCH",
-0.03807490972985, 0.09779202405622, -0.01314312451485,
True, 1,
Nothing, 0)
boolstatus = ModelDocExtension.SelectByID2("Guide",
"SKETCH",
0, 0, 0, True,
2, Nothing,
0)
boolstatus = ModelDocExtension.SelectByID2("Guide2",
"SKETCH",
0, 0, 0, True,
2, Nothing,
0)
boolstatus = ModelDocExtension.SelectByID2("Guide3",
"SKETCH",
0, 0, 0, True,
2, Nothing,
0)
boolstatus = ModelDocExtension.SelectByID2("Guide4",
"SKETCH",
0, 0, 0, True,
2, Nothing,
0)
boolstatus = ModelDocExtension.SelectByID2("Path",
"SKETCH",
0, 0, 0, True,
4, Nothing,
0)
FeatMgr.InsertProtrusionBlend2(False,
True,
False, 1,
0, 0, 1, 1, True,
True,
False, 0,
0, 0, True,
True,
True,
swGuideCurveInfluence_e.swGuideCurveInfluenceNextGlobal)
End
Sub
Public
swApp As
SldWorks
End
Class