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.
That is the same GUID I got from the DrawUI.
Does not work.
not in your code
Please repost your code.
I am really interested to see what I did wrong.
[CgsAddInMacro] public void ToggleTool() { var dsp = corelApp.FrameWork.Application.DataContext.GetDataSource("WAppDataSource"); string currentGuid = (string)dsp.GetProperty("ActiveTool"); if (currentGuid.Equals(pickToolGuid)) dsp.SetProperty("ActiveTool", freeHandPickGuid); else dsp.SetProperty("ActiveTool", pickToolGuid); }
Thank you CorelCS.
No luck getting that to work thru VBA tho.
try this
Sub ToggleTool() Dim pickToolGuid As String Dim freeHandPickGuid As String Dim dsp As DataSourceProxy Dim currentGuid As String
pickToolGuid = "f1aee54d-c9aa-4e6f-9193-82f496b0b72b" freeHandPickGuid = "fb9a380a-4bbb-23bd-4e45-2eeed3e485b1"
Set dsp = Application.FrameWork.Application.DataContext.GetDataSource("WAppDataSource") currentGuid = CStr(dsp.GetProperty("ActiveTool"))
If currentGuid = pickToolGuid Then dsp.SetProperty "ActiveTool", freeHandPickGuid Else dsp.SetProperty "ActiveTool", pickToolGuid End IfEnd Sub
That works. Thanks a ton. :)
Fantastic. Working. So nice of you sir
You got to thank CorelCS for the code!
Thanking you sir