Difference between revisions of "KeepSolidSplitByIntersection"
From scripting
(Created page with " Sub KeepSolidSplitByIntersection(SplitSolid As Split, CompareObj As Variant) Dim Ori Ori = SplitSolid.SplittingSide Dim OppOri OppOri = Not SplitSolid.SplittingSide I...") |
(No difference)
|
Latest revision as of 07:08, 22 April 2017
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