• NDR
  • Участник
  • На форуме с 19 февраля 2009г.
  • Сообщений: 14
  • Спасибо: 0

Тема: Простые дроби

Подскажите, как преобразовать дробь вида 5/6 в простую дробь. Для этого при редактировании мультитекста есть кнопка "дробный". Как сделать это программно?

  • На форуме с 12 февраля 2009г.
  • Сообщений: 26
  • Спасибо: 0

Re: Простые дроби

Sub Example_AddMtext()
    ' Этот пример создает объект MText в пространстве модели.
    
    Dim MTextObj As AcadMText
    Dim corner(0 To 2) As Double
    Dim width As Double
    Dim text As String
    corner(0) = 0#: corner(1) = 10#: corner(2) = 0#
    width = 10
    text = "{\A1;\S5/6;}"

    ' Создает Объект mtext
    Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text)
    ZoomAll
    
End Sub

О форматировании строки посмотрите в справке - "Форматирование многострочного текста во внешнем редакторе"

  • NDR
  • Участник
  • На форуме с 19 февраля 2009г.
  • Сообщений: 14
  • Спасибо: 0

Re: Простые дроби

Спасибо!