This example shows how to create a loft using profiles, paths, and guide
curves.
'----------------------------------------------------------------------------
' Preconditions: Ensure that the specified part exists.
'
' Postconditions: The FeatureManager design tree contains Loft1.
' NOTE: Because this part is used in other demonstrations, do not
' save any changes to the part.
'-------------------------------------------------------------------------------
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
Dim
longstatus As
Long
Dim
longwarnings As
Long
Sub
Main()
swApp.OpenDoc6("c:\Program Files\SolidWorks
Corp\SolidWorks\samples\tutorials\api\LoftUsingGuideCurves.SLDPRT",
1, 0, "", longstatus, longwarnings)
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("MajGuide",
"SKETCH",
0, 0, 0, True,
2, Nothing,
0)
boolstatus = ModelDocExtension.SelectByID2("MinGuide",
"SKETCH",
0, 0, 0, True,
2, Nothing,
0)
boolstatus = ModelDocExtension.SelectByID2("MajGuide2",
"SKETCH",
0, 0, 0, True,
2, Nothing,
0)
boolstatus = ModelDocExtension.SelectByID2("MinGuide2",
"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