Selection of tangent surfaces using a macro

[Daniel Popa]

Hello

In one of our processes we are required to color several surfaces differently than the rest of the component (i.e. component is blue with important surfaces yellow). I have managed to write a macro that would color a surface just by clicking on it and I was wondering if there is a way of making that selection have a tangent propagation (like the "Extract" command has) but without extracting the surface as I need to change the color of the solid faces.
I would be grateful if someone could point me in the right direction.

This is what I am currently using for selection:

Dim Suprafata(0)
Suprafata(0) = "Face"
For i = 1 To 500

oSel.Clear
Ret = oSel.SelectElement2(Suprafata, "Select Surface to Color", True)
			If (Ret = "Cancel") Then
			Exit Sub

Thank you.

 

[JeniaL]

I already asked that question and seems like there is not way to do that without extract.

Regards,
Jenia Ladkov

 

[TiagoFigueiredo]

It must be there something wrong.

You start a for cycle and don't have a next.

You also only selects a face nothing more...

Why you don't select the features that creates those faces, and them paint them?

Tiago Figueiredo
Tooling Engineer

Youtube channel:

https://www.youtube.com/channel/UC1qdlBeJJEgMgpPLVJoOIOw

 

[itsmyjob]

if you have Core & Cavity Design you can use Face Color Edition with tgt continuity.

Eric N.
indocti discant et ament meminisse periti ​

 

[Daniel Popa]

TiagoFigueiredo that is just a part of the code, relevant to my question.

itsmyjob Unfortunately I do not have it but I have noticed there is something similar in the machining module. I might be able to use something from there.

Thank you