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

第五章 创建标注和公差 第五章 创建标注和公差 5. 1创建多行文字 可以使用AddMText方法来创 建多行文字对象（MText对象）。此 方法需要输入三个值：文字字符串、 图形中用于放置文字的插入点和文 字边框的宽度。 例1在模型空间中的（2,2,0） 坐 标处创建MText对象。 Sub Ch4_CreateMText() Dim mtextObj As AcadMText Dim in sertPo in t(0 To 2) As Double Dim width As Double Dim textStri ng As Stri ng in sertPoi nt(0) = 2 in sertPo in t(1) = 2 in sertPoi nt(2) = 0 width = 4 textStri ng = This is a text string for the mtext object. 在模型空间中创建文字对象 Set mtextObj = ThisDrawi ng.M odelSpace. _ AddMText(i nsertPo int, width, textStri ng) ZoomAll End Sub 5.2创建线性标注 线性标注可以是对齐标注或转 角标注。 对齐标注的尺寸线与尺寸 界线原点所在的线平行； 而转角标 注的尺寸线与尺寸界线原点形成一 定