API Select Points from 3D Modell

[florian_wenzel]

Hi,

'Inventor 2022 & Visual Studio

i try to create a WorkPlane with 3 Points.

AddByThreePoints

The 3 Points, i want to pick up from 3D Modell.

The Final Result should look like This:

So i  want to select 3 Points:

Edge EndPoint or EdgeMidPoint etc...

But it dosent work.

This is my Code:

Imports System.Runtime.InteropServices
Imports Inventor
Imports Microsoft.Win32

Module CommandFunctionButton_01
Public Sub CommandFunctionfweButton_01()

Dim oPartDoc As PartDocument = g_inventorApplication.ActiveDocument
Dim oCompDef As PartComponentDefinition = oPartDoc.ComponentDefinition
Dim oTO As TransientObjects = g_inventorApplication.TransientObjects
Dim oTG As TransientGeometry = g_inventorApplication.TransientGeometry

Dim oWorkPoint1 As Object
oWorkPoint1 = g_inventorApplication.CommandManager.Pick(SelectionFilterEnum.kWorkPointFilter, "Pick a Points1")

Dim oWorkPoint2 As Object
oWorkPoint2 = g_inventorApplication.CommandManager.Pick(SelectionFilterEnum.kWorkPointFilter, "Pick a Points2")

Dim oWorkPoint3 As Object
oWorkPoint3 = g_inventorApplication.CommandManager.Pick(SelectionFilterEnum.kWorkPointFilter, "Pick a Points3")

Dim oWorkPlaneA1 As WorkPlane
oWorkPlaneA1 = oCompDef.WorkPlanes.AddByThreePoints(oWorkPoint1, oWorkPoint2, oWorkPoint3, True)

End Sub
End Module

In Enums / SelectionFilterEnum Enumerator which Methods should i use?

I want simple select Point on: Edge EndPoint or EdgeMidPoint etc...

i'm not able to Pick up any Points:

How can i do this.

Thanks for any Suggestion.

[A.Acheson]

It looks like the boolean construction plane is at fault here. Changing it to false allows the plane to be shown visibly. Boolean of true creates a construction plane that is not shown in the browser or graphically. See API help description here. 

Dim oWorkPlaneA1 As WorkPlane
oWorkPlaneA1 = oCompDef.WorkPlanes.AddByThreePoints(oWorkPoint1, oWorkPoint2, oWorkPoint3, False)

You can check the type with the Construction property. 

Dim oWorkPlaneA1 As WorkPlane
oWorkPlaneA1 = oCompDef.WorkPlanes.AddByThreePoints(oWorkPoint1, oWorkPoint2, oWorkPoint3, true)

MessageBox.Show(oWorkPlaneA1.Construction, "Title")

Using sketch points also works so you can skip the WorkPoint creation.

oPoint1 = g_inventorApplication.CommandManager.Pick(SelectionFilterEnum.kSketchPointFilter, "Pick a Points1")

. 

[JelteDeJong · Accepted solution]

Getting the midpoint is very difficult (if possible at all for your purpose). Have a look at this post.  But if you can live with 3 vertexes/points then you can do it like this.

Dim oPartDoc As PartDocument = g_inventorApplication.ActiveDocument
Dim oCompDef As PartComponentDefinition = oPartDoc.ComponentDefinition

Dim oWorkPoint1 As Vertex = g_inventorApplication.CommandManager.Pick(SelectionFilterEnum.kAllPointEntities, "Pick a Points1")
Dim oWorkPoint2 As Vertex = g_inventorApplication.CommandManager.Pick(SelectionFilterEnum.kAllPointEntities, "Pick a Points2")
Dim oWorkPoint3 As Vertex = g_inventorApplication.CommandManager.Pick(SelectionFilterEnum.kAllPointEntities, "Pick a Points3")

Dim oWorkPlaneA1 As WorkPlane = oCompDef.WorkPlanes.AddByThreePoints(oWorkPoint1, oWorkPoint2, oWorkPoint3, False)

[florian_wenzel]

Hi,

Thanks 🙂

Yeah, it should be a Vertex, and False as you mentioned before.

You Right, its very Tricky to select a MidPoint, but i will try it.

The EndPoint works Fine!