VBA第五章—创建标椎蘑和公差.docVIP

创建标注和公差创建多行文字可以使用 AddMText 方法来创建多行文字对象（MText 对象）。 此方法需要输入三个值：文字字符串、图形中用于放置文字的插入点和文字边框的宽度。 在模型空间中的 (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 = This is a text string for the mtext object. 在模型空间中创建文字对象 Set mtextObj = ThisDrawing.ModelSpace. _ AddMText(insertPoint, width, textString) ZoomAll End Sub 创建线性标注线性标注可以是对齐标注或转角标注。 对齐标注的尺寸线与尺寸界线原点所在的线平行； 而转角标注的尺寸线与尺寸界线原点形成一定的角度。 要创建对齐标注，使用 AddDimAligned 方法。 这个方法需要输入三个坐标值：两条尺寸界线的原点和文字位置。 要创建转角标注，使用 AddDimRotated 方法。 这个方法需要输入三个坐标值和尺寸线的角度。 三个坐标值分别是两条尺寸界线的原点和文字位置值。 角度必须以弧度提供，代表尺寸线的旋转角度。创建半径标注 半径标注用于测量圆弧和圆的半径与直径。 要创建半径标注，使用 AddDimRadial 方法。 要创建半径标注，使用 AddDimRadial 或 AddDimDiametric 方法。 这些方法都需要输入三个值：圆或圆弧的圆心坐标、引线附着的坐标以及引线的长度。 例在模型空间中创建半径标注。 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创建角度标注 角度标注用于测量两条线或三个点之间的角度。 例如，可以使用它们来测量圆的两个半径之间的角度。 尺寸线会形成一个圆弧。 要创建角度标注，使用 AddDimAngular 方法。 这个方法需要输入个值：角度顶点、尺寸界线点和文位置。 AngleVertex 是圆或圆弧的圆心，或是被标注的两条线之间的公共顶点。 例在模型空间中创建角度标注。 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 angVert(2) = 0 FirstPoint(0) = 1 FirstPoint(1) = 7 FirstPoint(2) = 0 SecondPoint(0) = 1 SecondPoint(1) = 3 SecondPoint(2) = 0 TextPoint(0) = 3 TextPo