Pick and Freehand Toggle

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. 

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 If
End Sub

Thanking you sir