VBA第五章创建标注和公差21页word资料.docx
《VBA第五章创建标注和公差21页word资料.docx》由会员分享，可在线阅读，更多相关《VBA第五章创建标注和公差21页word资料.docx（9页珍藏版）》请在冰豆网上搜索。
VBA第五章创建标注和公差21页word资料
第五章创建标注和公差
家庭是幼儿语言活动的重要环境，为了与家长配合做好幼儿阅读训练工作，孩子一入园就召开家长会，给家长提出早期抓好幼儿阅读的要求。
我把幼儿在园里的阅读活动及阅读情况及时传递给家长，要求孩子回家向家长朗诵儿歌，表演故事。
我和家长共同配合，一道训练，幼儿的阅读能力提高很快。
5．1创建多行文字
要练说，得练听。
听是说的前提，听得准确，才有条件正确模仿，才能不断地掌握高一级水平的语言。
我在教学中，注意听说结合，训练幼儿听的能力，课堂上，我特别重视教师的语言，我对幼儿说话，注意声音清楚，高低起伏，抑扬有致，富有吸引力，这样能引起幼儿的注意。
当我发现有的幼儿不专心听别人发言时，就随时表扬那些静听的幼儿，或是让他重复别人说过的内容，抓住教育时机，要求他们专心听，用心记。
平时我还通过各种趣味活动，培养幼儿边听边记，边听边想，边听边说的能力，如听词对词，听词句说意思，听句子辩正误，听故事讲述故事，听谜语猜谜底，听智力故事，动脑筋，出主意，听儿歌上句，接儿歌下句等，这样幼儿学得生动活泼，轻松愉快，既训练了听的能力，强化了记忆，又发展了思维，为说打下了基础。
可以使用AddMText方法来创建多行文字对象（MText对象）。
此方法需要输入三个值：
文字字符串、图形中用于放置文字的插入点和文字边框的宽度。
单靠“死”记还不行,还得“活”用,姑且称之为“先死后活”吧。
让学生把一周看到或听到的新鲜事记下来,摒弃那些假话套话空话,写出自己的真情实感,篇幅可长可短,并要求运用积累的成语、名言警句等,定期检查点评,选择优秀篇目在班里朗读或展出。
这样,即巩固了所学的材料,又锻炼了学生的写作能力,同时还培养了学生的观察能力、思维能力等等,达到“一石多鸟”的效果。
例1在模型空间中的（2,2,0）坐标处创建MText对象。
SubCh4_CreateMText（）
DimmtextObjAsAcadMText
DiminsertPoint（0To2）AsDouble
DimwidthAsDouble
DimtextStringAsString
insertPoint（0）=2
insertPoint
（1）=2
insertPoint
（2）=0
width=4
textString="Thisisatextstringforthemtextobject."
'在模型空间中创建文字对象
SetmtextObj=ThisDrawing.ModelSpace._
AddMText（insertPoint,width,textString）
ZoomAll
EndSub
5.2创建线性标注
线性标注可以是对齐标注或转角标注。
对齐标注的尺寸线与尺寸界线原点所在的线平行；而转角标注的尺寸线与尺寸界线原点形成一定的角度。
要创建对齐标注，使用AddDimAligned方法。
这个方法需要输入三个坐标值：
两条尺寸界线的原点和文字位置。
要创建转角标注，使用AddDimRotated方法。
这个方法需要输入三个坐标值和尺寸线的角度。
三个坐标值分别是两条尺寸界线的原点和文字位置值。
角度必须以弧度提供，代表尺寸线的旋转角度。
5.3创建半径标注
半径标注用于测量圆弧和圆的半径与直径。
要创建半径标注，使用AddDimRadial方法。
要创建半径标注，使用AddDimRadial或AddDimDiametric方法。
这些方法都需要输入三个值：
圆或圆弧的圆心坐标、引线附着的坐标以及引线的长度。
例2在模型空间中创建半径标注。
SubCh5_CreateRadialDimension（）
DimdimObjAsAcadDimRadial
Dimcenter（0To2）AsDouble
DimchordPoint（0To2）AsDouble
DimleaderLenAsInteger
'定义标注
center（0）=0
center
（1）=0
center
（2）=0
chordPoint（0）=5
chordPoint
（1）=5
chordPoint
（2）=0
leaderLen=5
'在模型空间中创建半径标注
SetdimObj=ThisDrawing.ModelSpace._
AddDimRadial（center,chordPoint,leaderLen）
ZoomAll
EndSub
5.4创建角度标注
角度标注用于测量两条线或三个点之间的角度。
例如，可以使用它们来测量圆的两个半径之间的角度。
尺寸线会形成一个圆弧。
要创建角度标注，使用AddDimAngular方法。
这个方法需要输入四个值：
角度顶点、两条尺寸界线端点和文字起始位置。
AngleVertex是圆或圆弧的圆心，或是被标注的两条线之间的公共顶点。
例3在模型空间中创建角度标注。
SubCh5_CreateAngularDimension（）
DimdimObjAsAcadDimAngular
DimangVert（0To2）AsDouble
DimFirstPoint（0To2）AsDouble
DimSecondPoint（0To2）AsDouble
DimTextPoint（0To2）AsDouble
'定义标注
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
TextPoint
（1）=5
TextPoint
（2）=0
'在模型空间中创建角度标注
SetdimObj=ThisDrawing.ModelSpace._
AddDimAngular（angVert,FirstPoint,SecondPoint,TextPoint）
ZoomAll
EndSub
5.5创建坐标标注
坐标标注由带引线的X或Y坐标组成。
X基准坐标标注沿着X轴测量特征与基准点之间的距离。
Y基准坐标标注沿着Y轴测量相同的距离。
AutoCAD使用当前坐标系（UCS）的原点确定测量的坐标。
坐标使用绝对值。
要创建坐标标注，使用AddDimOrdinate方法。
这个方法需要输入三个值：
用于指定要标注的点的坐标（A）、用于指定引线端点的坐标（B）以及用于指定标注是X基准坐标标注还是Y基准坐标标注的布尔标志。
如果为布尔标志输入TRUE，该方法将创建X基准坐标标注。
如果输入FALSE，则会创建Y基准坐标标注。
例4在模型空间中创建坐标标注。
SubCh5_CreatingOrdinateDimension（）
DimdimObjAsAcadDimOrdinate
DimdefiningPoint（0To2）AsDouble
DimleaderEndPoint（0To2）AsDouble
DimuseXAxisAsLong
'定义标注
definingPoint（0）=50
definingPoint
（1）=50
definingPoint
（2）=0
leaderEndPoint（0）=100
leaderEndPoint
（1）=50
leaderEndPoint
（2）=0
useXAxis=5‘不等于零的数都为真值
'在模型空间中创建坐标标注
SetdimObj=ThisDrawing.ModelSpace._
AddDimOrdinate（definingPoint,_
leaderEndPoint,useXAxis）
ZoomAll
EndSub
5.6替代标注文字
可以使用TextOverride特性来替换所显示的标注值。
使用此特性可以完全替换所显示的标注值，也可以向该值附加文字。
例5向标注值附加了文字，所以既显示字符串，又显示标注值。
SubCh5_OverrideDimensionText（）
DimdimObjAsAcadDimAligned
Dimpoint1（0To2）AsDouble
Dimpoint2（0To2）AsDouble
Dimlocation（0To2）AsDouble
'定义标注
point1（0）=50#:
point1
（1）=30#:
point1
（2）=0#
point2（0）=100#:
point2
（1）=30#:
point2
（2）=0#
location（0）=75:
location
（1）=50#:
location
（2）=0#
'在模型空间中创建对齐标注对象
SetdimObj=ThisDrawing.ModelSpace._
AddDimAligned（point1,point2,location）
'修改标注的字符串
dimObj.TextOverride="Thevalueis<>"
dimObj.Update
EndSub
5.7创建、修改和复制标注样式
要创建新的标注样式，使用Add方法。
这个方法需要输入新标注样式的名称。
也可以复制一种现有样式或一组替代。
使用CopyFrom方法，将标注样式从源对象复制到新标注样式中。
源对象可以是另一个DimStyle对象、标注、Tolerance或Leader对象，甚至可以是Document对象。
如果从另一个标注样式复制样式设置，则样式被精确复制。
如果从标注、Tolerance或Leader对象复制样式的设置，则当前设置（包括所有对象替代）会被复制到新样式中。
如果复制Document对象的样式，则活动标注样式加上所有的图形替代，会被复制到新样式。
例6创建三个新的标注样式，并将文档、给定标注样式和给定标注的当前设置分别复制到各个新的标注样式中。
如果在运行此样例之前进行适当的设置，将发现创建的是不同的标注样式。
预先设置内容：
1创建新的图形并使其成为活动的图形。
2在新的图形中创建线性标注。
此标注应该是图形中仅有的对象。
3将标注线的颜色更改为黄色。
4将DIMCLRD系统变量改为5（蓝色）。
SubCh5_CopyDimStyles（）
DimnewStyle1AsAcadDimStyle
DimnewStyle2AsAcadDimStyle
DimnewStyle3AsAcadDimStyle
SetnewStyle1=ThisDrawing.DimStyles.Add_
（"Style1copiedfromadim"）
CallnewStyle1.CopyFrom（ThisDrawing.ModelSpace（0））
SetnewStyle2=ThisDrawing.DimStyles.Add_
（"Style2copiedfromStyle1"）
CallnewStyle2.CopyFrom（ThisDrawing.DimStyles.Item_
（"Style1copiedfromadim"））
SetnewStyle3=ThisDrawing.DimStyles.Add_
（"Style3copiedfromtherunningdrawingvalues"）
CallnewStyle2.CopyFrom（ThisDrawing）
EndSub
打开DIMSTYLE对话框。
现在应该列出了三种标注样式。
样式1应该具有黄色的尺寸线，样式2应该与样式1相同，而样式3应该具有蓝色的尺寸线。
5.8创建引线
可以从图形中的任意点或特征创建引线，并在绘制时控制其外观。
引线可以是直线段或平滑的样条曲线。
引线颜色由当前的尺寸线颜色控制。
引线缩放比例由活动标注样式中设置的全局标注比例控制。
箭头的类型和大小（如果有）由活动样式定义的第一个箭头控制。
注释通常由一条小线（称为钩线）连接到引线。
如果最后一条引线段与水平线的夹角大于15度，则钩线会与多行文字和特征控制框一起显示。
钩线具有一个箭头的长度。
如果引线没有注释，它也就不会有钩线。
要创建引线，使用AddLeader方法。
这个方法需要输入三个值：
指定创建引线所在的坐标数组，注释对象（或如果引线没有注释则为NULL）以及要创建的引线类型。
引线类型可用指定引线是直线还是光滑的样条曲线，还可以确定引线是否带箭头。
使用以下一个常量来指定引线类型：
acLineNoArrow、acLineWithArrow、acSplineNoArrow或acSplineWithArrow。
这些常量是相互排斥的。
例7在模型空间中创建引线。
引线没有关联的注释。
SubCh5_CreateLeader（）
DimleaderObjAsAcadLeader
Dimpoints（0To8）AsDouble
DimleaderTypeAsInteger
DimannotationObjectAsAcadObject
points（0）=0:
points
（1）=0:
points
（2）=0
points（3）=4:
points（4）=4:
points（5）=0
points（6）=4:
points（7）=5:
points（8）=0
leaderType=acLineWithArrow
SetannotationObject=Nothing
'在模型空间中创建引线对象
SetleaderObj=ThisDrawing.ModelSpace._
AddLeader（points,annotationObject,leaderType）
ZoomAll
EndSub
5.9向引线添加注释
引线注释可以是Tolerance、MText或BlockRef对象。
可以创建新注释，也可附加现有注释的副本。
创建完注释后，才能将其添加到引线。
要在创建引线时添加注释，将注释输入到AddLeader方法中。
5.10引线关联性
引线与其注释是关联的，因此当注释移动时，引线的端点也会随着移动。
在移动文字注释和特征控制框注释时，引线的最后一段会根据注释与引线的倒数第二个点之间的关系，决定是附加到注释的左侧还是右侧。
如果注释的中点在引线的倒数第二个点的右侧，则引线将附着到右侧，否则将附着到左侧。
使用Erase、Add（添加块）或WBlock方法从图形中删除对象将失去关联性。
如果在一次操作中同时复制了引线及其注释，则新的副本也具有关联性。
如果分别复制它们，则新的副本没有关联性。
如果因为任何原因失去了关联性，例如，只复制了Leader对象或删除了注释，钩线都将从引线中删除。
例8创建MText对象。
接着使用MText对象作为其注释来创建引线。
SubCh5_AddAnnotation（）
DimleaderObjAsAcadLeader
DimmtextObjAsAcadMText
Dimpoints（0To8）AsDouble
DiminsertionPoint（0To2）AsDouble
DimwidthAsDouble
DimleaderTypeAsInteger
DimannotationObjectAsObject
DimtextStringAsString,msgAsString
'在模型空间中创建MText对象
textString="Hello,World."
insertionPoint（0）=50
insertionPoint
（1）=50
insertionPoint
（2）=0
width=2
SetmtextObj=ThisDrawing.ModelSpace._
AddMText（insertionPoint,width,textString）
'引线的数据
points（0）=0:
points
（1）=0:
points
（2）=0
points（3）=4:
points（4）=4:
points（5）=0
points（6）=4:
points（7）=5:
points（8）=0
leaderType=acLineWithArrow
'在模型空间中创建引线对象，并将
'MText对象与引线关联
SetannotationObject=mtextObj
SetleaderObj=ThisDrawing.ModelSpace._
AddLeader（points,annotationObject,leaderType）
ZoomAll
EndSub
5.11创建形位公差
要创建形位公差，使用AddTolerance方法。
这个方法需要输入三个值：
构成公差符号的文字字符串、图形中放置公差的位置以及用于指定公差方向的方向矢量。
可以复制、移动、删除、缩放和旋转公差。
例9在模型空间中创建简单的形位公差。
SubCh5_CreateTolerance（）
DimtoleranceObjAsAcadTolerance
DimtextStringAsString
DiminsertionPoint（0To2）AsDouble
Dimdirection（0To2）AsDouble
'定义公差对象
textString="HereistheFeatureControlFrame"
insertionPoint（0）=5
insertionPoint
（1）=5
insertionPoint
（2）=0
direction（0）=1
direction
（1）=1
direction
（2）=0
'在模型空间中创建公差对象
SettoleranceObj=ThisDrawing.ModelSpace._
AddTolerance（textString,insertionPoint,direction）
ZoomAll
EndSub
升级会员 