face selection with rules

Hi,I record a journal and did some tweaks. It can be used on any workpart.
I created a solid to be split and a face (top face is open) to split the solid.
After split,I used the command of Offset Face to offset the split body.Then there is a gap (foreign faces and bottom face)between the two bodies.
Here I have a question. I just want there is a gap around the foreign faces.
How can I modify my code to do this.If I have to use UF_UI_SEL_FEATURE_FOREIGN_FACE.I posted my code.
I'm poor in English.I hope you can understand what I said.

' NX 10.0.2.6
' Journal created by SH00000747 on Fri Nov 04 13:20:55 2016
'
Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF

Module NXJournal
Sub Main (ByVal args() As String)

Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
Dim workPart As NXOpen.Part = theSession.Parts.Work
Dim theUfSession As UFSession = UFSession.GetUFSession()

Dim displayPart As NXOpen.Part = theSession.Parts.Display

' ----------------------------------------------
' メニュー: 挿入(S)->トリム(T)->ボディの分割(P)...
' ----------------------------------------------
Dim markId1 As NXOpen.Session.UndoMarkId
markId1 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Visible, "開始")

Dim nullNXOpen_Features_SplitBody As NXOpen.Features.SplitBody = Nothing

If Not workPart.Preferences.Modeling.GetHistoryMode Then
Throw(New Exception("Create or edit of a Feature was recorded in History Mode but playback is in History-Free Mode."))
End If

Dim splitBodyBuilder1 As NXOpen.Features.SplitBodyBuilder
splitBodyBuilder1 = workPart.Features.CreateSplitBodyBuilderUsingCollector(nullNXOpen_Features_SplitBody)

Dim origin1 As NXOpen.Point3d = New NXOpen.Point3d(0.0, 0.0, 0.0)
Dim normal1 As NXOpen.Vector3d = New NXOpen.Vector3d(0.0, 0.0, 1.0)
Dim plane1 As NXOpen.Plane
plane1 = workPart.Planes.CreatePlane(origin1, normal1, NXOpen.SmartObject.UpdateOption.WithinModeling)

splitBodyBuilder1.BooleanTool.FacePlaneTool.ToolPlane = plane1

Dim unit1 As NXOpen.Unit = CType(workPart.UnitCollection.FindObject("MilliMeter"), NXOpen.Unit)

Dim expression1 As NXOpen.Expression
expression1 = workPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)

Dim expression2 As NXOpen.Expression
expression2 = workPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)

splitBodyBuilder1.BooleanTool.ExtrudeRevolveTool.ToolSection.PrepareMappingData()

theSession.SetUndoMarkName(markId1, "ボディの分割ダイアログ")

splitBodyBuilder1.BooleanTool.ExtrudeRevolveTool.ToolSection.DistanceTolerance = 0.01

splitBodyBuilder1.BooleanTool.ExtrudeRevolveTool.ToolSection.ChainingTolerance = 0.0095

Dim scCollector1 As NXOpen.ScCollector
scCollector1 = workPart.ScCollectors.CreateCollector()

Dim bodies1(0) As NXOpen.Body

Dim body1 As Body = SelectSolid()

bodies1(0) = body1
Dim bodyDumbRule1 As NXOpen.BodyDumbRule
bodyDumbRule1 = workPart.ScRuleFactory.CreateRuleBodyDumb(bodies1, True)

Dim rules1(0) As NXOpen.SelectionIntentRule
rules1(0) = bodyDumbRule1
scCollector1.ReplaceRules(rules1, False)

splitBodyBuilder1.TargetBodyCollector = scCollector1

Dim features1(0) As NXOpen.Features.Feature

Dim selectedFace As Face = Nothing
If SelectFace("select face", selectedFace) = Selection.Response.Cancel Then
Return
End If

Dim faceFeat As Features.Feature
Dim faceFeatTags() As Tag = Nothing
theUfSession.Modl.AskFaceFeats(selectedFace.Tag, faceFeatTags)
faceFeat = Utilities.NXObjectManager.Get(faceFeatTags(0))

features1(0) = faceFeat
Dim faceFeatureRule1 As NXOpen.FaceFeatureRule
faceFeatureRule1 = workPart.ScRuleFactory.CreateRuleFaceFeature(features1)

Dim rules2(0) As NXOpen.SelectionIntentRule
rules2(0) = faceFeatureRule1
splitBodyBuilder1.BooleanTool.FacePlaneTool.ToolFaces.FaceCollector.ReplaceRules(rules2, False)

Dim markId2 As NXOpen.Session.UndoMarkId
markId2 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "ボディの分割")

theSession.DeleteUndoMark(markId2, Nothing)

Dim markId3 As NXOpen.Session.UndoMarkId
markId3 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "ボディの分割")

Dim nXObject1 As NXOpen.NXObject
nXObject1 = splitBodyBuilder1.Commit()

theSession.DeleteUndoMark(markId3, Nothing)

theSession.SetUndoMarkName(markId1, "ボディの分割")

splitBodyBuilder1.BooleanTool.ExtrudeRevolveTool.ToolSection.CleanMappingData()

splitBodyBuilder1.Destroy()

Try
' 式はまだ使用中です
workPart.Expressions.Delete(expression2)
Catch ex As NXException
ex.AssertErrorCode(1050029)
End Try

Try
' 式はまだ使用中です
workPart.Expressions.Delete(expression1)
Catch ex As NXException
ex.AssertErrorCode(1050029)
End Try

plane1.DestroyPlane()

' ----------------------------------------------
' メニュー: 挿入(S)->オフセット/スケール(O)->オフセットフェース(F)...
' ----------------------------------------------
Dim markId4 As NXOpen.Session.UndoMarkId
markId4 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Visible, "開始")

Dim nullNXOpen_Features_Feature As NXOpen.Features.Feature = Nothing

Dim offsetFaceBuilder1 As NXOpen.Features.OffsetFaceBuilder
offsetFaceBuilder1 = workPart.Features.CreateOffsetFaceBuilder(nullNXOpen_Features_Feature)

offsetFaceBuilder1.Distance.RightHandSide = "0.01"

theSession.SetUndoMarkName(markId4, "オフセットフェースダイアログ")

Dim features2(0) As NXOpen.Features.Feature
Dim splitBody1 As NXOpen.Features.SplitBody = CType(nXObject1, NXOpen.Features.SplitBody)

features2(0) = splitBody1
Dim faceFeatureRule2 As NXOpen.FaceFeatureRule
faceFeatureRule2 = workPart.ScRuleFactory.CreateRuleFaceFeature(features2)

Dim rules3(0) As NXOpen.SelectionIntentRule
rules3(0) = faceFeatureRule2
offsetFaceBuilder1.FaceCollector.ReplaceRules(rules3, False)

offsetFaceBuilder1.Direction = True

Dim markId5 As NXOpen.Session.UndoMarkId
markId5 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "オフセットフェース")

theSession.DeleteUndoMark(markId5, Nothing)

Dim markId6 As NXOpen.Session.UndoMarkId
markId6 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "オフセットフェース")

Dim nXObject2 As NXOpen.NXObject
nXObject2 = offsetFaceBuilder1.Commit()

theSession.DeleteUndoMark(markId6, Nothing)

theSession.SetUndoMarkName(markId4, "オフセットフェース")

Dim expression3 As NXOpen.Expression = offsetFaceBuilder1.Distance

offsetFaceBuilder1.Destroy()

End Sub

' ----------------------------------------------
' メニュー: ツール(T)->ジャーナル(J)->記録を停止(S)
' ----------------------------------------------

Function SelectSolid() As Body

Dim ui As UI = ui.GetUI
Dim message As String = "Select solid body"
Dim title As String = "Selection"

Dim scope As Selection.SelectionScope = Selection.SelectionScope.WorkPart
Dim keepHighlighted As Boolean = False
Dim includeFeatures As Boolean = True

Dim selectionAction As Selection.SelectionAction = _
Selection.SelectionAction.ClearAndEnableSpecific

Dim selectionMask_array(0) As Selection.MaskTriple
With selectionMask_array(0)
.Type = UFConstants.UF_solid_type
.Subtype = 0
.SolidBodySubtype = UFConstants.UF_UI_SEL_FEATURE_SOLID_BODY
End With

Dim selectedObject As NXObject = Nothing
Dim cursor As Point3d

ui.SelectionManager.SelectObject(message, title, scope, _
selectionAction, includeFeatures, _
keepHighlighted, selectionMask_array, _
selectedObject, cursor)

Dim solid As Body = CType(selectedObject, Body)

If solid Is Nothing Then
Return Nothing
End If

Return solid

End Function

Function SelectFace(ByVal prompt As String, ByRef selObj As TaggedObject) As Selection.Response

Dim theUI As UI = UI.GetUI
Dim title As String = "Select a face"
Dim includeFeatures As Boolean = False
Dim keepHighlighted As Boolean = False
Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
Dim cursor As Point3d
Dim scope As Selection.SelectionScope = Selection.SelectionScope.WorkPart
Dim selectionMask_array(0) As Selection.MaskTriple

With selectionMask_array(0)
.Type = UFConstants.UF_solid_type
.SolidBodySubtype = UFConstants.UF_UI_SEL_FEATURE_ANY_FACE
End With

Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt,
title, scope, selAction,
includeFeatures, keepHighlighted, selectionMask_array,
selObj, cursor)
If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
Return Selection.Response.Ok
Else
Return Selection.Response.Cancel
End If

End Function

End Module