https://www.2d-3d.ru/forum/autocadforum/topic-723.html Последние ответы в теме: Как в vba utocad изменить размер на свою текстовую строку LogicBoard Мало, что понимаю в этом вопросе.
Взял с форума.

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"


Если ответ полный бред просьба сообщить :)]]> https://www.2d-3d.ru/forum/autocadforum/last/topic-723.html Sun, 01 Nov 2015 14:31:49 +0300 Max https://www.2d-3d.ru/forum/autocadforum/last/topic-723.html Fri, 30 Oct 2015 10:19:13 +0300 Olegus79