雪山飞狐_lzh 发表于 2004-9-9 10:57:00

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

memory 发表于 2004-9-9 20:49:00

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

memory 发表于 2004-9-9 20:53:00

dim kk



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


kk.Alignment = acAlignmentMiddleCenter 也不行.


雪山飞狐_lzh 发表于 2004-9-9 21:01:00

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

memory 发表于 2004-9-9 21:16:00

有这么好的版主,我服了.
页: 1 [2]
查看完整版本: [求助]如何实现这种功能??