Seznam příspěvků uživatele

        AppActivate("CATIA V5")

        SendKeys.Send("{ENTER}")

Sub CATMain()



Dim partDocument1 As Document

Set partDocument1 = CATIA.ActiveDocument



Dim part1 As Part

Set part1 = partDocument1.Part



Dim originElements1 As OriginElements

Set originElements1 = part1.OriginElements



Dim hybridShapePlaneExplicit1 As AnyObject

Set hybridShapePlaneExplicit1 = originElements1.PlaneXY



Dim reference1 As Reference

Set reference1 = part1.CreateReferenceFromObject(hybridShapePlaneExplicit1)



Dim Hbody As HybridBodies

Set Hbody = part1.HybridBodies



Dim GS1 As HybridBody

Set GS1 = Hbody.Item(1)



Dim hybridShapes1 As HybridShapes

Set hybridShapes1 = GS1.HybridShapes



Dim hybridShapeFactory1 As Factory

Set hybridShapeFactory1 = part1.HybridShapeFactory



Dim hybridShapeLineExplicit1 As HybridShape

Set hybridShapeLineExplicit1 = hybridShapeFactory1.AddNewDirectionByCoord(1#, 0#, 0#)



Dim reference2 As Reference

Set reference2 = part1.CreateReferenceFromObject(hybridShapeLineExplicit1)



Dim hybridShapePlaneAngle1 As HybridShapePlaneAngle

Set hybridShapePlaneAngle1 = hybridShapeFactory1.AddNewPlaneAngle(reference1, reference2, 45#, False)



hybridShapePlaneAngle1.ProjectionMode = False



GS1.AppendHybridShape hybridShapePlaneAngle1



part1.InWorkObject = hybridShapePlaneAngle1



part1.Update



End Sub