Remove text (measurement) from dimension

[Anonymous]

I would like to create textprefix "aa" and remove measurement (numbers indicating length )

How to remove this measurement ?

Set wymiartyprot01 = ThisDrawing.ModelSpace.AddDimRotated(pkta01ScPgSr, pktaOsHorPSrg01,pkta01ScPgz, k90Deg)
    wymiartyprot01.TextPrefix = "aa"

[Alfred.NESWADBA · Accepted solution]

Hi,

does that work for you?

Public Sub test()
   Dim tDimObj As AcadDimension
   Dim tPnt1(2) As Double: tPnt1(0) = 1: tPnt1(1) = 1: tPnt1(2) = 0
   Dim tPnt2(2) As Double: tPnt2(0) = 5: tPnt2(1) = 1: tPnt2(2) = 0
   Dim tPnt3(2) As Double: tPnt3(0) = 3: tPnt3(1) = 2: tPnt1(2) = 0
   
   Set tDimObj = ThisDrawing.ModelSpace.AddDimRotated(tPnt1, tPnt2, tPnt3, 0)
   tDimObj.TextOverride = "aa"
End Sub

- alfred -

[Anonymous]

Thank You it works .