---

Hallo,

vielleicht kann mir einer von euch weiterhelfen. Ich will einen Punkt aus Excel bei einem bestimmten Zellwert einfärben. Momentan probier ich es mit folgendem Code:

                        If (WS.Cells(nRow, 21).Text) = "3" Then

                          Set sel_p = CATIA.ActiveDocument.Selection

                          sel_p.Add Point

                          Set pt_tri = sel_p.VisProperties

                          pt_tri.SetRealColor 0,0,255,1

                        End If

Momentan sehe ich zwar, dass die entsprechenden Punkte selektiert werden, aber am Aussehen ändert sich nichts.

Wenn das geschafft wäre, wollte ich den Punkt auch noch als „Star“ darstellen.

Schon mal im Voraus Danke für die Hilfe.

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

---

Hallo Hartmut,

die Zeile mit der Farbzuweisung sieht für mich ok aus. Ich habe das bei mir in einem Makro auf die gleiche Weise gemacht.

Handelt es sich bei Dir um einen Punkt auf einer Zeichnung oder im 3D?
Im 3D, kann es sein, dass dem Set im dem der Punkt sich befindet eine Farbe hat, die die Farbe des Punktes übersteuert. Geh mal in die Eigenschaften des Punktes und sieh da mal nach ob sich dort die Farbe geändert hat.

------------------
Gruß Michael B.

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

---

Hallo Michael,

die Punkte sind im 3D. Der GeoSet, in dem die Punkte liegen, wird ebenfalls mit dem Makro erzeugt. Anschließend kommen dann die Punkte.
In den Properties tut sich nichts und der GeoSet hat ebenso wie die Punkte die Standardfarbe (das wunderschöne Blassgelb für den GeoSet und Weiß für die Punkte).

Gruß Hartmut

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

---

Also bei mir geht es so:

pt_tri.SetRealColor 0,0,255,0

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

---

Ich hab das mit der Vererbung auch schon probiert, aber leider ohne Erfolg.

[Diese Nachricht wurde von Hartmut44 am 27. Mrz. 2009 editiert.]

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