Language="VBSCRIPT"

Sub CATMain()

'*************************Part auswählen bzw aktivieren jSelection

Set oDocument = CATIA.ActiveDocument

MsgBox "Bitte Part auswählen", 0,"PartSelection"

Dim jSel, jStatus, jFilter(0)

Set jSel = oDocument.Selection

jFilter(0) = "Part"

jStatus = jSel.SelectElement3(jFilter, "Part selektieren / ESC bei keine Auswahl", False, CATMultiSelTriggWhenSelPerf, False)

	If iStatus = "Normal" Then

	End If

Set oPart = oDocument.Selection.Item(1).Value

'msgbox opart.name

'***********************Parameter erzeugen userMasse und Dichte

Set parameters1 = oPart.Parameters

Set dimension1 = parameters1.CreateDimension("Masse.3", "MASS", 0.000000)

dimension1.Rename "userMasse"

Set realParam1 = parameters1.CreateReal("`Reelle Zahl.1`", 0.000000)

realParam1.Rename "dichte"

'*******************Body Auswählen

Set oBody1 = CATIA.ActiveDocument

MsgBox "Bitte Body auswählen", 0 ,"BodySelection"

	Dim iSel, iStatus, sFilter(0)

	set iSel = Catia.ActiveDocument.Selection
 
	sFilter(0) = "Body"

	iStatus = iSel.SelectElement3(sFilter, "Body selektieren / ESC bei keine Auswahl", False, CATMultiSelTriggWhenSelPerf, False)
	
	If iStatus = "Normal" Then

	End If

	myName = oBody1.Selection.Item(1).value.name '<Körpername für masseberechnung 

'msgbox myname, 0, " BodyName"


'*******************Dichte eingeben mit komma nicht mit punkt

dense = inputbox("Wert mit Komma nicht mit Punkt eingeben! " ," Dichte eingeben in KG/m3")

'********************Parameter Werkstoff erzeugen und vom user eingeben lassen

MaterialBezeichnung = inputbox("Bitte Werkstoffbezeichnung eingeben." ," Werkstoffbezichnung")

'msgbox MaterialBezeichnung

Set WerkstPara = parameters1.CreateString("Werkstoff", MaterialBezeichnung)

'******************Masse berechnen

realParam1.Value = dense

Set relations1 = oPart.Relations

Set formula1 = relations1.CreateFormula("Formel.10", "", dimension1, "smartVolume(`"& myName &"`)*10000*dichte")

'********************Eigenschaften zu Part hinzufügen

Set Product1 = oPart.Parent.product

Set Parameters2 = Product1.UserRefProperties

Set dimension2 = Parameters2.CreateDimension("Masse", "MASS", dimension1.value)

Set dimension3 = Parameters2.CreateString("Werkstoff", MaterialBezeichnung)

'******************Eigenschaften zu BOM hinzufügen

Set product1 = oDocument.Product

Set assemblyConvertor1 = product1.GetItem("BillOfMaterial")

Dim arrayOfVariantOfBSTR1(5)
arrayOfVariantOfBSTR1(0) = "Menge"
arrayOfVariantOfBSTR1(1) = "Teilenummer"
arrayOfVariantOfBSTR1(2) = "Werkstoff"
arrayOfVariantOfBSTR1(3) = "Masse"
assemblyConvertor1.SetCurrentFormat arrayOfVariantOfBSTR1

End Sub