VBA第五章创建标注和公差.docx

1、VBA第五章创建标注和公差5. 1创建多行文字可以使用AddMText方法来创 建多行文字对象（MText对象）。此 方法需要输入三个值：文字字符串、 图形中用于放置文字的插入点和文 字边框的宽度。例1在模型空间中的（2,2,0） 坐 标处创建MText对象。Sub Ch4_CreateMText()Dim mtextObj As AcadMTextDim in sertPo in t(0 To 2) AsDoubleDim width As DoubleDim textStri ng As Stri ngin sertPoi nt(0) = 2in sertPo in t(1) = 2in

2、sertPoi nt(2) = 0width = 4textStri ng = This is a text string for the mtext object. 在模型空间中创建文字对象Set mtextObj =ThisDrawi ng.M odelSpace. _AddMText(i nsertPo int, width, textStri ng)ZoomAllEnd Sub5.2创建线性标注线性标注可以是对齐标注或转 角标注。 对齐标注的尺寸线与尺寸界线原点所在的线平行； 而转角标注的尺寸线与尺寸界线原点形成一 定的角度。要创建对齐标注，使用 AddDimAligned方法。这个方

3、法需 要输入三个坐标值：两条尺寸界线 的原点和文字位置。要创建转角标注，使用AddDimRotated方法。这个方法需 要输入三个坐标值和尺寸线的角度。三个坐标值分别是两条尺寸界 线的原点和文字位置值。 角度必须以弧度提供，代表尺寸线的旋转角 度。5.3创建半径标注半径标注用于测量圆弧和圆的 半径与直径。要创建半径标注，使 用 AddDimRadial 方法。要创建半径标注，使用AddDimRadial 或 AddDimDiametric 方法。这些方法 都需要输入三个值：圆或圆弧的圆 心坐标、引线附着的坐标以及引线 的长度。例2在模型空间中创建半径标注。Sub Ch5_CreateRadia

4、lDimensio n() Dim dimObj As AcadDimRadial Dim cen ter(0 To 2) As Double Dim chordPoi nt(O To 2) AsDoubleDim leaderLe n As In teger 定义标注cen ter(O) = 0cen ter(1) = 0cen ter(2) = 0chordPo in t(0) = 5chordPo in t(1) = 5chordPo in t(2) = 0 leaderLe n = 5 在模型空间中创建半径标注Set dimObj =ThisDrawi ng.M odelSpace.

5、_AddDimRadial(ce nter, chordPo in t, leaderLe n)ZoomAllEnd Sub5.4创建角度标注角度标注用于测量两条线或 三个点之间的角度。 例如，可以使用它们来测量圆的两个半径之间的 角度。 尺寸线会形成一个圆弧。要创建角度标注，使用AddDimAngular方法。这个方法需 要输入四个值：角度顶点、两条尺 寸界线端点和文字起始位置。An gleVertex 是圆或圆弧的圆心， 或是被标注的两条线之间的公共顶 点。例3在模型空间中创建角度标注。SubCh5_CreateA ngularDime nsi on()Dim dimObj As Acad

6、DimA ngularDim angVert(0 To 2) As DoubleDim FirstPoi nt(O To 2) AsDoubleDim Sec on dPo in t(0 To 2) AsDoubleDim TextPoi nt(O To 2) AsDouble 定义标注an gVert(O) = 0an gVert(1) = 5x皇眾艰洱洱兩載畀x WWW人車X 胡騎伍卑甲呆洱却兩 呆洱洱兩章碍99qns pua IIVUJOOZ (juiodixs 丄 uiodpuoosg uiodjsjij 7e/6uE)E| n6uvuu!aPPV _ 9oeds|9po|/|6u!/

7、vejQS!qi =qouJip es 眾卿超爭章碍申回伞血制丑 .0 =(乙)；Uj0dlX9 丄9 = (Oiuiodixs 丄 = (oMQdixe 丄 0 =屮!odpuooes e = (0;uiodpuoo9s L =(0)JUIOdPUOO9S0 =(乙)luiodisjid z 二UQdQH L = (oujodiSJid 0 = pe/6ue轴测量特征与基准点之间的距离。 Y基准坐标标注沿着Y轴测量相 同的距离。AutoCAD使用当前坐标 系（UCS）的原点确定测量的坐标。 坐标使用绝对值。要创建坐标标注，使用AddDimOrdinate方法。这个方法 需要输入三个值：用于指

8、定要标注 的点的坐标（A）、用于指定引线端 点的坐标（B）以及用于指定标注 是X基准坐标标注还是 Y基准坐 标标注的布尔标志。 如果为布尔标志输入TRUE,该方法将创建X基 准坐标标注。 如果输入FALSE，贝V会创建Y基准坐标标注。例4在模型空间中创建坐标标注。SubCh5_Creati ngOrdi nateDime nsion（）Dim dimObj As AcadDimOrdi nateDim definingPoint(O To 2) AsDoubleDim leaderE ndPoi nt(O To 2)As DoubleDim useXAxis As Long 定义标注defi

9、nin gPoi nt(O) = 50defi nin gPoi nt=50defi nin gPoi nt(2) = 0 leaderE ndPoi nt(0) = 100 leaderE ndPoi nt(1) = 50 leaderE ndPoi nt(2) = 0 useXAxis = 5 不等于零的数都为真值 在模型空间中创建坐标标注Set dimObj =ThisDrawi ng.M odelSpace. _AddDimOrdinate(definingPoint, _ leaderE ndPo int, useXAxis)ZoomAllEnd Sub5.6替代标注文字可以使用Te

10、xtOverride 特 性来替换所显示的标注值。 使用此特性可以完全替换所显示的标注 值，也可以向该值附加文字。例5向标注值附加了文字，所以既 显示字符串，又显示标注值。Sub Ch5_OverrideDime nsio nText()Dim dimObj As AcadDimAlig nedDim point1(0 To 2) As DoubleDim point2(0 To 2) As DoubleDim locatio n(0 To 2) AsDouble 定义标注point1(O) = 50#: point1(1) =30#: point1(2) = 0#poi nt2(0) = 1

11、00#: poi nt2(1)=30#: poi nt2(2) = 0#location(0) = 75: location(1)=50#: locati on(2) = 0# 在模型空间中创建对齐标注对象Set dimObj =ThisDrawi ng.M odelSpace. _AddDimAlig ned(poi nt1, poi nt2, locati on) 修改标注的字符串dimObj.TextOverride = The value is dimObj.UpdateEnd Sub5.7创建、修改和复制标注样式要创建新的标注样式，使用 Add方法。这个方法需要输入新标 注样式的名称

12、。也可以复制一种现有样式或 一组替代。 使用CopyFrom方法, 将标注样式从源对象复制到新标注 样式中。 源对象可以是另一个DimStyle 对象、标注、Toleranee或Leader对象，甚至可以是 Docume nt对象。 如果从另一个标 注样式复制样式设置，则样式被精 确复制。如果从标注、Tolerance 或Leader对象复制样式的设置， 则当前设置（包括所有对象替代） 会被复制到新样式中。 如果复制Docume nt对象的样式，则活动标注 样式加上所有的图形替代，会被复 制到新样式。例6创建三个新的标注样式，并将 文档、给定标注样式和给定标注的 当前设置分别复制到各个新的标注

13、 样式中。如果在运行此样例之前进 行适当的设置，将发现创建的是不 同的标注样式。预先设置内容：1创建新的图形并使其成为活动的图2在新的图形中创建线性标注。 此标注应该是图形中仅有的对象。3将标注线的颜色更改为黄色。4将DIMCLRD系统变量改为5 (蓝 色)。Sub Ch5_CopyDimStyles()Dim newStyle1 AsAcadDimStyleDim newStyle2 AsAcadDimStyleDim newStyle3 AsAcadDimStyleSet newStyle1 =ThisDraw ing. DimStyles.Add _(Style 1copied from

14、 a dim)Calln ewStyle1 CopyFrom(ThisDrawi ng .ModelSpace(O)Set newStyle2 =ThisDraw ing. DimStyles.Add _(Style 2copied from Style 1)Calln ewStyle2 CopyFrom(ThisDrawi ng .DimStyles .Item _(Style 1copied from a dim)Set newStyle3 =ThisDraw ing. DimStyles.Add _(Style 3copied from the running draw ing valu

15、es)Calln ewStyle2 CopyFrom(ThisDrawi ng)End Sub打开DIMST YLE对话框。现 在应该列出了三种标注样式。 样式 1应该具有黄色的尺寸线， 样式2应该与样式1相同，而样式3应 该具有蓝色的尺寸线。5.8仓健引线可以从图形中的任意点或特征 创建引线，并在绘制时控制其外观。 引线可以是直线段或平滑的样条曲 线。引线颜色由当前的尺寸线颜色 控制。引线缩放比例由活动标注样 式中设置的全局标注比例控制。 箭头的类型和大小（如果有）由活动 样式定义的第一个箭头控制。注释通常由一条小线（称为钩 线）连接到引线。 如果最后一条引线段与水平线的夹角大于 15度， 则钩线会与多行文字和特征控制框 一起显示。 钩线具有一个箭头的长 度。如果引线没有注释，它也就不 会有钩线。要创建引线，使用 AddLeader方法。这个方法需要输入三个值： 指定创建