• На форуме с 4 марта 2008г.
  • Сообщений: 45
  • Спасибо: 0

Тема: Запретить расчленение блоков.

Пытаюсь запретить расчленение блоков.
Если блок выделен, то код ниже срабатывает, а если вначале ввести команду EXPLODE (или кнопочкой), он попросит выделение и блок всё же расчленяется. Что нужно сделать, чтобы выйти из положения?
Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
    If (CommandName = "EXPLODE") Then
    ThisDrawing.SendCommand "_u" & vbCr
    End If
End Sub

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Запретить расчленение блоков.

Поставь свой код в процедуру:
AcadDocument_EndCommand

  • На форуме с 4 марта 2008г.
  • Сообщений: 45
  • Спасибо: 0

Re: Запретить расчленение блоков.

Спасибо!

  • На форуме с 9 июня 2008г.
  • Сообщений: 47
  • Спасибо: 0

Re: Запретить расчленение блоков.

"_u" - что это обозначает7

  • На форуме с 4 марта 2008г.
  • Сообщений: 45
  • Спасибо: 0

Re: Запретить расчленение блоков.

"_u" (undo)- отмена ранее выполненной команды, в данном случае  "EXPLODE".

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

Re: Запретить расчленение блоков.

по ходу ваяется страшный макрос-вирус на подобие лисповского :):):)