Insert Protrusion Blend Example (VBA)

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.

'-----------------------------------------------------------------------------
Option Explicit

Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim boolstatus As Boolean

Sub main()

Set swApp = Application.SldWorks
 

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("Guide", "SKETCH", 0, 0, 0, True, 2, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Guide2", "SKETCH", 0, 0, 0, True, 2, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Guide3", "SKETCH", 0, 0, 0, True, 2, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Guide4", "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