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