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