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