• wl2000
  • Активный участник
  • На форуме с 20 февраля 2007г.
  • Сообщений: 117
  • Спасибо: 0

Тема: Как разбить MText

Здравствуйте!
Подкажите как превратить MText в Text? Метод .Explode на MText не распостраняется.
Заранее спасибо.

  • fixo
  • Восстановленный участник
  • На форуме с 3 июля 2008г.
  • Сообщений: 217
  • Спасибо: 0

Re: Как разбить MText

> wl2000
Через SendCommand:

Option Explicit
Sub ExplodeMtext()
Dim ent As AcadEntity
Dim oMText As AcadMText
Dim varpt
Dim strHandle As String
Dim strComm As String
ThisDrawing.Utility.GetEntity ent, varpt, vbCr & "Select mtext to explode:"
If Not TypeOf ent Is AcadMText Then
Exit Sub
End If
Set oMText = ent
strHandle = oMText.Handle
strComm = "_EXPLODE " & "(handent " & Chr(34) & strHandle & Chr(34) & ")" & vbCr & vbCr
ThisDrawing.SendCommand strComm
End Sub

~'J'~

  • wl2000
  • Активный участник
  • На форуме с 20 февраля 2007г.
  • Сообщений: 117
  • Спасибо: 0

Re: Как разбить MText

Большое спасибо