---

Hallo,
ich habe versucht per Makro-Aufzeichnung die Hintergrundfarbe auf Weiß zu stellen.
Bei der Ausführung wird zwar unter den Optionen die geänderte Hintergrundfarbe angezeigt, aber leider bleibt der eigentliche Hintergrund in der ursprünglichen Farbe.

Gibt es ein Makro, um die Hintergrundfarbe per Knopfdruck zu ändern?

Besten Dank
Gruß
C. Leson

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

---

Hallo,
versuchs mal so (Ohne Test und somit ohne Gewähr):
CATIA.ActiveWindow.ActiveViewer.PutBackgroundColor Array(0, 0, 1)

Zitat aus der online-doku: "PutBackgroundColor - Sets the viewer's background color. The color is expressed in the RGB color mode, as a triplet of coordinates ranging from 0 to 1 for the red, green, and blue colors respectively."

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
http:\\catia.cad.de

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

---

Hallo,

probier dies --> als *.catvbs abspeichern.
Funktioniert bei mir.

Sub catmain()

    Set PictureViewer = CATIA.ActiveWindow.ActiveViewer

    'Aktuelle Hintergrundfarbe auf Variable
    Dim color(2)
    PictureViewer.GetBackgroundColor color

    If color(0) = 1 And color(1) = 1 And color(2) = 1 Then

        'Hintergrund auf CATIA Stansdartfarbe
        PictureViewer.PutBackgroundColor Array(0.2, 0.2, 0.4)

    Else

        'Hintergrund auf Weis
        PictureViewer.PutBackgroundColor Array(1, 1, 1)

    End If

  End Sub

gruss
Fazer

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

---

Hallo,

besten Dank euch beiden für die schnelle Antwort.

Genau das habe ich gesucht.

Unities sind unterwegs.

Gruß
C. Leson

P.S.: Vieleicht fällt euch ja etwas ein zu meinem anderen Thema:
      Lizenz per Makro an- und ausschalten.

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