[Stereomanya]

Здравствуйте люди. Подскажите пожалуйста как сделать так что бы в центре появлялась надпись. Эта надпись должна появляться с помощью экранной формы IDEVBA. Допустим вводим в экранную форму слово АВАРИЯ и она по вдруг появляется в определенной точке пространства листа. Может у кого какая програмка есть уже сделанная?

[Кулик Алексей aka kpblc]

Код:

[Выделить все]

Public Sub Test()
  Dim strRes As String
  Dim insPoint As Variant
  Dim insSpace As AcadBlock
  
  strRes = InputBox("Надпись", "dwg.ru", "")
  If strRes <> "" Then
    ThisDrawing.StartUndoMark
    On Error GoTo lError
      insPoint = ThisDrawing.Utility.GetPoint(, "Точка вставки")
      If ThisDrawing.GetVariable("ctab") = "Model" Then
        ThisDrawing.ModelSpace.AddText strRes, insPoint, 2.5
      Else
        ThisDrawing.Layouts(ThisDrawing.GetVariable("ctab")).Block.AddText strRes, insPoint, 2.5
      End If
    ThisDrawing.EndUndoMark
  End If
  Exit Sub
lError:
  ThisDrawing.EndUndoMark
End Sub

Код особо не проверял и не гонял. Гарантируется неверная работа, если находишься в листе, а активно пространство модели.