多行文本常用来显示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:windowsfontsvani.ttf"
Set mtextobj = acadapp.ActiveDocument.ModelSpace.AddMText(insertionpoint, width, mtextstring)
End Sub
相关文章
- 2021-07-12Maya总动员:动画编程篇 张宝贵等PDF下载
- 2017-02-28中国外汇中心张江运行楼施工图及方案文本
- 2017-01-15CCD成都首座万豪酒店施工图及概念方案文本下载
- 2014-08-25生活垃圾卫生填埋场中监测孔设置图
- 2013-11-20的剖面图及立面图(cad和pdf格式)
- 2013-03-06一些标准件和常用件规定画法(PPT格式)
- 2013-03-04反铲式挖掘机运动仿真(有模型、动画、参数设置、包络图
- 2013-03-04ABB公司M2QA电机CAD图库dxf格式文件
- 2013-02-15液压缸图纸DWG格式免费下载
- 2013-01-29一套详细深圳永清城施工图带细致节点图