VBA第五章—创建标椎蘑和公差.doc
文本预览下载声明
创建标注和公差创建多行文字可以使用 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
显示全部