Regarding collection of Datums information in drafting

Hi,
I tried a macro for collecting information of total number of Datums in Drafting.
The problem is I am getting output for PMI Datums in modelling mode and for Drafting mode I am not getting the output.
Please go through the below code and help me out.

Option Strict Off
Imports System
Imports NXOpen
Module IDSymbol_info
Sub Main()
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim lw As ListingWindow = theSession.ListingWindow
lw.Open()
Dim myIdBuilder As Annotations.DraftingDatumFeatureSymbolBuilder
If workPart.Annotations.Datums.ToArray.Length = 0 Then
lw.WriteLine("No ID symbols found in current work part")
Return
End If
For Each tempID As Annotations.DraftingDatum In workPart.Annotations.Datums
myIdBuilder = workPart.Annotations.Datums.CreateDraftingDatumFeatureSymbolBuilder(tempID)
lw.WriteLine("origin: " & myIdBuilder.Origin.OriginPoint.ToString)
lw.WriteLine("upper text: " & myIdBuilder.Letter.ToString)
lw.WriteLine("arrow type: " & tempID.GetLineAndArrowPreferences.FirstArrowType.ToString)
lw.WriteLine("stub length: " & tempID.GetLineAndArrowPreferences.StubLength.ToString)
lw.WriteLine("")
Next
End Sub
End Module

Thanks in advance.

Regards,
Ravi

Can you email me a sample file (in NX 9 or 10 format) that contains at least one of these datums you are trying to process? I'd like to be sure of what object type we are working with. The file can be sent to: info@nxjournaling.com.

Thanks