Create workpoint on assembly geometry

[David-Truyens]

Hi,

I would like to create a workpoint on a geometry at the assembly level. So not a fixed, but with a constraint to that selected point. Any idea? If I use the Pick with a point filter I just get the coordinates, but not the id of the point itself.

Thanks,

David

[bradeneuropeArthur]

Hoi David,

So you need to create a point without directly attached to the geometry, but with constaints to the geometry?

[David-Truyens]

Hi Brad,

What do you mean with "without directly attached"? If you create a workpoint on assembly level and would like it to move with the component it needs a constraint between the workpoint and the geometry as far as I know. If you know another way I'll be glad to learn it!

Regards,

David

[bradeneuropeArthur]

Hoi David,

Maybe I don't understand, but the workpoints are per default constraint as seen bellow:

[David-Truyens]

Hi Brad,

I'm sorry, I should mention that I would like to do this via the API. So you have a "pick" function where you can select a point and then it should create a workpoint on that selected point with a constraint.

[bradeneuropeArthur]

Hallo David,

I will take a look at this.

[bradeneuropeArthur · Accepted solution]

This is how:

Public Sub MatePointConstraint()
    ' Set a reference to the assembly component definintion.
    Dim a As Application
Set a = ThisApplication
Dim b As AssemblyDocument
Set b = a.ActiveDocument

Dim c As AssemblyComponentDefinition
Set c = b.ComponentDefinition
Dim p As Point

Dim w As WorkPoint

Set p = ThisApplication.TransientGeometry.CreatePoint(0, 0, 0)
Set w = b.ComponentDefinition.WorkPoints.AddFixed(p, False)

Dim oObject As Object
Dim cmd As CommandManager
Set cmd = ThisApplication.CommandManager

Set oObject = cmd.Pick(kAllPointEntities, "Pick a feature")

    
    Dim oAsmCompDef As AssemblyComponentDefinition
    Set oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition

    ' Set a reference to the select set.
    Dim oSelectSet As SelectSet
    Set oSelectSet = ThisApplication.ActiveDocument.SelectSet

    ' Get the two entities from the select set.
    Dim oBrepEnt1 As WorkPoint
    Dim oBrepEnt2 As Object
    Set oBrepEnt1 = w
    Set oBrepEnt2 = oObject

    ' Create the insert constraint between the parts.
    Dim oMate As MateConstraint
    Set oMate = oAsmCompDef.Constraints.AddMateConstraint(oBrepEnt1, oBrepEnt2, 0)
End Sub

Groetjes,

[David-Truyens]

Looks good! Didn't have time to test it yet.. I'll make sure I'll do that this week.

Regards,

David

ps: kennen wij elkaar? 🙂

[bradeneuropeArthur · Accepted solution]

Hoi David,

Sure it works, I have tested in inventor 2018.

You will see.

De Groeten,

[bradeneuropeArthur]

I have send you a short private message.