在vba中实现文字堆叠

imwey · 发表于 2008-9-21 11:29:53

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

AUTOCAD中的多行文字中输入 ^ 再按堆叠按钮即可实现堆叠，那么在cad自带的vba中如何用代码实现mtext的堆叠呢？
有那位用过vba的高人给指点一下

woaishuijia · 发表于 2008-9-22 19:47:53

用格式代码。
参见CAD帮助文件《用户手册》相关内容。
AutoCAD 2005 用户手册 > 图案填充、注释、表格和标注 > 注释和标签 > 使用替换文本编辑器 > 在替换文本编辑器中设置多行文字的格式
AutoCAD 2008 用户手册 > 注释图形 > 注释和标签 > 使用替换文字编辑器 > 在替换文字编辑器中设置多行文字的格式

sealive_leafage · 发表于 2008-9-22 22:13:35

给段代码看看：
Sub AddTxt()
Dim corner(0 To 2) As Double
corner(0) = 0#: corner(1) = 0#: corner(2) = 0#:
ThisDrawing.ModelSpace.AddMText corner, 100, "{\A1;100\H.75x;\S+0.020^ 0;}"
End Sub

imwey · 发表于 2008-10-9 18:06:38

非常感谢楼上两位，太谢谢了

ytcadtools · 发表于 2008-10-16 15:12:54

高手，不错不错

		自动登录	找回密码
密码			注册

通知

[已答复] 在vba中实现文字堆叠

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

浏览过的版块