利用VBA 写文字 对齐方面疑问

tianti

现在 我用 CAD VBA  写一个文字“--DK31+500"  ，插入到 坐标（100,100,0），即”--DK31+500“的左中 连到（100,100,0）点上， 代码写下

2. 
   
3. Sub txt()
   
4.     Dim mytxt As AcadTextStyle  
   
5.     Dim ptinsert(2) As Double
   
6.     Dim txtobj As AcadText
   
7.         ptinsert(0) = 100: ptinsert(1) = 100: ptinsert(2) = 0
   
8.     Set txtobj = ThisDrawing.ModelSpace.addtext("--DK31+500", ptinsert, 20)
   
9.      txtobj.Alignment = acAlignmentMiddleLeft
   
10. End Sub

<br /> Sub txt()<br />     Dim mytxt As AcadTextStyle  <br />     Dim ptinsert(2) As Double<br />     Dim txtobj As AcadText<br />         ptinsert(0) = 100: ptinsert(1) = 100: ptinsert(2) = 0<br />     Set txtobj = ThisDrawing.ModelSpace.addtext("--DK31+500", ptinsert, 20)<br />      txtobj.Alignment = acAlignmentMiddleLeft<br /> End Sub

运行代码后 ， 竟然跑到 （0,0,0）这个点上啦， 如果把txtobj.Alignment = acAlignmentMiddleLeft 这行代码去掉，显示的是”--DK31+500“的左下角是（100,100,0），   我想让 这个文本的左中 对应的是坐标是（100,100,0） ，， 请高手看看，如何更改啊？

wylong

2. 
   
3. 
   
4. Sub txt()
   
5.     Dim mytxt As AcadTextStyle
   
6.     Dim ptinsert(2) As Double
   
7.     Dim txtobj As AcadText
   
8.    
   
9.     ptinsert(0) = 100: ptinsert(1) = 100: ptinsert(2) = 0
   
10.     Set txtobj = ThisDrawing.ModelSpace.AddText("--DK31+500", ptinsert, 20)
    
11.    
    
12.     txtobj.Alignment = acAlignmentMiddleLeft
    
13.    
    
14.     '加上下面此句即可
    
15.     txtobj.TextAlignmentPoint = ptinsert
    
16. End Sub
    
17. 
    
18. '参见以下说明：
    
19. '当 Alignment 属性设置为 acAlignmentLeft 时，该属性会自动复位为0, 0, 0，并且属性变为只读。
    
20. '对齐到 acAlignmentLeft 的文字使用 InsertionPoint 属性来放置文字。
    
21. '对齐到 acAlignmentAligned 或 acAlignmentFit 的文字同时使用 InsertionPoint 以及 TextAlignmentPoint 属性来放置文字。
    
22. '对齐到其它任何位置的文字使用 TextAlignmentPoint 属性来放置文字。

<br /> <br /> Sub txt()<br />     Dim mytxt As AcadTextStyle<br />     Dim ptinsert(2) As Double<br />     Dim txtobj As AcadText<br />     <br />     ptinsert(0) = 100: ptinsert(1) = 100: ptinsert(2) = 0<br />     Set txtobj = ThisDrawing.ModelSpace.AddText("--DK31+500", ptinsert, 20)<br />     <br />     txtobj.Alignment = acAlignmentMiddleLeft<br />     <br />     '加上下面此句即可<br />     txtobj.TextAlignmentPoint = ptinsert<br /> End Sub<br /> <br /> '参见以下说明：<br /> '当 Alignment 属性设置为 acAlignmentLeft 时，该属性会自动复位为0, 0, 0，并且属性变为只读。<br /> '对齐到 acAlignmentLeft 的文字使用 InsertionPoint 属性来放置文字。 <br /> '对齐到 acAlignmentAligned 或 acAlignmentFit 的文字同时使用 InsertionPoint 以及 TextAlignmentPoint 属性来放置文字。 <br /> '对齐到其它任何位置的文字使用 TextAlignmentPoint 属性来放置文字。

tianti

谢谢