положение атрибута

atribut(a).Move p1, p2

Dim minExt As Variant
Dim maxExt As Variant
Dim ptc1(0 To 2) As Double
Dim ptc2(0 To 2) As Double
'.......
 For i = 0 To MS.Count
    entObjectID = MS.Item(i).ObjectID
    Set tempObj = MainDoc.ObjectIdToObject(entObjectID)
    If (TypeOf tempObj Is AcadBlockReference) Then
        If (tempObj.Name = blokname) Then
            Set ent = tempObj
            Set blokref = ent
            atribut = blokref.GetAttributes
            a = -1
            Do
               a = a + 1
               If (atribut(a).TagString = stitek_atributu) Then
                   atribut(a).GetBoundingBox minExt, maxExt
                   ptc1(0) = (minExt(0) + maxExt(0)) / 2
                   ptc1(1) = (minExt(1) + maxExt(1)) / 2
                   ptc1(2) = minExt(0)
                   atribut(a).TextString = newText
                   atribut(a).GetBoundingBox minExt, maxExt
                   ptc2(0) = (minExt(0) + maxExt(0)) / 2
                   ptc2(1) = (minExt(1) + maxExt(1)) / 2
                   ptc2(2) = minExt(0)
                   If ptc1(0) <> ptc2(0) Or ptc1(1) <> ptc2(1) Then
                      atribut(a).Move ptc2, ptc1
                   End If
                 End If
              Loop While atribut(a).TagString <> stitek_atributu
          End If
    End If
Next i
'.......

Private Function SetAtrTextInDBX(MS As AcadModelSpace, objAtr As AcadAttributeReference, newText As String)
   'установкв значения атрибуту с сохранением центральной точки, в режиме DBX
   Dim dPtLeft(2) As Double
   Dim dPtOrigCentre() As Double
   Dim varPtMin As Variant
   Dim varPtMax As Variant
   Dim dDeltaX As Double
   Dim dCosA As Double
   Dim dSinA As Double
   Dim dLenPol As Double
   Dim objText As AcadText
   Dim dPtText(2) As Double
   'точка центра атрибута
   dPtOrigCentre = objAtr.TextAlignmentPoint
   'задаем значение атрибуту
   objAtr.TextString = newText
   'создаем временный текст
   Set objText = MS.AddText(newText, dPtText, objAtr.Height)
   'проблема со сжатием текста атрибута, если установлено тличное от 1 то косяк!!!
   objText.StyleName = objAtr.StyleName
   'получаем границы текста
   objText.GetBoundingBox varPtMin, varPtMax
   'удаляем текст
   objText.Delete
   'далее геометрия
   dDeltaX = varPtMax(0) - varPtMin(0)
   dCosA = Cos(objAtr.Rotation)
   dSinA = Sin(objAtr.Rotation)
   dLenPol = dDeltaX / 2
   'получаем точку начала атрибута - Left
   dPtLeft(0) = dPtOrigCentre(0) - dCosA * dLenPol
   dPtLeft(1) = dPtOrigCentre(1) - dSinA * dLenPol
   'назначаем ее атрибуту
   objAtr.InsertionPoint = dPtLeft
   'все
End Function