Difference between revisions of "DoArcWallsIntersect"

Latest revision as of 05:26, 22 April 2017

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