NX JOURNAL in NX CAM to get the tool diameter and radius of each operation

[nxexplorer]

Hello All,
I need help in nx journal in NX CAM to get the tool diameter and radius of each operation.
I have tried a kind of that journal, but still fail.

Regards,
Maryadi

 

[nxexplorer]

Option Strict Off

Imports NXOpen
Module TOOLDIAMETER
Sub Main()
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim setup As CAM.CAMSetup = workPart.CAMSetup

For Each operation As NXOpen.CAM.Operation In setup.Operations
Dim tool As CAM.Tool = operation.GetTool()

If tool IsNot Nothing Then
Dim lw As ListingWindow = theSession.ListingWindow
Dim toolDiameter As Double = tool.Diameter
Console.lw("Operation: {0}, Tool Diameter: {1}", operation.Name, toolDiameter)
End If
Next
End Sub

End Module
'*******************************************************
Just now, I try this this, but still fail.