iFeature

[martinhoos]

Hi all,

i am looking for a solution that checks if a iFeature exists.

If yes, i need a rename of the iFeature.

If no, skip the rule.

Thanks in advance.

Regards Martin

[bradeneuropeArthur]

Hi,

Any feature?

Or a specific one?

[bradeneuropeArthur · Accepted solution]

Public Sub d()
Dim a As Application
Set a = ThisApplication

Dim b As PartDocument
Set b = a.ActiveDocument

Dim c As Features ' ExtrudeFeature
'Set c = b.ComponentDefinition.Features

For Each F In b.ComponentDefinition.Features
If F.Name = "YOUR NAME TO BE FOUND" Then

F.Name = "YOUR NAME TO BE CHANGED INTO"
End If

Next

End Sub

[martinhoos]

Hello Brandeneurope,

your code runs... ! Thank you.

Regards Martin

[bradeneuropeArthur]

My pleasure to help you.