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

tianti · 发表于 2011-10-11 21:30:00

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


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

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

wylong · 发表于 2011-10-11 23:08:00

copy

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