VB编程操作AutoCAD多行文字
2011-06-18 20:32 精诚所至 金石为开 阅读(746) 评论(0) 编辑 收藏 举报多行文本常用来显示AutoCAD中的文字说明、注释和技术性要求,多行文字的创建和应用和单行文字类似,用文档对象的AddText方法可以创建多行文字对象,该方法需要三个参数:文字字符串、文本插入点和文本的宽度,语法格式如下。
RetVal=object.AddMText(Insertionpoint,Width,Text)
下面的代码创建一个多行文本。
Private Sub Command1_Click()
Dim mtextobj As AcadMText
Dim mtextstring As String
Dim insertionpoint(0 To 2) As Double
Dim width As Double
width = 45
insertionpoint(0) = 50: insertionpoint(1) = 20: insertionpoint(2) = 0
mtextstring = " "
mtextstring = mtextstring & "aaa"
mtextstring = mtextstring & "bbb"
mtextstring = mtextstring & "ccc"
mtextstring = mtextstring & "ddd"
mtextstring = mtextstring & " "
acadapp.ActiveDocument.ActiveTextStyle.fontFile = "C:\windows\fonts\vani.ttf"
Set mtextobj = acadapp.ActiveDocument.ModelSpace.AddMText(insertionpoint, width, mtextstring)
End Sub