Setting body color RGB with an array

[LucasC]

Hello,

I'm trying to develop some code that changes all the part bodies in a CATPart with a group of RGB values. I'm trying to do this with an array but its not functioning correctly. It cycles through the structure and selects each body as intended but does not change the color. I believe its the way I have the values defined in the array:

Dim RGB(21)
RGB(0) = "234,234,234,0"
RGB(1) = "30,49,130,0"
RGB(2) = "147,155,161"
...etc

...For next
Set vis = sel.VisProperties
vis.SetRealColor RGB()

 

[tesak]

Hi LucasC,
sub SetRealColor (long iRed, long iGreen, long iBlue, long iInheritance) expects 4 long values, but you are providing 1 string value. Change your array like this:

RGB(0) = Array(234, 234, 234, 0)
RGB(1) = Array(255, 255, 255, 1)
.
.
.

and then call it in a loop this way: vis.SetRealColor RGB(0)(0), RGB(0)(1), RGB(0)(2), RGB(0)(3)

Tesak

http://scripts4all.eu/txtoncurve/

- Text along a curve for Catia V5

 

[LucasC]

No luck with :
Dim RGB(21)
RGB(0) = Array(234, 234, 234, 0)
RGB(1) = Array(30, 49, 130, 0)
RGB(2) = Array(147, 155, 161)
'...etc

Dim visprop As Variant
Dim sel1 As selection
Dim Part1 As Part
Set Part1 = CATIA.ActiveDocument.Part

Set sel1 = CATIA.ActiveDocument.selection
Dim myBody As Body
For Each myBody In Part1.Bodies
sel1.Clear
sel1.Add myBody
Set visprop = sel1.VisProperties
visprop.SetRealColor RGB(0)(0), RGB(0)(1), RGB(0)(3)
Next

 

[tesak]

What kind of error do you get? Anyway, you have a mistake in the last line, you are calling SetRealColor with 3 arguments only.

Tesak

http://scripts4all.eu/txtoncurve/

- Text along a curve for Catia V5

 

[LucasC]

There is no error, it cycles through all the selections without changing the color.

 

[tesak]

Change it like this:

.
.
.

Dim myBody As Body
Dim i As Long
For Each myBody In Part1.Bodies
    sel1.Clear
    sel1.Add myBody

    Set visprop = sel1.VisProperties
    visprop.SetRealColor RGB(i)(0), RGB(i)(1), RGB(i)(2), RGB(i)(3)

    i = i + 1
Next

Tesak

http://scripts4all.eu/txtoncurve/

- Text along a curve for Catia V5

 

[LucasC]

Yes, I noticed I had the RGB item index mis-labeled and it colored all the bodies the same, which made me realize i needed to index the RGB +1

How can I make it start over if the number of part bodies exceeds the array value count?

thanks in advance I'm still a beginner.

 

[tesak]

To start over use this:

If i > Ubound(RGB) Then i = 0
i = i + 1

Tesak

http://scripts4all.eu/txtoncurve/

- Text along a curve for Catia V5