Code:
Dim documents1 As Documents
Set documents1 = CATIA.DocumentsDim drawingDocument1 As DrawingDocument
Set drawingDocument1 = documents1.Add("Drawing")
drawingDocument1.Standard = catISO
Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets
Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.Item(1)
drawingSheet1.PaperSize = catPaperA0
drawingSheet1.[Scale] = 1#
drawingSheet1.Orientation = catPaperLandscape
Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views
Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.Add("AutomaticNaming")
Dim drawingViewGenerativeLinks1 As DrawingViewGenerativeLinks
Set drawingViewGenerativeLinks1 = drawingView1.GenerativeLinks
Dim drawingViewGenerativeBehavior1 As DrawingViewGenerativeBehavior
Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior
Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Item("PARTNAME.CATPart")
Dim part1 As Part
Set part1 = partDocument1.Part
Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies
Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("DXF")
Dim sketches1 As Sketches
Set sketches1 = hybridBody1.HybridSketches
Dim sketch1 As Object
Set sketch1 = sketches1.Item("DXF_Skizze")
Dim myAxisCoordinate(8)
sketch1.GetAbsoluteAxisData myAxisCoordinate
drawingViewGenerativeLinks1.AddLink hybridBody1
drawingViewGenerativeBehavior1.DefineFrontView myAxisCoordinate(3), myAxisCoordinate(4), myAxisCoordinate(5), myAxisCoordinate(6), myAxisCoordinate(7), myAxisCoordinate(8)
drawingView1.X = 100
drawingView1.Y = 100
drawingView1.[Scale] = 1#
Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior
drawingViewGenerativeBehavior1.Update
drawingView1.Activate
End Sub