Part Sketch Dimensioning Preview / Hang on cursor

[bradeneuropeArthur]

How do I create a preview of a sketch-dimension created.

the dimension should follow the cursor before the place is picked on the screen.

This is my code so far but the dimension placement is not following the cursor:

Class ThisRule
Dim oInteraction As InteractionEvents
Dim oMouse As MouseEvents
Dim pm As Point2d
Dim sp1 As SketchPoint
Dim sp2 As SketchPoint

Public Sub main
oInteraction = ThisApplication.CommandManager.CreateInteractionEvents
oMouse = oInteraction.MouseEvents

AddHandler oMouse.OnMouseClick, AddressOf oMouse_OnMouseDown 

Dim cmd As CommandManager = ThisApplication.CommandManager
sp1 = cmd.Pick(Inventor.SelectionFilterEnum.kSketchPointFilter, "Point 1")
sp2 = cmd.Pick(Inventor.SelectionFilterEnum.kSketchPointFilter, "Point 2")

oInteraction.Start

End Sub

Sub oMouse_OnMouseDown(Button As MouseButtonEnum, ShiftKeys As ShiftStateEnum, ModelPosition As Point, ViewPosition As Point2d, View As Inventor.View)

  Dim p2d As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(ModelPosition.X,ModelPosition.Y)

Dim p As PartDocument = ThisDoc.Document
Dim pc As PartComponentDefinition = p.ComponentDefinition
Dim psk As PlanarSketch = pc.Sketches.Item(1)
Try
	Dim pskd1 As DimensionConstraint = psk.DimensionConstraints.AddTwoPointDistance(sp1, sp2, Inventor.DimensionOrientationEnum.kAlignedDim, p2d, False)
	
	Catch
	Dim pskd1 As DimensionConstraint = psk.DimensionConstraints.AddTwoPointDistance(sp1, sp2, Inventor.DimensionOrientationEnum.kAlignedDim, p2d, True)
	End Try

oInteraction.Stop

End Sub
End Class

[C_Haines_ENG · Accepted solution]

I believe you will want to use MouseEvents.OnMouseMove for that application. The ViewPosition variable will give you the coordinates of the mouse so you can continuously update the location of the text. 

However, I assume this will have LARGE performance impacts. Worth testing.

[Michael.Navara]

The performance impact is not so significant. You can try it in this two samples.

[C_Haines_ENG]

Wow that actually works great! Will have to use in the future.