Language="VBSCRIPT"

Sub CATMain()

Set drawingDocument1 = CATIA.ActiveDocument

Set drawingSheets1 = drawingDocument1.Sheets

Set drawingSheet1 = drawingSheets1.Item("Sheet.1")

Set drawingViews1 = drawingSheet1.Views

Set drawingView1 = drawingViews1.Add("AutomaticNaming")

Set drawingViewGenerativeLinks1 = drawingView1.GenerativeLinks

Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior

Set documents1 = CATIA.Documents

Set partDocument1 = documents1.Item ("4578710__A__1_A_5P_FRGMOD_ZB_RUECKLAUFSCHLAUCH_AUT____________PRJA.CATPart")

Set product1 = partDocument1.GetItem("4578710 ZB RUECKLAUFSCHLAUCH AUT.          N20    A  1 A FRGMOD 5P  0")

drawingViewGenerativeBehavior1.Document = product1

drawingViewGenerativeBehavior1.SetFrontView 0.190616, 0.981625, -0.008836, -0.035325, -0.002136, -0.999374

drawingView1.x = 594.500000

drawingView1.y = 420.500000

drawingView1.Scale = 1.000000

Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior

drawingViewGenerativeBehavior1.Update 

drawingView1.Activate 

End Sub