CATIA MACRO QUESTION-How to define partnumber

[LILE]

hello guys

I have a question about catia macro code.

How to define partnumber partly?

For example, My partnumber is "engine"

then I define partnumber begine with "en"

So, "eng","end"..etc.. also included

I don't know this macro code.

Thank you.

p.s - I can't english well.

 

[LILE]

 

[itsmyjob]

i have some problem to understand your question/problem

Eric N.
indocti discant et ament meminisse periti ​

 

[LILE]

So,

For example, I have 'Product1'

'Product1' is configuration many part.

That partnumber is "eng" , "end", "sus"

If Partnumber start "en", color is red

If Partnumber start "su", color is blue

As a result "eng" and "end" color is red, "sus" color is blue

Thanks

 

[itsmyjob]

ok so what is your code so far and what is the problems?

Eric N.
indocti discant et ament meminisse periti ​

 

[LILE]

I dont know method all of "En-xxx".

So, I try to test.

This code is activated only "En".

also, This code is wrong.

I want to know method and correct code.

Sub CATMain()

Dim i as Integer
Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As Part
Set part1 = partDocument1.Part
Set Bodies1 = Part1.Bodies
Set body1 = Bodies1.Item("PartBody")
Part1.InWorkObject = Body1

Dim visProperties1 As VisProperty
Set visProperties1 = CATIA.ActiveDocument.Selection.VisProperties

Dim r, g, b

r= CLng(0)
g= CLng(0)
b= CLng(0)

For i = 1 To part1.Count

If part1.Item(i).PartNumber = "En" then

part1.PartBodyVisProperty.SetRealColor 255,0,255

End If

End Sub

 

[LWolf]

I guess you want to look into the functions INSTR, LEFT... to process your string names.

regards,
LWolf

 

[LILE]

Okay, Guys

I want to Know that code.
Product1
-part1
-PartBody <- I want to change this color.

help me please

Thanks

 

[itsmyjob]

check visporprties in the chm file...

Eric N.
indocti discant et ament meminisse periti ​