Insert Protrusion Blend Example (VBA)

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.
'-----------------------------------------------------------------------------
Option Explicit

Dim swApp As SldWorks.SldWorks

Dim Part As SldWorks.ModelDoc2
Dim boolstatus As Boolean

Dim longstatus as Long

Dim longwarnings as Long

Sub main()

Set swApp = Application.SldWorks
swApp.OpenDoc6 "c:\Program Files\SolidWorks Corp\SolidWorks\samples\tutorials\api\LoftUsingGuideCurves.SLDPRT", 1, 0, "", longstatus, longwarnings

Set Part = swApp.ActiveDoc
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Profile", "SKETCH", -0.05366906226387, 0.02779202405622, -0.01645511042619, False, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Profile2", "SKETCH", -0.03807490972985, 0.09779202405622, -0.01314312451485, True, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("MajGuide", "SKETCH", 0, 0, 0, True, 2, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("MinGuide", "SKETCH", 0, 0, 0, True, 2, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("MajGuide2", "SKETCH", 0, 0, 0, True, 2, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("MinGuide2", "SKETCH", 0, 0, 0, True, 2, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Path", "SKETCH", 0, 0, 0, True, 4, Nothing, 0)
Part.FeatureManager.InsertProtrusionBlend2 False, True, False, 1, 0, 0, 1, 1, True, True, False, 0, 0, 0, True, True, True, swGuideCurveInfluence_e.swGuideCurveInfluenceNextGlobal

End Sub