---

Hallo zusammen,

die im Betreff genannten Sachen sind ja in CATIA standartmäßig weiß.
Allerdings würde ich denen gerne eine andere Farbe geben, weil man sie
oft nur sehr schwer erkennen kann. Vor allem die Punkte muß man immer
suchen 

Nun meine Frage: wo kann ich die Farben umstellen??

Danke

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

---

Hallo,
du kannst den Elementen in den Eigenschaften (RMT > Eigenschaften > Grafik > Linien und Kurven > Farbe) ein andere Farbe zuordnen. Wenn du nun standardmäßig die Farben vorgeben möchtest, dann musst du Startmodelle generieren, in denen erstens alle Elemente schon soweit vorhanden sind und die Farbe dementsprechend abgeändert wurde. Jedes neu erzeugte 2D-Element wird wieder weiß dargestellt. In den Settings konnte ich (Stand R17) nichts dazu finden und die Standards sind nur für die Definition innerhalb der Zeichnung wirksam.

------------------
MFG
Rick Schulz

Konfuzius sprach: "Wer sich das Alte noch einmal vor Augen führt, um das Neue zu verstehen, der kann anderen ein Lehrer sein."

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

---

Hallo,

eine Möglichkeit wäre es über ein Makro zu realisieren. Das Makro dann auf einen Button legen und klicken wenn zu unübersichtlich wird. Dabei kann man das alles selektieren und einfärben.

EDIT:
Schau ir mal den folgenden Code an. Dieser färbt alle Ebenen, Punkte, Sketche und Achsensystem grau ein.

Code:

---

Sub CATMain()

    Dim oDoc As PartDocument
    Dim oSel As Selection

    Set oDoc = CATIA.ActiveDocument
    Set oSel = oDoc.Selection
    oSel.Search "((((CATPrtSearch.Plane + CATPrtSearch.Point) + CATPrtSearch.Curve) + CATPrtSearch.Sketch) + CATPrtSearch.AxisSystem),all"
    Set oColor = oSel.VisProperties

   
    oColor.SetRealColor 150, 150, 150, 1
End Sub

---

Das ganze könnte man auch in ne Reaction verpacken (falls KWA-Lizenz vorhanden). Die Reaction wird bei jedem Part update ausgelösst. Dauert zwar dann einen ticken länger (und das bei jedem Update) aber alles ist wie du es wolltest.

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

[Diese Nachricht wurde von denyo_1 am 11. Dez. 2008 editiert.]

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

---

besten dank

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

---

Zitat:

---

Original erstellt von denyo_1:
Hallo,

eine Möglichkeit wäre es über ein Makro zu realisieren. Das Makro dann auf einen Button legen und klicken wenn zu unübersichtlich wird. Dabei kann man das alles selektieren und einfärben.

EDIT:
Schau ir mal den folgenden Code an. Dieser färbt alle Ebenen, Punkte, Sketche und Achsensystem grau ein.

Code:

---

Sub CATMain()

    Dim oDoc As PartDocument
    Dim oSel As Selection

    Set oDoc = CATIA.ActiveDocument
    Set oSel = oDoc.Selection
    oSel.Search "((((CATPrtSearch.Plane + CATPrtSearch.Point) + CATPrtSearch.Curve) + CATPrtSearch.Sketch) + CATPrtSearch.AxisSystem),all"
    Set oColor = oSel.VisProperties

   
    oColor.SetRealColor 150, 150, 150, 1
End Sub

---

Das ganze könnte man auch in ne Reaction verpacken (falls KWA-Lizenz vorhanden). Die Reaction wird bei jedem Part update ausgelösst. Dauert zwar dann einen ticken länger (und das bei jedem Update) aber alles ist wie du es wolltest.

---

Hallo,

bei mir funktioniert das Mekro nicht :-(

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

---

Hallo,

eleganter könnte man das mit einer KWE-Regel lösen (falls Lizenz vorhanden).
Die wirkt dann aber immer auf alle Elemente und kann dann nicht mehr vom User übersteuert werden.

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

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

---

Hallo,

als CATScript speichern und nicht als catvbs

Gruß

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

---

danke dir

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