Text dotazu:

Sub CATMain()



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 hybridBody1 As HybridBody

Set hybridBody1 = hybridBodies1.Item(1)



Dim hybridShapeFactory1 As HybridShapeFactory

Set hybridShapeFactory1 = part1.HybridShapeFactory



Dim hSPointCoord1 As HybridShapePointCoord

        Set hSPointCoord1 = hybridShapeFactory1.AddNewPointCoord(0, 0, 0)

        hybridBody1.AppendHybridShape hSPointCoord1

        part1.InWorkObject = hSPointCoord1

        part1.UpdateObject hSPointCoord1

        



Dim reference1 As Reference

Set reference1 = part1.CreateReferenceFromObject(hSPointCoord1)







Dim hybridShapeSphere1 As HybridShapeSphere

Set hybridShapeSphere1 = hybridShapeFactory1.AddNewSphere(reference1, Nothing, 2#, -45#, 45#, 0#, 180#)



hybridShapeSphere1.Limitation = 1



hybridBody1.AppendHybridShape hybridShapeSphere1



part1.InWorkObject = hybridShapeSphere1



part1.Update



End Sub