Hallo zusammen,
ich beschäftige mich seit ein paar Wochen mit VBA Programmierung unter Catia V5R16.
Ich möchte den Inhalt einer ListBox suchen. Dazu Habe ich folgenden Code geschrieben:
Sub Suche()
Dim name
Dim AutoSel As Selection
Dim AutoSel2 As Selection
For i = 0 To Me.ListBox2.ListCount - 1 Step 1
name = Me.ListBox2.List(i)
Set AutoSel = CATIA.ActiveDocument.Selection
AutoSel.Clear
AutoSel.Search (".Fläche.Name=name,Alle")
AutoSel.copy
CATIA.ActiveWindow.ActivateNext
Set AutoSel2 = CATIA.ActiveDocument.Selection
AutoSel2.Clear
AutoSel2.Search ("..Name=name")
AutoSel2.PasteSpecial "CATPrtResultWithOutLink"
AutoSel2.Clear
Next
End Sub
AutoSel.search bleibt ergebnislos. Es wird nichts selektiert.
Kann ich generell nicht nach Variablen suchen?
Ich habe auch versucht "name" als String zu deklarieren, das ist offenbar nicht das Problem.
Hat jemand eine Idee was ich noch probieren könnte?
Danke im Voraus!
Grüße Heiko
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP