[VBA程序]：求助：如何把标注的文字变为水平

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)

修改标注式样

gzmkshjsh

请问斑竹，TextRotation属性的旋转起始角度是不是从不管原始文字角度如何都从水平方向开始的？
除了修改标注式样还有其它方法吗？

雪山飞狐(lzh)

这个没时间试：）
我以前的做法是用模板直接定义好各种标注式样，编程直接调，这样简单些：）

gzmkshjsh

谢谢斑竹，给我提供一个工作方法！！