• brigval
  • brigval
  • Активный участник
  • Откуда: Подмосковье
  • На форуме с 11 декабря 2001г.
  • Сообщений: 2,315
  • Спасибо: 1

Тема: Можно ли с помощью VBA выполнить команду STRETCH?

Можно ли с помощью VBA выполнить команду STRETCH?

  • Maxim T
  • Восстановленный участник
  • На форуме с 1 августа 2003г.
  • Сообщений: 628
  • Спасибо: 0

Re: Можно ли с помощью VBA выполнить команду STRETCH?

> brigval
Нельзя, на то он и VBA... :-p
Вот две НЕ-работающие программы:
через переменную CMDNAMES:

Option Explicit
Sub do_stretch()
  ActiveDocument.SendCommand "_.stretch" & vbCr
  While ActiveDocument.GetVariable("cmdnames") = "STRETCH"
    DoEvents
  Wend
  MsgBox "Thank you for ending with stretching!"
End Sub

через событие завершения команды:

Option Explicit
Public release_flag As Boolean
Sub do_stretch()
  release_flag = False
  ActiveDocument.SendCommand "_.stretch" & vbCr
  While Not release_flag
    DoEvents
  Wend
  MsgBox "Thank you for ending with stretching!"
End Sub
Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
  If CommandName = "STRETCH" Then release_flag = True
End Sub

Проблема в том, что doEvents не позволяет юзеру ничего делать, фактически "завешивает" акад.

  • Maxim T
  • Восстановленный участник
  • На форуме с 1 августа 2003г.
  • Сообщений: 628
  • Спасибо: 0

Re: Можно ли с помощью VBA выполнить команду STRETCH?

На чистом VBA нельзя сделать даже такую простую весчь. Не знаю даже, какой знак ставить -  :))) или :(((

  • brigval
  • brigval
  • Активный участник
  • Откуда: Подмосковье
  • На форуме с 11 декабря 2001г.
  • Сообщений: 2,315
  • Спасибо: 1

Re: Можно ли с помощью VBA выполнить команду STRETCH?

Спасибо. Жаль. Одна из приятных команд.