路边 发表于 2005-7-21 08:13:00

请问：用VBA怎样使单行文字（即AddLine)的对齐分式为居中！！请高手帮忙！！

请问：用VBA怎样使单行文字（即AddLine)的对齐分式为居中！！请高手帮忙！！
例如：Dim mytxt As AcadTextStyle '定义mytxt变量为文本样式
Set mytxt = ThisDrawing.TextStyles.Add("mytxt") '添加mytxt样式
mytxt.fontFile = "c:\windows\fonts\SIMKAI.TTF" '设置字体文件为楷体
mytxt.ObliqueAngle = ThisDrawing.Utility.AngleToReal(0, 0) '设置字体角度为0
ThisDrawing.ActiveTextStyle = mytxt '将当前文字样式设置为mytxt
call ThisDrawing.ModelSpace.addtext（"hello",p,5)'写单行文字hello
hello是以p点左对齐的。
请问：怎样使hello以p点居中？
请各位仁兄帮忙！！！非常感谢！！！

路边 发表于 2005-7-21 08:15:00

AddLine 应为 Addtext !   请帮忙！！！感谢！！！！

wyj7485 发表于 2005-7-21 08:29:00

dim txt
set txt=ThisDrawing.ModelSpace.addtext（"hello",p,5)
txt.Alignment = acAlignmentMiddleCenter
txt.TextAlignmentPoint = p

路边 发表于 2005-7-21 09:56:00

非常感谢！！！
页: [1]
查看完整版本: 请问：用VBA怎样使单行文字（即AddLine)的对齐分式为居中！！请高手帮忙！！