---

Ich möchte gerne eine Selection mit einer Forschleife durchsuchen lassen. Abhänging von einigen Bedingungen sollen die Elemente einer weiteren Selection zugeteilt werden. Ich bekomme beim Kompilieren allerdings immer eine Fehlermeldung.
Hier die kritische Stelle:

Selection2.Add (Selection1.Item2(i))

wobei i die Laufvariable der Schleife ist.

Der Fehler lautet:
Run-time error '438'
Object doesn't support this property or method.

Hat jemand ne Idee?

gruß ap

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

probier mal:

Code:

---

Selection2.Add Selection1.Item2(i).value

---

Kanns hier leider nicht testen.

Viele Grüße und schönes Wochenende!

------------------
Du musst die Leute einmal richtig ärgern, dann wirst du endlich ernst genommen.
Konrad Adenauer

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hmmm habs versucht; es kam folgende Fehlermeldung:

Run-time error '91'
Object variable or With block variable not set

Ich hab Selection1 und Selection2 als Selection deklariert; Was macht Add genau?

gruß ap

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

oSelection.add(oIrgendwas) fügt das Object oIrgendwas zur Selektion hinzu.
Was du vor hast, funktioniert allerdings ganz anders.
Es gibt nämlich nur EINE Selection, die zum aktiven Dokument gehört (die CATIA.ActiveDocument.Selection), nicht zwei oder mehrere.
Du must die Objekte in einem Array zwischenspeichern. Ein Beispiel zur Veranschaulichung. Du musst das Zeug dann noch vorher Filtern (nach deinen Bedingungen)

Sub CATMain()

' deine Elemente sind selektiert
Set oSelection = CATIA.ActiveDocument.Selection

'dynamisches Array (Feld) erzeugen
Dim aArray()
ReDim aArray(0)

'Selection auslesen
For i = 1 to oSelection.Count
   Set aArray(UBound(aArray)) = oSelection.Item(i).Value
   'dynamisches Array immer um ein Feld erweitern
   ReDim Preserve aArray(UBound(aArray)+1)
Next

'Selection leeren
oSelection.Clear

'Array auslesen & der Selection zufügen, sofern Bedingung erfüllt ist
For j = 0 to UBound(aArray) - 1
   If sWasAuch = WasImmerDuWillst Then
      oSelection.Add(aArray(j))
   End if
Next

'Fertig
End Sub

Hoffe es hilft dir, Gruß & ein schönes Wochenende

------------------
tomtom1972

[Diese Nachricht wurde von tomtom1972 am 31. Mrz. 2007 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Toll! Werd ich gleich testen!
Herzlichen Dank und noch ein schönes Wochenende!
gruß ap

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

...Jahre später... *g*
Nochmal danke! Hatte super funktioniert!

Noch ein Nachtrag:
Wenn man nur mit vba arbeitet könnte man die selektierten Elemente auch in eine Collection einfügen.
In catvbs funktioniert dies allerdings nicht und man muss mit den Arrays, wie oben beschrieben, arbeiten.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP