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

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

<P>Sub Example_TextRotation()<BR>&nbsp;&nbsp;&nbsp; Dim dimObj As AcadDimAligned<BR>&nbsp;&nbsp;&nbsp; Dim point1(0 To 2) As Double<BR>&nbsp;&nbsp;&nbsp; Dim point2(0 To 2) As Double<BR>&nbsp;&nbsp;&nbsp; Dim location(0 To 2) As Double<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; point1(0) = 5#: point1(1) = 3#: point1(2) = 0#<BR>&nbsp;&nbsp;&nbsp; point2(0) = 5#: point2(1) = 11#: point2(2) = 0#<BR>&nbsp;&nbsp;&nbsp; location(0) = 1: location(1) = 7#: location(2) = 0#<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)<BR>&nbsp;&nbsp;&nbsp; ZoomAll<BR>&nbsp;&nbsp;&nbsp; dimObj.TextRotation = 0.785<BR>&nbsp;&nbsp;&nbsp; dimObj.Update<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>End Sub</P>
<P>利用TextRotation属性可以改变标注文字的旋转角度，但是如何把上面程序中的标注文字变为水平。请高手帮助解决！！</P>

雪山飞狐_lzh 发表于 2006-4-18 21:44:00

改变标注式样

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

Public dimobj As AcadDimRotated&nbsp; '定义线性标注<BR>Set dimobj = blockObject.AddDimRotated(Pt21, Pt24, Pt38, Pi / 2) '垂直标注<BR>Set dimobj = blockObject.AddDimRotated(Pt21, Pt24, Pt38, 0) '水平标注
页: [1]
查看完整版本: 求助：如何使标注文字变为水平