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

创建标注和公差创建多行文字可以使用 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 创建线性标注线性标注可以是对齐标注或转角标注。 对齐标注的尺寸线与尺寸界线原点所在的线平行； 而转角标注