Hallo tberger,
danke für deine Hilfe.
Hab nun selbst noch ein rumprobiert, und mit dem untenstehenden Code funktioniert es so wie ich es benötige - auch wenn ich es nicht ganz kapiert wieso
Sub Achsensysteme_auslesen(mypart, mysel, Achsennamen())
'Alle assoziativen Achsensysteme in dem selektierten Part werden gesucht und die Namen in den Array "Achsennamen" geschrieben
'Die absoluten Achsensysteme werden in der deutschen und englischen Form ausgefiltert.
'Isolierte Achsensysteme werden ebenfalls ausgefiltert
Dim index
Dim index_real
Dim achse_real
index_real = 0
mysel.Clear
mysel.Search (" .'Axis System';in ")
If mysel.Count2 > 0 Then
For index = 1 To mysel.Count2
If mysel.Item2(index).value.Name <> "Absolutes Achsensystem" And mysel.Item2(index).value.Name <> "Absolute Axis System" Then
Set achse_real = mypart.FindObjectByName(mysel.Item2(index).value.Name)
If Err.Number = 0 And achse_real.Type <> 3 Then
ReDim Preserve Achsennamen(0, (index_real))
Achsennamen(0, (index_real)) = mysel.Item2(index).value.Name
index_real = index_real + 1
End If
End If
Next
End If
mysel.Clear
End Sub
Danke und Gruss aus dem nebligen Süden
Crio
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP