---

Hallo,

gibt es die Möglichkeit, einen Body mit Hilfe eines Parameters einzufärben? Ich habe Parameter vom Typ Integer und möchte bei dem Wert 1, meinen Body in Gelb haben. Bei dem Wert 2 in beispielweise Grün.
Hat vielleicht jemand so ein Makro, welches diese Aufgabe übernehmen kann? Die Farben sind dabei egal, hauptsache es sind jeweils andere. Der jeweilige Parameter (es gibt 79 Stück/ Parameter.1, Parameter.2 bis Parameter.79) kann einen Wert zwischen 1 und 30 annehmen. Es sind also 30 verschiedene Farben notwendig. Dazu gibt es 79 Bodies, die einfach der Reihe nach durchnummeriert sind. Also Body.1, Body.2 bis Body.79.

Danke

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

---

Hallo Dede,

das kannst du mit einer Regel abdecken.

Sinngemäß:

if Parameter =="1"
{Körper .Color ="#FFFF66"} 

if Parameter =="2"
{Körper .Color ="#CC0033"}

if Parameter =="2"
{Körper .Color ="#FFFFFF"}

#FFFF6 == hexadezimalcode für Farbe gelb
#CC0033  == hexadezimalcode für Farbe rot
usw.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Mit einem Makro könnte es in etwa so aussehen:

Sub CATMain()

Dim MyDocument As document

Set MyDocument = CATIA.ActiveDocument

Dim MyPart As Part

Set MyPart = MyDocument.Part

Dim MyMainBody As Body

Set MyMainBody = MyPart.Bodies.Item(1)

Dim r, g, b As Long

' ----------------------------

' hier muesste also der Parameter aus deinem Part geholt werden
' z.B.
' Dim MyColorparameter As RealParam
' Set MyColorparameter = MyPart.Parameters.Item("Mein Farbparameter")

' Hier Beispielhaft zugewiesen

MyColorparameter = 1  ' wieder auskommentieren wenn Parameter wie oben benannt im Part vorkommt

' ----------------------------

If MyColorparameter.Value = 1 Then

    r = 255
    g = 128
    b = 255
   
End If

' etc. etc.
If MyColorparameter.Value = 2 Then

    r = 128
    g = 255
    b = 255
   
End If

Dim MySelection As Selection
Set MySelection = MyDocument.Selection

MySelection.Clear

MySelection.Add MyMainBody
MySelection.VisProperties.SetRealColor r, g, b, 1

End Sub

------------------
Grüße aus dem Thurgau
Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

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

---

Hallo zusammen,

ich habe eine Regel für das einfärben eines Körpers erstellt.
Folgende Fehlermeldung erhalte ich.

Syntaxwarnung:
Eine regel darf nur einen formalen Parameter berechnen

Regel:

if Ergebnis\Material =="Aluminium"
{Ergebnis .Color ="#FFFF66"}
else
{Ergebnis .Color ="#ff80ff"}

Habe schon hier im Forum hier gesucht, aber alle bisherigen Antworten waren für mich nicht verständlich.

Gruß

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

---

Hallo Rosie,

mit welchem Editor hast die Regel erstellt?

Über Fog oder Rule.?

Über Fog funktioniert der Syntax nicht.
Kenne aber im Moment diesen für eine Fog nicht.

Versuche es über Knowledge Advisor die Regel zu erstellen. Wenn Lizenz vorhanden.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Über fog.

Ich dachte mir schon das es damit zusamenhängen könnte.

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

---

Hallo Rosie,

ich weiß nicht, ob deine Frage noch aktuell ist, aber in einer Fog funktioniert das mit If und else nicht.

Über eine Fog kannst du die Farbe schon steuern, jedoch musst du das so gestalten, wie das moppesle getan hat.

Folglich müsste es bei dir dann so aussehen:

if Ergebnis\Material =="Aluminium"
{Ergebnis .Color ="#FFFF66"}
if Ergebnis\Material <>"Aluminium"
{Ergebnis .Color ="#ff80ff"}

Hierbei wird dann die Unterscheidung gemacht, ist es Aluminium oder etwas anderes.
Das einzige, was du jedoch beachten musst, ist, dass du die Regel bei Änderung des Materials evaluieren musst. Erst damit wird sich dein PartBody farblich automatisch anpassen können.

Hoffe ich konnte helfen.

Gruß
Diesaster

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