KeepSolidSplitByIntersection

From scripting
Revision as of 07:08, 22 April 2017 by Nickpisca (talk | contribs) (Created page with " Sub KeepSolidSplitByIntersection(SplitSolid As Split, CompareObj As Variant) Dim Ori Ori = SplitSolid.SplittingSide Dim OppOri OppOri = Not SplitSolid.SplittingSide I...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
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