• На форуме с 30 июня 2010г.
  • Сообщений: 48
  • Спасибо: 1

Тема: Перехват и блокирование команды автокада

Добрый день!   Подскажите как решить проблему! на листе есть блок содержащий  штамп,  нужно  по  двойному  клику  по  блоку  штампа  появлялась моя  форма для  редактирования   данных  штампа (что то аналогичное с СПДС), перехват команды  я   сделала . но вылетает  форма  для  редактирования  блока  , стандартная  команда  акада   _eattedit  . как то  нужно сделать, чтобы  стандартная   форма для  редактирования  блока либо не  появлялась, либо  программно ее  закрывать!

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
    If (CommandName = "EATTEDIT") Then
              spd_shtamp.Show    .  вывод моей формы для редактирвания штампа на экран
       
               
    End If

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

Re: Перехват и блокирование команды автокада

Если форма модальная, то

Private Sub UserForm_Terminate()
SendKeys "{ESC}"
End Sub

если нет, то

Private Sub UserForm_Initialize()
SendKeys "{ESC}"
End Sub