---

Hallo Zusammen
folgendes Script soll 6 Bodies unterschiedlich einfärben!
Es klemmt an der Zuordnung von Visproperties !!!
(Nur der Baum im Wald ist wieder nicht zu finden!?)

Mit der Bitte um Unterstützung und Korrektur -

Sub CATMain()
    Dim oColor(6,2)
    'SlateGray3
    ocolor(0,0)=159
    ocolor(0,1)=182
    ocolor(0,2)=205
    'Dark Red
    ocolor(1,0)=220
    ocolor(1,1)=90
    ocolor(1,2)=90
    'Light Red
    ocolor(2,0)=255
    ocolor(2,1)=150
    ocolor(2,2)=150
    'Fushia
    ocolor(3,0)=255
    ocolor(3,1)=150
    ocolor(3,2)=230
    'Peru
    ocolor(4,0)=205
    ocolor(4,1)=133
    ocolor(4,2)=63
    'Dark Green
    ocolor(5,0)=30
    ocolor(5,1)=190
    ocolor(5,2)=30
    'Light Green
    ocolor(6,0)=190
    ocolor(6,1)=255
    ocolor(6,2)=130
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument
Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties
Dim partBodies As Bodies
Set partBodies = partDocument1.Part.Bodies
Dim selection1 As Selection
Set selection1 = partDocument1.Selection
Selection1.Search "CATPrtSearch.BodyFeature,all"
For I = 1 to 6
    Set partBodies = Selection1.Item(I).Value
    VisProperties1.SetRealColor oColor(I,0), oColor(I,1), oColor(I,2), 1
Next
Selection1.Clear
End Sub

Danke

------------------
mfg
Erich

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

---

Servus Erich

Die VisProperties ist eine Eigenschaft der gesamten Selektion.
Somit werden alle selektierten Elemente umgefärbt.
Wenn du die Elemente unterschiedlich einfärben willst geht zB dieser Weg:

• Elemente/Bodies suchen
  
• selektierte Elemente in einem Array zwischenspeichern
  
• Elemente aus dem Array einzeln selektieren und umfärben

Gruß
Bernd

PS: Statt der Suche könntest du die Bodies auch direkt selektieren: Selection1.Add partDocument1.Part.Bodies.item(1)

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

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

---

Hallo Bernd
könntest Du mir Deine Ausführungen in Code
zurückschreiben - würde mir helfen. Danke

------------------
mfg
Erich

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

---

Servus Erich

Hier ein Beispiel (ohne zwischenspeichern (ungetestet)):

Code:

---

'hier deine ganzen Dims und Sets

For I = 1 to 6
    selection1.Clear
    selection1.Add partBodies.Item(I)
    VisProperties1.SetRealColor oColor(I,0), oColor(I,1), oColor(I,2), 1
Next

---

Gruß
Bernd

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

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

---

Danke
jetzt läufts und verstanden.

------------------
mfg
Erich

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