Language="VBSCRIPT"

'----------------------------------------
'----------------------------------------
Sub CATMain()
	'Fehlerbehandlung / Abfrage des aktiven Dokuments
		If CATIA.Windows.Count <> 0 Then
			Box = MsgBox("Es sind bereits Dokumente geöffnet!!!"  & vbLF & _
					"---------------------------------------------------------"   & vbLF & _
					"Bitte schließen Sie alle Dokumente in Catia und starten Sie"  & vbLF & _
					"dann CREATE_Project erneut.", 16, "Kein ActiveDocument!!!")
    			Exit Sub
		End If

			Set oDocs = CATIA.Documents
			Set oProd = oDocs.Add("Product")
			Set oDoc = CATIA.ActiveDocument

'----------------------------------------

'----------------------------------------
	'Erstellung der Parameter
		Set product = oDoc.Product
		Set products = product.Products

			Set parameters1 = product.Parameters
			Set strParam1 = parameters1.CreateString("Pos_Nr.", "0000")

			Set parameters2 = product.Parameters
			Set strParam2 = parameters2.CreateString("Hersteller", "EFS")

			Set parameters3 = product.Parameters
			Set strParam3 = parameters3.CreateString("Projekt-Nr.", "")

			Set parameters4 = product.Parameters
			Set strParam4 = parameters4.CreateString("Projekt-Name", "")

			Set parameters5 = product.Parameters
			Set strParam5 = parameters5.CreateString("Produktart", "BG")

			Set relations6 = product.Relations
			Set parameters6 = product.Parameters
			Set strParam6 = parameters6.CreateString("Ident-Nr.", "")
			Set formula6 = relations6.CreateFormula("formula6", "", strParam6, "`Pos_Nr.` + " & """" & "_" & """" & " + `Projekt-Name` ")

			Set parameters7 = product.Parameters
			Set strParam7 = parameters7.CreateDimension("Masse", "Mass", 0.000000)





'########################################################################

			Set relations8 = product.Relations
			Set parameters8 = product.Parameters.Item("oDoc\Part Number")
			Set parameter8 = CATIA.ActiveDocument.Product.Products.GetItem("PartNumber")
			Set formula8 = relations8.CreateFormula("formula8", "", parameter8, "`Projekt-Nr.` + " & """" & "_" & """" & " + Produktart + " & """" & "_" & """" & " + `Pos_Nr.` + " & """" & "_" & """" & " + `Projekt-Name` ")

'########################################################################





'----------------------------------------

'----------------------------------------
	'Befüllung der Parameter
		'Angabe 1 von 1
			myFunc = InputBox ("Bitte geben Sie die Projektnummer an (20150000-3-01).", "Angabe 1 von 2", "")
				strParam3.Value = myFunc

		'Angabe 2 von 2
			myFunc = InputBox ("Bitte geben Sie den Projektnamen an.", "Angabe 2 von 2", "")
				strParam4.Value = myFunc

'----------------------------------------

'----------------------------------------
	'Adapter erzeugen und fixieren
		Set oAdapter = products.AddNewComponent("Part", "Name")

'----------------------------------------
	'Projektordner wählen und abspeichern



End Sub