'---- Begin resolution script For object : Sweep.1



Dim partDocument1 As PartDocument

Set partDocument1 = CATIA.ActiveDocument



Dim part1 As Part

Set part1 = partDocument1.Part



Dim hybridBodies1 As HybridBodies

Set hybridBodies1 = part1.HybridBodies



Dim hybridShapeFactory1 As HybridShapeFactory

Set hybridShapeFactory1 = part1.HybridShapeFactory



Dim hybridBody1 As HybridBody

Set hybridBody1 = hybridBodies1.Item("Geometrical Set.1")



Dim hybridShapes1 As HybridShapes

Set hybridShapes1 = hybridBody1.HybridShapes



Dim hybridShapeSweepExplicit1 As HybridShapeSweepExplicit

Set hybridShapeSweepExplicit1 = hybridShapes1.Item("Sweep.1")



Dim hybridShapePlaneOffset5 As HybridShapePlaneOffset

Set hybridShapePlaneOffset5 = hybridShapes1.Item("Plane.1")





Dim reference6 As Reference

Set reference6 = part1.CreateReferenceFromObject(hybridShapeSweepExplicit1)



Dim reference7 As Reference

Set reference7 = part1.CreateReferenceFromObject(hybridShapePlaneOffset5)



Dim objSPAWorkbench As Workbench

Set objSPAWorkbench = part1.Parent.GetWorkbench("SPAWorkbench")



Dim objMeasurable As Measurable

Set objMeasurable = objSPAWorkbench.Measurable(reference6)



Dim MinimumDistance As Double

MinimumDistance = TheMeasurable.GetMinimumDistance(reference7)



'Dim CompositeRef As Reference

'Set CompositeRef = reference6.ComposeWith(reference7)

'Dim TheMeasurable As Measurable

'Set TheMeasurable = objSPAWorkbench.Measurable(reference7)

'objSPAWorkbench.M

Dim hybridShapeSplit1 As HybridShapeSplit

Set hybridShapeSplit1 = hybridShapeFactory1.AddNewHybridSplit(reference6, reference7, 1)

hybridShapeFactory1.GSMVisibility reference6, 0

hybridBody1.AppendHybridShape hybridShapeSplit1

part1.InWorkObject = hybridShapeSplit1

part1.Update



'---- End resolution script

End Sub

    Public Shared Function AreParalel(ByVal iPart As Part, ByVal iFirstPlane As Plane, ByVal iSecondPlane As Plane) As Boolean

        Dim locSPAWB As SPATypeLib.SPAWorkbench

        Dim locFirstReference, locSecondReference As Reference

        Dim locMeasurable As SPATypeLib.Measurable

        Dim dblAngle As Double



        locFirstReference = iPart.CreateReferenceFromObject(iFirstPlane)

        locSecondReference = iPart.CreateReferenceFromObject(iSecondPlane)

        locSPAWB = iPart.Parent.GetWorkbench("SPAWorkbench") 'aktivování Space Analysis workbench

        locMeasurable = locSPAWB.GetMeasurable(locFirstReference) 'definování 1.reference k měření (základna pro měření)

        dblAngle = locMeasurable.GetAngleBetween(locSecondReference) 'měření úhlu mezi definovanou 2.reference a již definovanou 1.referencí



        If dblAngle = 0 Then

            Return (True)

        Else

            Return (False)

        End If

    End Function