内容发布更新时间 : 2024/5/26 15:31:23星期一 下面是文章的全部内容请认真阅读。

精品文档

第五章 创建标注和公差

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

精品文档