Hallo,
ich habe zunächst folgende Zeilen mit denen ich den Namen eines GeoSets aus dem Part Namen abgreife und in eine ComboBox schreibe:
'XXX Abgreifen Name GeoSet der Variante XXX
Dim myPartNumber As String
myPartNumber = Mid(myPart.Name, 21, 11)
Me.ComboBox_Modul.Items.Add(myPartNumber)
Was ich nun brauche ist das Auslesen der Namen aller UnterSets in diesem GeoSet. Diese werden dann in eine andere Combobox geschrieben.
Angefangen habe ich mit:
myHybBody = myPart.HybridBodies.Item(myPartNumber)
Dann hätte ich gesagt, sollte er die UnterSets zählen:
myHybBody.HybridBodies.Items.Count() - hier kommt aber schon eine Fehlermeldung
Ich hänge gerade fest.
Ich habe aus einem Parameter Set auch werte rausgeschrieben. Vielleicht kann man das umstricken, dass es für GeoSets funktioniert.
Dim myFzgVarianten As Object()
myParam = myPart.Parameters.Item("Fahrzeugtypenabhaengige_Variantenkonfiguration")
myParamConfig = CType(myParam, KnowledgewareTypeLib.StrParam)
ReDim myFzgVarianten(myParamConfig.GetEnumerateValuesSize() - 1)
myParamConfig.GetEnumerateValues(myFzgVarianten)
' Befülle DropDown mit den verfügbaren Elementvarianten
For Each variantName As String In myFzgVarianten
Me.ComboBox_VAR_KONFIG.Items.Add(variantName)
Next
Danke für eure Hilfe!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP