KeepSolidSplitByIntersection
From scripting
Sub KeepSolidSplitByIntersection(SplitSolid As Split, CompareObj As Variant) Dim Ori Ori = SplitSolid.SplittingSide Dim OppOri OppOri = Not SplitSolid.SplittingSide If IsUpdatable(SplitSolid) Then Dim TempInt As HybridShapeIntersection Set TempInt = MyHSFactory.AddNewIntersection(MyPart.CreateReferenceFromObject(SplitSolid), CompareObj) If IsUpdatable(TempInt) = False Then SplitSolid.SplittingSide = OppOri IsUpdatable SplitSolid End If End If End Sub