auto-cad-vba程序范例

本例创建MText对象。接着使用MText对象作为其注释来创建引线。SubCh5_AddAnnotation()DimleaderObjAsAcadLeaderDimmtextObjAsAcadMTextDimpoints(0To8)AsDoubleDiminsertionPoint(0To2)AsDoubleDimwidthAsDoubleDimleaderTypeAsIntegerDimannotationObjectAsObjectDimtextStringAsString,msgAsString'在模型空间中创建MText对象textString=Hello,World.insertionPoint(0)=5insertionPoint(1)=5insertionPoint(2)=0width=2SetmtextObj=ThisDrawing.ModelSpace._AddMText(insertionPoint,width,textString)'引线的数据points(0)=0:points(1)=0:points(2)=0points(3)=4:points(4)=4:points(5)=0points(6)=4:points(7)=5:points(8)=0leaderType=acLineWithArrow'在模型空间中创建Leader对象并关联'MText对象和引线SetannotationObject=mtextObjSetleaderObj=ThisDrawing.ModelSpace._AddLeader(points,annotationObject,leaderType)ZoomAllEndSub本例在模型空间中创建半径标注。SubCh5_CreateRadialDimension()DimdimObjAsAcadDimRadialDimcenter(0To2)AsDoubleDimchordPoint(0To2)AsDoubleDimleaderLenAsInteger'定义标注center(0)=0center(1)=0center(2)=0chordPoint(0)=5chordPoint(1)=5chordPoint(2)=0leaderLen=5'在模型空间中创建半径标注SetdimObj=ThisDrawing.ModelSpace._AddDimRadial(center,chordPoint,leaderLen)ZoomAllEndSub注意只有当标注设置为使用默认的文字位置值时，才会在创建标注时使用LeaderLength设置。在第一次关闭标注之后，修改LeaderLength的值