Community
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"
Solved! Go to Solution.
Solved by Alfred.NESWADBA. Go to 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 -