---

Hallo,

wie ich die Farbeigenschaft von einem einzelnen Objekt auslese ist mir klar, das mache ich mit:

set VisProp = CATIA.ActiveDocument.Selection.VisProperties
VisProp.GetRealColor r, g, b

wie siehts aber jetzt aus wenn ich z.B. mehrere Elemente habe und die unterschiedliche Farben besitzen?

Mein versuch war:

Code:

---

For A = 1 to Selection.count
Set SingleSel = Selection. Item(A).Value
Set VisProp = SingleSel.visproperties
VisProp.GetRealColor r, g, b
'Ausgabe Farbwerte
Next

---

Hier meldet er dann die Meldung: Object doesnŽt support this property or method.

Wo ist hier der Fehler?

Gruß

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

---

Der Fehler ist vermutlich in der Zeile, die er Dir anzeigt.

Wenn ich raten müsste und das muss ich ja:

Set SingleSel = Selection. Item(A).Value

Ich sehe ein Leerzeichen zu viel, dann würde ich Item2 verwenden und ich denke nicht das .Value korrekt ist.

Des weiteren würde ich VisProp As Object deklarieren und mit einem vorangestellten Call aufrufen.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Also der Leerschritt ist ein Tippfehler der mir hier passiert ist, da ich da nicht mit Copy/Paste erledigt habe. Die Definitionen mit Dim hab ich weggelassen hier, sind aber im Code vorhanden.

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

---

Servus
Wie schon Henry geschrieben darfst du nicht auf das Object (Value) sondern nur auf die Selection zugreifen:

Set VisProp = Selection.Item2(A).visproperties
VisProp.GetRealColor r, g, b

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hab die Zeile

Code:

---

Set VisProp = Selection.Item2(A).visproperties

---

exakt so übernommen es kommt jedoch immer noch die gleiche Fehlermeldung. Der Rest vom Makro ist korrekt, denn das läuft fehlerfrei.

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

---

Servus
Versuch es mal so:
Set VisProp = Selection.visproperties
Scheint so dass immer nur die ganze Selection angesprochen werden kann.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Mit der ganzen funktionierte es ja von anfang an. Ich wollte aber die Elemente in einer Selektion einzeln abfragen. Wenn dann muß ich wohl nen anderen Weg gehen, außer es hat noch jemand ne Idee dazu.

Aber trotzdem Danke!

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

---

Servus
Dann musst du wohl die Selection zwischenspeichern (in einer Collection), die Objekte einzeln selektieren und die Farbe auslesen.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Richtig, das ist mein Weg. Hab da schon angefangen nur hatte ich jetzt keine Zeit mehr. Mals ehen wies morgen früh aussieht.

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