DoArcWallsIntersect
From scripting
Function DoArcWallsIntersect(Wall1 As ArcWall, Wall2 As ArcWall, constSet As HybridBody) As Boolean On Error GoTo Blast Dim W1OGS As OrderedGeometricalSet Set W1OGS = Wall1 Dim W2OGS As OrderedGeometricalSet Set W2OGS = Wall2 Dim W1Body As Body Set W1Body = W1OGS.Bodies.Item("Envelope Body") Dim W2Body As Body Set W2Body = W2OGS.Bodies.Item("Envelope Body") Dim W1Ext 'As HybridShapeExtract Set W1Ext = MyHSFactory.AddNewExtract(MyPart.CreateReferenceFromObject(W1Body)) constSet.AppendHybridShape W1Ext IsUpdatable W1Ext Dim W2Ext 'As HybridShapeExtract Set W2Ext = MyHSFactory.AddNewExtract(MyPart.CreateReferenceFromObject(W2Body)) constSet.AppendHybridShape W2Ext IsUpdatable W2Ext If CheckIntersection(W1Ext, W2Ext) Then DoArcWallsIntersect = True Else DoArcWallsIntersect = False End If MyHSFactory.DeleteObjectForDatum W1Ext MyHSFactory.DeleteObjectForDatum W2Ext Exit Function Blast: DoArcWallsIntersect = False End Function