Sub CATMain()


' Dokument öffnen und zuweisen ---------------------------------------------------------------------
	Dim Dokument As Document
	Set Dokument = CATIA.Documents.Add ("Part")
	Dim Bauteil As Part
	Set Bauteil = Dokument.Part
	

' Refenzen wählen und zuweisen -------------------------------------------------------------------
	Dim Was(0)
	Was (0) = "Plane"
	
	Dim Auswahl As Selection
	Set Auswahl = CATIA.ActiveDocument.Selection
	Auswahl.Clear
	MsgBox ("Bitte die Refernz-Ebene auswählen")
	Dim E As CATBSTR
	E=Auswahl.SelectElement (Was, "Bitte Ebene wählen!", true)

	If E = "Normal" Then
			MsgBox (Auswahl.Item(1).Value.Name)
	Else
			MsgBox ("Abbruch")
	End if


' Skizze deklarieren, zuweisen und öffnen ------------------------------------------------------
	Dim UrsprungsElemente, Ebene
	Set UrsprungsEleemente = Bauteil.OriginElements
	Set Ebene = Auswahl.Item(1).Value	

	Dim Skizzen As Sketchers
	Set Skizzen = Bauteil.MainBody.Sketches
	
	Dim Skizze1 As Sketch
	Set Skizze1 = Skizzen.Add (Ebene)

	Dim Wzk As Factory2D
	Dim Wzk3D As Factory3D
	Set Wzk = Skizze1.OpenEdition




' Punkte erzeugen
	Dim Punkt (12)
	
	Set Punkt (1) = Wzk.CreatePoint (0,0)
	Set Punkt (2) = Wzk.CreatePoint (100,0)
	Set Punkt (3) = Wzk.CreatePoint (100,-100)
	

	Dim Linie(2) As Line

	Set Linie(1) = Wzk.CreateLine (0,0,100,0)
	Linie(1).StartPoint = Punkt(1)
	Linie(1).EndPoint = Punkt (2)
	Set Linie(2) = Wzk.CreateLine (100,0,100,-100)
	Linie(2).StartPoint = Punkt(2)
	Linie(2).EndPoint = Punkt (3)


	Dim RefLinie(2) As Reference
	Set RefLinie(1) = Bauteil.CreateReferenceFromObject (Linie(1))
	Set RefLinie(2) = Bauteil.CreateReferenceFromObject (Linie(2))






	' Function AddNewCorner ( iElement1 As Reference, iElement2 As Reference, iSupport As Reference, iRadius As Double, iOrientation1 As Long, iOrientation2 As Long, iTrim As Boolean) As HybridShapeCorner
	'Dim Corner As Corner
	'Set Corner = Wzk.AddNewCorner (RefLinie(1), RefLinie(2), 20)


Skizze1.CloseEdition

Bauteil.Update



End Sub