stulsx 发表于 2004-11-15 22:38:00

文字的插入点为何不对？(问题代码见帖子内容)

<FONT face=宋体 size=2>Public Sub InsText()<BR>Dim InsPoint(0 To 2) As Double, txt As AcadText<BR>'文字插入点<BR>InsPoint(0) = 100: InsPoint(1) = 100: InsPoint(2) = 0<BR><BR>'插入文字(单文本)<BR>Set txt = ThisDrawing.ModelSpace.AddText("WENZI", InsPoint, 5)<BR><BR>'设置文本的对齐方式<BR>txt.Alignment = acAlignmentBottomLeft<BR><BR>'执行之后为文字的什么插入点不是 InsPoint--(100,100,0),而是(0,0,0)?<BR>End Sub</FONT>

tiger8888 发表于 2004-11-15 23:05:00

将<FONT size=2>txt.Alignment = acAlignmentBottomLeft行删除</FONT>


<FONT size=2>或再增加一行txt.TextAlignmentPoint = InsPoint</FONT>

stulsx 发表于 2004-11-16 09:31:00

谢谢你，问题得到解决了！


还有一个问题这个变量 文本对象的VerticalAlignment属性为什么不能用呢？为什么垂直的对其点我不能用呢？我现在的问题是垂直的对齐点不能使用呢？是否单文本的不能用垂直对齐点呢？

雪山飞狐_lzh 发表于 2004-11-16 10:28:00

' Note that the VerticalAlignment property must be changed first,<BR>                       ' and to a value that requires the TextAlignmentPoint, before the<BR>                       ' TextAlignmentPoint property will allow a value to be set.<BR>
页: [1]
查看完整版本: 文字的插入点为何不对？(问题代码见帖子内容)