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