How to get sketch dimensions whose decimal values are greater then 2

If I understand the question, you want to report each dimension in a sketch where the number of decimal places is set greater than 2? If so, try the code below:

Imports System
Imports NXOpen
Imports NXOpen.Annotations

Module sketch_dims

Dim theSession As Session = Session.GetSession()
Dim lw As ListingWindow = theSession.ListingWindow

Sub Main()

Dim workPart As Part = theSession.Parts.Work
lw.Open()

For Each skt As Sketch In workPart.Sketches

If skt.IsInternal Then
Continue For
End If
Dim tempSketchFeature As Features.SketchFeature = skt.Feature
lw.WriteLine(tempSketchFeature.GetFeatureName)

Dim mySketchDimConstraints() As SketchConstraint = skt.GetAllConstraintsOfType(Sketch.ConstraintClass.Dimension, Sketch.ConstraintType.NoCon)
For Each tempConstraint As SketchDimensionalConstraint In mySketchDimConstraints
Dim tempDim As Annotations.Dimension = tempConstraint.AssociatedDimension
Dim mainText() As String
Dim dualText() As String
tempDim.GetDimensionText(mainText, dualText)

Dim editSettingsBuilder1 As NXOpen.Annotations.EditSettingsBuilder = Nothing
editSettingsBuilder1 = workPart.SettingsManager.CreateAnnotationEditSettingsBuilder({tempDim})

If editSettingsBuilder1.AnnotationStyle.DimensionStyle.DimensionValuePrecision > 2 Then
lw.WriteLine(mainText(0))
End If
editSettingsBuilder1.Destroy()

Next
lw.WriteLine("")
Next

End Sub

End Module