12-11-2023
01:24 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-11-2023
01:24 AM
Yes you are right, strangely, you have to select the value once manually for it to work afterwards.
Try this modified code, it works fine on my side:
oPara = ThisApplication.ActiveDocument.ComponentDefinition.Parameters.UserParameters Try Param = Parameter.Param("SML") Catch oPara.AddByValue("SML", "", kTextUnits) MultiValue.SetList("SML", "Wert1", "Wert2", "Wert3") Parameter.Param("SML").Value = "Wert1" End Try If iProperties.Value("Summary", "Keywords") = "" Then Parameter.Param("SML").Value = InputListBox("bitte doppelklick auf Auswahl", MultiValue.List("SML"), SML, Title := "SML nach Vornummer", ListName := "Liste") iProperties.Value("Summary", "Keywords") = Parameter.Param("SML").Value iLogicVb.UpdateWhenDone = True Parameter.UpdateAfterChange = True InventorVb.DocumentUpdate() End If
Vincent.