Sub Example_TextPrecision()
   'Этот пример создает объект Dim3PointAngular в пространстве модели и 
   'использует свойство TextPrecision, чтобы установить точность текста 
   'измерения к 4 десятичным знакам

    Dim DimPointAngularObj As AcadDim3PointAngular
    Dim AngleVertex(0 To 2) As Double
    Dim FirstPoint(0 To 2) As Double, SecondPoint(0 To 2) As Double
    Dim TextPoint(0 To 2) As Double
    
    'Определите новый объект Dim3PointAngular
    AngleVertex(0) = 0: AngleVertex(1) = 0: AngleVertex(2) = 0
    FirstPoint(0) = 2: FirstPoint(1) = 2: FirstPoint(2) = 0
    SecondPoint(0) = 1: SecondPoint(1) = 4: SecondPoint(2) = 0
    TextPoint(0) = 6: TextPoint(1) = 6: TextPoint(2) = 0

    'Создайте новый объект Dim3PointAngular в пространстве модели
    Set DimPointAngularObj = ThisDrawing.ModelSpace.AddDim3PointAngular(AngleVertex, FirstPoint, SecondPoint, TextPoint)
    ThisDrawing.Application.ZoomAll

    'Читайте и показывайте текущую точность текста измерения
    MsgBox "Точность текста измерения в настоящее время: " & DimPointAngularObj.TextPrecision

    'Увеличьте расстояние промежутка измерения
    DimPointAngularObj.TextPrecision = acDimPrecisionFour
    ThisDrawing.Regen acAllViewports
    
    'Читайте и показывайте текущую точность текста измерения
    MsgBox "Точность текста измерения теперь: " & DimPointAngularObj.TextPrecision
    
End Sub