Pick and Freehand Toggle
Hopefully this should work.
Sub Toggle_Pick_FreeHand()Dim mGUID As StringmGUID = ActiveToolStateGuidIf mGUID = "5f85cce2-041c-11d4-b32e-00a0c9e8a837" Then ActiveToolStateGuid = "a4561afd-624f-4943-bb8e-feb4e7bb89b7"Else ActiveToolStateGuid = "5f85cce2-041c-11d4-b32e-00a0c9e8a837"End IfEnd Sub
No sir, not working. i want the pick tool to freehand tool and freehand tool to pick tool toggle only. when i launched this script, i am getting a freehand tool along with snapping tool is active is coming.