Hallo,
ich habe den Code etwas verändert ... Ich benötige den Parameter auf Bauteil Eigenschaften Ebene, und dort soll der auch veränderlich sein.
Der Code funktioniert soweit auch gut ... nur habe ich eine Frage bezüglich deutsch / englisch.
Gibt es für den Code, wo engl-> Properties und im deutsch-> Eigenschaften stehen muss, einen sinnvollen allgemeinen Parameter, der an dessen Stelle stehen kann? ... im Code die fett markierten Anteile.
Language="VBSCRIPT"
Sub CATMain()
Set partDocument1 = CATIA.ActiveDocument
Set product1 = partDocument1.GetItem("part1.name")
Set product1 = product1.ReferenceProduct
Set parameters1 = product1.UserRefProperties
Set strParam1 = parameters1.CreateString("DB_Number", "")
strParam1.ValuateFromString ""
Set product1 = product1.ReferenceProduct
Set part1 = partDocument1.Part
Set parameters2 = part1.Parameters
Set strParam2 = parameters2.Item("Properties\DB_Number")
Dim arrayOfVariantOfBSTR1(1)
arrayOfVariantOfBSTR1(0) = "xxxx"
arrayOfVariantOfBSTR1(1) = "----"
strParam2.SetEnumerateValues arrayOfVariantOfBSTR1
strParam2.Value = "xxxx"
Set product1 = product1.ReferenceProduct
Set parameters3 = part1.Parameters
Set strParam3 = parameters3.CreateString("", "")
strParam3.Rename "DB_Number"
Set relations1 = part1.Relations
Set parameters1 = part1.Parameters
Set strParam1 = parameters1.Item("DB_Number")
Set formula1 = relations1.CreateFormula("Formel.11", "", strParam1, "`" & part1.name & "\Properties\DB_Number` ")
formula1.Rename "Formel.11"
strParam1.Hidden = True
formula1.Hidden = True
Set reference1 = product1.CreateReferenceFromName("DB_Number")
Set publications1 = product1.Publications
Set publication1 = publications1.Add("DB_Number")
publications1.SetDirect "DB_Number", reference1
Set settingControllers1 = CATIA.SettingControllers
Set visualizationSettingAtt1 = settingControllers1.Item("CATVizVisualizationSettingCtrl")
visualizationSettingAtt1.SaveRepository
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP