Message 1 of 8
Mouse position in a drawing view
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I found this code in the forum but I don't know if it is possible to modify it to have the coordinates inside the view so I can use them to generate dimensions.
Sub Main()
Dim oInteraction As InteractionEvents = ThisApplication.CommandManager.CreateInteractionEvents
Dim oMouse As MouseEvents = oInteraction.MouseEvents
oInteraction.StatusBarText = "Select a point."
AddHandler oMouse.OnMouseClick, AddressOf oMouse_OnMouseDown
oInteraction.Start
End Sub
Dim ModelPositionY As Double
Dim ModelPositionX As Double
Sub oMouse_OnMouseDown(Button As MouseButtonEnum, ShiftKeys As ShiftStateEnum, ModelPosition As Point, ViewPosition As Point2d, View As Inventor.View)
ModelPositionX =ModelPosition.X / 2.54
ModelPositionY = ModelPosition.Y / 2.54
MessageBox.Show(ModelPositionX)
MessageBox.Show(ModelPositionY)
End Sub