社区 › VB › 求助：如何使标注文字变为水平

gzmkshjsh 发表于 2006-4-17 22:53:00

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

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 发表于 2006-4-18 21:44:00

改变标注式样

houlinbo 发表于 2006-6-13 09:52:00

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

查看完整版本: 求助：如何使标注文字变为水平