Sub InsertRip( _
   ByVal Gap As Double _
) 

Dim instance As IModelDoc2
Dim Gap As Double
 
instance.InsertRip(Gap)

void InsertRip( 
   double Gap
)

void InsertRip( 
&   double Gap
) 

Parameters

Gap

Size of the gap

The direction of the rip is determined by an encoded selection mark (see table and example).

Example

Option Explicit

Dim swApp As SldWorks.SldWorks

Sub main()

    Dim swModel           As SldWorks.ModelDoc2

    Dim bValue            As Boolean

    Dim lRipDirection     As Long

    Dim swFeature         As SldWorks.Feature

    Dim swRipFeatureData  As SldWorks.RipFeatureData

    ' Connect to SolidWorks

    Set swApp = Application.SldWorks

    ' Get active model

    Set swModel = swApp.ActiveDoc

    ' Clear selection

    swModel.ClearSelection2 True

    lRipDirection = 64 'See previous table

    ' Select a sketch line in the model for which no edge exists

    bValue = swModel.Extension.SelectByID2("Line1@Sketch4", "EXTSKETCHSEGMENT", -0.08287974166663, -0.05429248297937, 0, True, lRipDirection, Nothing, 0)

    ' Select two edges

    bValue = swModel.Extension.SelectByID2("", "EDGE", 0.09034940302092, 0.03401936632302, -0.0615169961092, True, lRipDirection, Nothing, 0)

    bValue = swModel.Extension.SelectByID2("", "EDGE", 0.09845029349768, -0.001543927218454, -0.06976898763294, True, lRipDirection, Nothing, 0

    ' Insert the rip feature

    swModel.InsertRip 0.0021

    ' Get inserted rip feature

    ' Assume it is the last feature in the FeatureManager design tree

    Set swFeature = swModel.FeatureByPositionReverse(0)

    ' Clear selection

    swModel.ClearSelection2 True

    Debug.Print "Rip feature: " & swFeature.Name

End Sub