(整理)VBA第五章—创建标注和公差.

精品文档

第五章 创建标注和公差

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

精品文档

精品文档

Dim leaderLen As Integer ' 定义标注 center(0) = 0 center(1) = 0 center(2) = 0

chordPoint(0) = 5 chordPoint(1) = 5 chordPoint(2) = 0 leaderLen = 5

' 在模型空间中创建半径标注 Set dimObj =

ThisDrawing.ModelSpace. _

AddDimRadial(center, chordPoint, leaderLen) ZoomAll End Sub

5.4 创建角度标注 角度标注用于测量两条线或

三个点之间的角度。 例如，可以使用它们来测量圆的两个半径之间的角度。 尺寸线会形成一个圆弧。

精品文档

精品文档

要创建角度标注，使用

AddDimAngular 方法。 这个方法需要输入四个值：角度顶点、两条尺寸界线端点和文字起始位置。 AngleVertex 是圆或圆弧的圆心，或是被标注的两条线之间的公共顶点。

例3 在模型空间中创建角度标注。 Sub

Ch5_CreateAngularDimension() Dim dimObj As AcadDimAngular Dim angVert(0 To 2) As Double Dim FirstPoint(0 To 2) As Double

Dim SecondPoint(0 To 2) As Double

Dim TextPoint(0 To 2) As Double

' 定义标注

angVert(0) = 0 angVert(1) = 5

精品文档