12-11-2023
12:16 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-11-2023
12:16 AM
Hi, Can you try this :
oPara = ThisApplication.ActiveDocument.ComponentDefinition.Parameters.UserParameters Try Param = Parameter("SML") Catch oPara.AddByValue("SML", "", kTextUnits) MultiValue.SetList("SML", "Wert1", "Wert2", "Wert3") End Try If iProperties.Value("Summary", "Keywords") = "" Then SML = InputListBox("bitte doppelklick auf Auswahl", MultiValue.List("SML"), SML, Title := "SML nach Vornummer", ListName := "Liste") iProperties.Value("Summary", "Keywords") = SML iLogicVb.UpdateWhenDone = True Parameter.UpdateAfterChange = True InventorVb.DocumentUpdate() End If
Vincent.