[求助]如何实现这种功能??

雪山飞狐_lzh

改变文字的对齐方式，有对应的属性

memory

用 i.Alignment = acAlignmentMiddleCenter 可是不行啊。

memory

dim kk



kk=ThisDrawing.ModelSpace.AddText( i, ThisDrawing.Utility.GetPoint, 5)


kk.Alignment = acAlignmentMiddleCenter 也不行.

雪山飞狐_lzh

Sub tt()
On Error GoTo ErrHandle
Dim pText As AcadText, i, pnt
i = 0
Do While 1
i = i + 1
pnt = ThisDrawing.Utility.GetPoint
Set pText = ThisDrawing.ModelSpace.AddText(i, pnt, 5)
pText.Alignment = acAlignmentMiddleCenter
pText.TextAlignmentPoint = pnt
ThisDrawing.ModelSpace.AddCircle pnt, 6
Loop
ErrHandle:
End Sub

memory

有这么好的版主,我服了.