Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

..Dug in the documentation & found out what I was looking for.

Here is the code I ended up with :

Private Class Testing
	Private Selecting As Boolean
	
	Sub Main()
		
		Dim i  As InteractionEvents  = ThisApplication.CommandManager.CreateInteractionEvents
	 	i.InteractionDisabled = False
		
		Dim selectEvents As Inventor.SelectEvents = i.SelectEvents()
		AddHandler selectEvents.OnSelect, AddressOf oSelectEvents_OnSelect
		i.Start
		Selecting = True
		
		While Selecting = True		
			ThisApplication.UserInterfaceManager.DoEvents()
			
		End While
		 
		i.Stop
	 
	End Sub

	Private Sub oSelectEvents_OnSelect(ByVal JustSelectedEntities As ObjectsEnumerator, ByVal SelectionDevice As SelectionDeviceEnum, ByVal ModelPosition As Point, ByVal ViewPosition As Point2d, ByVal View As View)
		MsgBox("X :" & Round(ModelPosition.X, 2) & "   Y :" &Round(ModelPosition.Y, 2) & "   Z :" & Round(ModelPosition.Z, 2))
    	Selecting = False
	
	End Sub
	
End Class

 

Kind regards,

FINET L.

If this post solved your question, please kindly mark it as "Solution"

If this post helped out in any way to solve your question, please drop a "Like"

@LinkedIn     @JohnCockerill