Code:
Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.AnnotationsModule NXJournal
Sub Main
Dim theSession As Session = Session.GetSession()
Dim lw As ListingWindow = theSession.ListingWindow
lw.Open()
Dim displayPart As Part = theSession.Parts.Display
For Each dimension As Dimension in displayPart.Dimensions
lw.WriteLine(dimension.ToString)
lw.WriteLine(" Computed Size: " & dimension.ComputedSize.ToString)
Dim mainTextLines() As String
Dim dualTextLines() As String
dimension.GetDimensionText(mainTextLines, dualTextLines)
For Each maintext as String in mainTextLines
lw.WriteLine(" Main Text Line: " & maintext)
Next
For Each dualtext as String in dualTextLines
lw.WriteLine(" Dual Text Line: " & dualtext)
Next
lw.WriteLine(" Tolerance Type: " & dimension.ToleranceType.ToString)
If dimension.ToleranceType <> ToleranceType.None then
lw.WriteLine(" Lower Tolerance: " & dimension.LowerMetricToleranceValue.ToString)
lw.WriteLine(" Upper Tolerance: " & dimension.UpperMetricToleranceValue.ToString)
End If
Next
End Sub
End Module