Select face and add Imate on PART

[J.VandeMerckt]

Hi Forum

I'm trying to add a Imate on a Part with Ilogic.
I want to select a face and then run rule.
So first select and then Ilogic.

I know this is possible with normal Constrains on Assembly level. But don't know how it works with Imates on part level.
My knowledge of Ilogic is basic.

Can anyone help?

Br

Justin

[FINET_Laurent]

Hi @J.VandeMerckt, 

This little code let you pick a face once the rule is fired, then create a simple iMate constraint :

Dim f As Inventor.Face = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartFaceFilter, "Pick a face :")

Dim doc As Inventor.PartDocument = ThisApplication.ActiveDocument
Dim pcd As Inventor.PartComponentDefinition = doc.ComponentDefinition

Dim def As Inventor.iMateDefinition = pcd.iMateDefinitions.AddMateiMateDefinition(f, 0,,,"New iMate")

If you wan to select the face first, then fire the rule, here is the code adapted :

Dim doc As Inventor.PartDocument = ThisApplication.ActiveDocument
Dim pcd As Inventor.PartComponentDefinition = doc.ComponentDefinition

Dim f As Inventor.Face = doc.SelectSet.Item(1)

Dim def As Inventor.iMateDefinition = pcd.iMateDefinitions.AddMateiMateDefinition(f, 0,,,"New iMate")

Does this suits your needs?

Kind regards,

FINET L.

[J.VandeMerckt]

Hi Laurent.

Thank you for the answers. It works as intended.
How should I change the last line when it's a flush or insert constrain?
For the matchlist it looks like I just place it behind the Imate name. I will test this.

[J.VandeMerckt]

Edit: So it seems that I have to add the matchlist as object but I don't know how to do that.
My matchlist is just the name of a Imate of another part. Any idea how to add this one?

[FINET_Laurent · Accepted solution]

@J.VandeMerckt,

Here are the code snippets for the flush & the insert constraints. You can uncomment the one you need :

Dim f As Inventor.Face = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartFaceFilter, "Pick a face :")

Dim doc As Inventor.PartDocument = ThisApplication.ActiveDocument
Dim pcd As Inventor.PartComponentDefinition = doc.ComponentDefinition

Dim matchList As String() = {"Match1", "Match2", "Match3"}

'Dim mate As Inventor.iMateDefinition = pcd.iMateDefinitions.AddMateiMateDefinition(f, 0, , , "New iMate", matchList)
Dim flush As Inventor.iMateDefinition = pcd.iMateDefinitions.AddFlushiMateDefinition(f, 0, , "New iFlush", matchList)
'Dim instert As Inventor.iMateDefinition = pcd.iMateDefinitions.AddInsertiMateDefinition(f, False, 0,, "New iInsert", matchList)

Notice that you need a circular face for the insert constraint. 

As for the match list, it requires a string array. I implemented it in the code above.

Here is some info about arrays :

Arrays - Visual Basic | Microsoft Learn

VB.NET Array Examples - Dot Net Perls

Kind regards,

FINET L.

[J.VandeMerckt]

Thank you for the help.
With this kind of code we can make repetitive assemblies much faster.