• Azat
  • Восстановленный участник
  • На форуме с 14 августа 2005г.
  • Сообщений: 7
  • Спасибо: 0

Тема: Как удалить неиспользуемый блок, зная его имя?

Уважаемые корифеи, подскажите пожалуйста,  как удалить неиспользуемый блок, зная его имя(типа команды purge).Макросы меню и SendCommand не подходят.Спасибо!

  • algol
  • Восстановленный участник
  • На форуме с 5 февраля 2005г.
  • Сообщений: 27
  • Спасибо: 0

Re: Как удалить неиспользуемый блок, зная его имя?

Поиск по PURGE в разделе VBA даст                           https://www.caduser.ru/forum/topic4340.html

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Как удалить неиспользуемый блок, зная его имя?

Интересно, а почему SendCommand не подходит?

  • JS
  • Восстановленный участник
  • На форуме с 12 мая 2005г.
  • Сообщений: 51
  • Спасибо: 0

Re: Как удалить неиспользуемый блок, зная его имя?

А почему так нельзя?

    On Error Resume Next
        ThisDrawing.Blocks.Item(BlockName).Delete
    If Err Then
        MsgBox Err.Description
        Err.Clear
    Else
        MsgBox "OK"
    End If