idoo 发表于 2006-8-13 22:37:00

[讨论][求助]文字对齐方式

以下是我在VBA开发时的文字录入的方法：
Function WZ(X0, Y0, AG1, TXT, TXTH, LAY1)
'定义标注文字方式
On Error Resume Next
Dim INP1(0 To 2) As Double
INP1(0) = X0: INP1(1) = Y0: INP1(2) = 0
Set OBJTXT = ThisDrawing.ModelSpace.AddText(TXT, INP1, TXTH)
OBJTXT.StyleName = "DXT"
OBJTXT.Layer = LAY1
OBJTXT.Rotation = AG1
Asc (Left(TXT, 1))
If Asc(Left(TXT, 1)) >= 48 And Asc(Left(TXT, 1))0 Then
    INP1(0) = X0:   INP1(1) = Y0 + XX:INP1(2) = 0
Else
    INP1(0) = X0 + XX: INP1(1) = Y0 + TXTH / 2: INP1(2) = 0
End If
OBJTXT.Rotate INP1, RAG
End Function
当需要输入文字时，适用如下代码：
Call WZ(TKBASEX + 20.8 * SCAL, TKBASEY + 19.6 * SCAL, 3.14159 * (-0.5), "数 量", 2.5 * SCAL, "TK")
可是目前有一个问题：要将文字的对正方式跟改为“调整”，该怎么操作？？此时该如何指定“文字对齐坐标”和“位置坐标”？

wyj7485 发表于 2006-8-14 09:33:00

OBJTXT .Alignment = acAlignmentFit
OBJTXT .TextAlignmentPoint = INP1

idoo 发表于 2006-8-14 20:34:00

谢谢！依照楼上的方法，问题解决了！

vladimirputin 发表于 2019-9-2 15:45:00

非常不错的代码，谢谢分享。
页: [1]
查看完整版本: [讨论][求助]文字对齐方式