---

Hallo Zusammen,

ich wollte mehrere Flächen per Makro einfärben.
Die Farbe spielt keine Rolle. Sie soll durch Zufall aus der Farbpalette eingestellt werden.
Ich habe es mit Random versucht, komme aber auf keinen grünen Zweig.
Das Makro ist in Catscript programmiert.
Kann mir jemand auf die Sprünge helfen?

------------------
Gruß

Günter

[Diese Nachricht wurde von Guenter Graff am 12. Nov. 2013 editiert.]

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

---

Servus
Du musst wohl für jeden Parameter des RGB-Codes eine Zufallszahl bilden (siehe auch hier und hier):

Code:

---

....
VisPropertiesSet.SetRealColor GetRandomNum(0,255), GetRandomNum(0,255), GetRandomNum(0,255), 1

.....
Function GetRandomNum(Min As Long, Max As Long) As Long
    Randomize
    GetRandomNum = Int(Rnd * (Max - Min + 1) + Min)
End Function

---

Gruß
Bernd

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

[Diese Nachricht wurde von bgrittmann am 12. Nov. 2013 editiert.]

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

---

Hallo Bernd,

es hat zwar etwas gedauert, aber ich hatte jetzt erst wieder Zeit daran weiter zu machen.
Vielen Dank, es hat funktioniert.
Wie kann ich über eine Inputbox wählen, ob ich eine fest eingestellte Farbe, oder eine Zufallsfarbe einstellen kann?
Ich denke, das müsste mit IF gehen.
Wenn ich 1 eingebe, dann wird Zufall eingestellt und bei 0 die feste Farbe.
Ich habe bei der Suche nach Inputbox zwar das Ein oder Andere gefunden, habe aber noch nicht die passende Lösung.

------------------
Gruß

Günter

[Diese Nachricht wurde von Guenter Graff am 10. Dez. 2013 editiert.]

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

---

Ich würde ne Messagebox (oder einein richtigen Dialog) statt einer InputBox machen.

http://www.vb-seminar.de/vb_13.htm

In der Messagebox dann Ja/Nein/Abbrechen und das Ergebnis auswerten.

------------------
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

---

Hallo Henry,

funktioniert prima. Ich habe jetzt aber das Problem, dass die Box nach jedem einzelnen Durchlauf (es sind mehrere Flächen im Baum)aufgeht und ich auswählen muss, was ich machen will.
Die Abfrage müsste einmal gemacht werden und dann läuft das Makro komplett durch ohne bei jedem Teil noch einmal nachzufragen.

'*********Auswahl treffen Zufall oder feste Farbe******

If MsgBox("Zufallsfarbe ja oder nein", vbQuestion + vbYesNo, "Hallo!") = vbNo Then

Else

'********************Farbe_aendern********************

Set Selektion = CATIA.ActiveDocument.Selection

CATIA.ActiveDocument.Selection.Add (hybridShapeSurfaceExplicit1)

Set Properties = Selektion.VisProperties

Randomize
Z1 = Int(255*Rnd)+1    ' liefert eine Zufallszahl von 0-255
Z2 = Int(255*Rnd)+1    ' liefert eine Zufallszahl von 0-255
Z3 = Int(255*Rnd)+1    ' liefert eine Zufallszahl von 0-255

Properties.SetRealColor Z1,Z2,Z3,0

Randomize

CATIA.ActiveDocument.Selection.Clear

part1.Update

'**********************************************************

'Eine feste Farbe einstellen

Set Properties = Selektion.VisProperties

Properties.SetRealColor 193,196,192,0

part1.Update

End If

'**********************************************************

Next

part1.Update

------------------
Gruß

Günter

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

---

Servus
Dann musst du die MsgBox vor der Schleife anordnen, den Rückgabewert in einer Variable speichern, und in der Schleife bei der If-Abfrage den gespeicherten Rückgabewert verwenden.
Müsstest du den Befehl "Randomize" vor jedem Aufruf der Funktion "Rnd" einfügen (ich vermute das bei dir Z1 = Z2 = Z3 ist)

Gruß
Bernd

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

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

---

Hallo,

erst mal danke. Ich werde es ausprobieren und mich später nochmals melden.

------------------
Gruß

Günter

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