精品文档
第五章 创建标注和公差
5．1 创建多行文字
可以使用 AddMText 方法来创建多行文字对象（MText 对象）。 此方法需要输入三个值：文字字符串、图形中用于放置文字的插入点和文字边框的宽度。
例 1 在模型空间中的 (2,2,0) 坐标处创建 MText 对象。
Sub Ch4_CreateMText()
Dim mtextObj As AcadMText Dim insertPoint(0 To 2) As Double
Dim width As Double
Dim textString As String insertPoint(0) = 2 insertPoint(1) = 2 insertPoint(2) = 0 width = 4
textString = \string for the mtext object.\
精品文档
精品文档
' 在模型空间中创建文字对象 Set mtextObj =
ThisDrawing.ModelSpace. _
AddMText(insertPoint, width, textString) ZoomAll End Sub
5.2 创建线性标注 线性标注可以是对齐标注或转角标注。 对齐标注的尺寸线与尺寸界线原点所在的线平行； 而转角标注的尺寸线与尺寸界线原点形成一定的角度。
要创建对齐标注，使用
AddDimAligned 方法。 这个方法需要输入三个坐标值：两条尺寸界线的原点和文字位置。
要创建转角标注，使用
AddDimRotated 方法。 这个方法需要输入三个坐标值和尺寸线的角
精品文档
精品文档
度。 三个坐标值分别是两条尺寸界线的原点和文字位置值。 角度必须以弧度提供，代表尺寸线的旋转角度。
5.3 创建半径标注
半径标注用于测量圆弧和圆的半径与直径。 要创建半径标注，使用 AddDimRadial 方法。 要创建半径标注，使用 AddDimRadial 或
AddDimDiametric 方法。 这些方法都需要输入三个值：圆或圆弧的圆心坐标、引线附着的坐标以及引线的长度。
例2 在模型空间中创建半径标注。 Sub Ch5_CreateRadialDimension() Dim dimObj As AcadDimRadial Dim center(0 To 2) As Double Dim chordPoint(0 To 2) As Double
精品文档