topic Re: Using Mouse Events using iLogic in Inventor Programming Forum

Using Mouse Events using iLogic

nstone — Tue, 05 Mar 2013 02:13:57 GMT

Hi guys,

I'm trying to get the point location of a mouse click in an Inventor drawing using an iLogic Rule.

Does any one have any examples of using mouse events in iLogic?

Thanks

Re: Using Mouse Events using iLogic

xiaodong_liang — Mon, 25 Mar 2013 04:21:18 GMT

Hi,

Hope the code below helps. Copy it to iLogic.


Sub Main()
 Dim oInteraction  As InteractionEvents 
 oInteraction = ThisApplication.CommandManager.CreateInteractionEvents

 Dim oMouse As MouseEvents
 oMouse = oInteraction.MouseEvents
  AddHandler oMouse.OnMouseDown  ,AddressOf oMouse_OnMouseDown 

  oInteraction.Start

 
End Sub

Sub oMouse_OnMouseDown(Button As MouseButtonEnum, ShiftKeys As ShiftStateEnum, ModelPosition As Point, ViewPosition As Point2d, view As View)
  MsgBox (Button)
End Sub

Re: Using Mouse Events using iLogic

Anonymous — Thu, 02 May 2013 06:02:30 GMT

Hi,
I would like use ilogic to select and replace a component in the assembly by using mouse selection. Whether it is possible by using ilogic

I have already posted my assembly file in the below link
http://forums.autodesk.com/t5/Autodesk-Inventor/ilogic-part-insertion/m-p/3667380

Need your input regarding this
Carthik

Re: Using Mouse Events using iLogic

Anonymous — Thu, 02 May 2013 09:14:24 GMT

Check the below form to understand my requirement
http://forums.autodesk.com/t5/Autodesk-Inventor-Customization/ilogic-to-handle-mouse-event-for-part-selection/td-p/3902918

Re: Using Mouse Events using iLogic

ekinsb — Fri, 03 May 2013 16:48:37 GMT

Did you try the CommandManager.Pick method? If you just need a single item selected, this is much simpler than implementing events.

Re: Using Mouse Events using iLogic

Anonymous — Mon, 06 May 2013 10:18:11 GMT

Hi, Searched for the whole day to know how to handle commandmanager.pick method.....i found no solution to handle by ilogic...i found codes, that can be run by using VBA Editor. I am not familiar with VBA & Macros.
Can you please help me in creating the ilogic code to remove the component from the assembly by selection, the assembly file is available in the below link
http://forums.autodesk.com/t5/Autodesk-Inventor-Customization/ilogic-to-handle-mouse-event-for-part-selection/td-p/3902918
Need help regarding the same..

Re: Using Mouse Events using iLogic

philippe.leefsma — Thu, 09 May 2013 07:35:46 GMT

Question was solved in the following post

Re: Using Mouse Events using iLogic

Anonymous — Wed, 15 May 2013 08:09:54 GMT

Hi, can you post ilogic to get XYZ positon of the mouse, when the mousedownbutton is 1. I would like to place component in an assembly based on mouse position on click.

Regards,

Carthik

Re: Using Mouse Events using iLogic

philippe.leefsma — Thu, 16 May 2013 14:59:51 GMT

You can't do that in iLogic, retrieving mouse coordinates requires the use of InteractionEvents, this is an API functionality that needs events and iLogic doesn't support events.

In the API Help Files you can find complete examples on how to use InteractionEvents.

Le me know if you have more specific questions about the use of the API.

Regards,

Philippe.

Re: Using Mouse Events using iLogic

Anonymous — Tue, 26 Nov 2013 04:48:31 GMT

Dear Sir,

I got the solution to place component based on mouse click, based on the above code by xiaodong.liang

Sub Main()
 Dim oInteraction  As InteractionEvents 
 oInteraction = ThisApplication.CommandManager.CreateInteractionEvents

 Dim oMouse As MouseEvents
 oMouse = oInteraction.MouseEvents
  AddHandler oMouse.OnMouseDown  ,AddressOf oMouse_OnMouseDown 

  oInteraction.Start

 
End Sub

Sub oMouse_OnMouseDown(Button As MouseButtonEnum, ShiftKeys As ShiftStateEnum, ModelPosition As Point, ViewPosition As Point2d, view As View)
  'MsgBox (Button)
  Posx=ModelPosition.X
  Posy=ModelPosition.Y
  Posz=ModelPosition.Z
  
  ' Create a matrix.  
    Dim oMatrix As Matrix
    Dim oTG As TransientGeometry
    oTG = ThisApplication.TransientGeometry
    oMatrix = oTG.CreateMatrix
    Dim oAsmCompDef As AssemblyComponentDefinition
    oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition
    Dim oOccurrence As ComponentOccurrence
    oFile = "X:\Pipe Clamp & Liner Assembly - Manual.iam"
    oMatrix.SetTranslation(oTG.CreateVector(Posx, Posy, Posz)) 
    oOccurrence = oAsmCompDef.Occurrences.Add(oFile, oMatrix) 
    
    
  
End Sub