Add function to 3 point arc macro

How can I get the cursor in this macro to snap like every other cursor when snap is activated?

I.E. I need it to snap to nodes the way the freehand tool cursor does when Snap to Objects is selected. Anyone have some nifty code I can add to this macro to make that happen? Or suggestions?

I'd also like to colorize the circles at the points...how would I do that?

Ok. I figured out the red circle thingy...

Place this just under where it's creating the ellipses:

ActiveDocument.Selection.Fill.UniformColor.RGBAssign 255, 0, 0

I think it adds a nice touch to the tool. I made an icon that looks like the tool in use, and placed it in the Freehand Curve Flyout:



Now, if I could just get some help with the snap issue...

[shelbym]

If you look at the line...

If ActiveDocument.GetUserClick(px(i), py(i), Shift, 100, True, cdrCursorPickOvertarget) <> 0 Then

the snap is set for True or on. I just don't think it works, or at least no well enough that you can tell.

I do agree that snap is very very handy and it would be very useful if it would work like one would expect.

Shelby