求助：如何使标注文字变为水平

gzmkshjsh

Sub Example_TextRotation()
    Dim dimObj As AcadDimAligned
    Dim point1(0 To 2) As Double
    Dim point2(0 To 2) As Double
    Dim location(0 To 2) As Double
   
    point1(0) = 5#: point1(1) = 3#: point1(2) = 0#
    point2(0) = 5#: point2(1) = 11#: point2(2) = 0#
    location(0) = 1: location(1) = 7#: location(2) = 0#
   
    Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)
    ZoomAll
    dimObj.TextRotation = 0.785
    dimObj.Update
       
End Sub

利用TextRotation属性可以改变标注文字的旋转角度，但是如何把上面程序中的标注文字变为水平。请高手帮助解决！！

雪山飞狐_lzh

改变标注式样

houlinbo

Public dimobj As AcadDimRotated  '定义线性标注
Set dimobj = blockObject.AddDimRotated(Pt21, Pt24, Pt38, Pi / 2) '垂直标注
Set dimobj = blockObject.AddDimRotated(Pt21, Pt24, Pt38, 0) '水平标注