Как в vba utocad изменить размер на свою текстовую строку

Как в vba autocad изменить размер в размерной линии на свою текстовую строку, в свойствах размера это можно сделать просто, но операторами как это сделать неочевидно

Здравствуйте.
Мало, что понимаю в этом вопросе.
Взял с форума.

Visual Basic

Dim Points(0 To 3) As Double ' координаты концов отрезка
'Define the polyline Coordinates XY, XY, XY .....
ThisDraving.Utility.GetEntity PLYline, Points, "Выберите отрезок"

'Run the dimension code

Dim dimObj As AutoCAD.AcadDimAligned
Dim point1(0 To 2) As Double
Dim point2(0 To 2) As Double
Dim location(0 To 2) As Double

'CREATE THE LENGTH DIMENSION
' Define the dimension
point1(0) = PLYline.Coordinates(0): point1(1) = PLYline.Coordinates(1): point1(2) = 0
point2(0) = PLYline.Coordinates(2): point2(1) = PLYline.Coordinates(3): point2(2) = 0
location(0) = 100: location(1) = 150: location(2) = 0

' Create an aligned dimension object in model space
Set dimObj = ad.ModelSpace.AddDimAligned(point1, point2, location)
dimObj.TextOverride = "ololo"


Если ответ полный бред просьба сообщить :)