Sub CATMain()

Dim Bauteil As Part
Dim Dokument As Document
Set Dokument = CATIA.Documents.Add ("Part")
Set Bauteil = Dokument.Part
Dim Box

Dim Wzk3D As HybridShapeFactory
Set Wzk3D = Bauteil.HybridShapeFactory
Dim Ref1,Ref2, Ref3, Ref4, Ref5, Ref6, Ref7 As Reference
Dim HBody As HybridBody
Set HBody = Bauteil.HybridBodies.Add
HBody.Name = "Punkte"
'==============================================================================Punkte 1 2 3
Dim Pt1,Pt2, Pt3 As HybridShapePointCoord
Set Pt1 = Wzk3D.AddNewPointCoord (50,70,100)
Set Pt2 = Wzk3D.AddNewPointCoord (30,60,40)
Set Pt3 = Wzk3D.AddNewPointCoord (10,10,10)
HBody.AppendHybridShape Pt1
HBody.AppendHybridShape Pt2
HBody.AppendHybridShape Pt3

Bauteil.Update

Set Ref1 = Bauteil.CreateReferenceFromObject (Pt1)
Set Ref2 = Bauteil.CreateReferenceFromObject (Pt2)
Set Ref3 = Bauteil.CreateReferenceFromObject (Pt3)
'==============================================================================Linien 4 5
Dim Linie1 As HybridShapeLinePtPt
Set Linie1 = Wzk3D.AddNewLinePtPt (Ref1,Ref2)
HBody.AppendHybridShape Linie1
Set Ref4 = Bauteil.CreateReferenceFromObject (Linie1)

Dim Linie2 As HybridShapeLinePtPt
Set Linie2 = Wzk3D.AddNewLinePtPt (Ref2,Ref3)
HBody.AppendHybridShape Linie2
Set Ref5 = Bauteil.CreateReferenceFromObject (Linie2)

'==============================================================================NormalEbene 6
Dim hybridShapeFactory1 As Factory
Set hybridShapeFactory1 = Bauteil.HybridShapeFactory
Dim Ebene1 As HybridShapePlaneNormal
Set Ebene1 = hybridShapeFactory1.AddNewPlaneNormal(Ref4, Ref2)

HBody.AppendHybridShape Ebene1
Bauteil.Update 
Set Ref6 = Bauteil.CreateReferenceFromObject(Ebene1)

'Bauteil.InWorkObject = Ebene1
'==============================================================================Achsensystem 7
Dim axisSystems1 As AxisSystems
Set axisSystems1 = Bauteil.AxisSystems

Dim axisSystem1 As AxisSystem
Set axisSystem1 = axisSystems1.Add()


axisSystem1.OriginType = catAxisSystemOriginByPoint

axisSystem1.OriginPoint = Ref2

axisSystem1.XAxisType = catAxisSystemAxisSameDirection

axisSystem1.XAxisDirection = Ref6

axisSystem1.YAxisType = catAxisSystemAxisSameDirection

axisSystem1.YAxisDirection = Ref5

'Dim Vz_A(2)  'Richtungsvektoren des aktiven Achsensystems
'AxisSystems1.GetZAxis Vz_A
'MsgBox (Vz_A(0) & "  ;  " & Vz_A(1) & "  ;  " & Vz_A(2))


axisSystem1.IsCurrent = True

Set Ref7 = Bauteil.CreateReferenceFromName("Face:(Brp:(AxisSystem.1;2);None:());AxisSystem.1")
Bauteil.Update 
'==============================================================================Skizze
Dim bodies1 As Bodies
Set bodies1 = Bauteil.Bodies

Dim body1 As Body
Set body1 = bodies1.Item("Hauptkörper")

Dim sketches1 As Sketches
Set sketches1 = body1.Sketches


Dim sketch1 As Sketch
Set sketch1 = sketches1.Add(Ref7)
Bauteil.Update

End Sub