vba添加文字问题

liuyang4740 · 发表于 2011-4-26 17:45:44

以AddText方法添加文字，左对齐没有问题，中间对齐却有问题：

dim text_insert（2）as double
      text_insert（0）=1000
      text_insert（1）=1000
      text_insert（2）=0
      Set texObj = ThisDrawing.ModelSpace.AddText("文字", text_insert, 1200)
         texObj.TextAlignmentPoint = text_insert
         texObj.Alignment = acAlignmentMiddle
为何选择中部对齐后，文字都在远点（0,0）；不设置对齐方式文字插入在（1000,1000），原因估计是texObj.TextAlignmentPoint 没有获得变量，请问高手为何会这样？

zark · 发表于 2011-4-26 19:01:36

只能先插入（默认是左对齐），然后再改。

liuyang4740 · 发表于 2011-4-27 09:10:38

只能先插入（默认是左对齐），然后再改?楼上的说的是通过手动修改啊？
为何不能给 texObj.TextAlignmentPoint 赋值呢？

放纵 · 发表于 2011-12-29 13:02:15

怎么将文字添加到块中啊，就是让文字和块成为一个块，谢谢各位啦！

xu1979_2000 · 发表于 2012-1-15 21:34:31

本帖最后由 xu1979_2000 于 2012-1-15 21:40 编辑

texObj.Alignment = acAlignmentMiddle
texObj.TextAlignmentPoint = text_insert
顺序调一下

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