[Clinri]

Требуется поместить в начало программы код котрый бы удалял всё, можно ли реализовать?
Очень неудобно после каждого запуска программы из VBA потом выделять и удалять, чтобы не захламлялся чертёж.
по этому поводу почему то не нашёл ничего...

спасибо!

[gomer]

Повесь макрос: ^c^c_.erase;_all;; на кнопку или хоткей (Ctrl + D) и не парься

[Makswell]

На VBA предыдущий пост можно перевести так:

Код:

[Выделить все]

ThisDrawing.SendCommand "_.erase" & vbCr & "_all" & vbCr & vbCr

[Кулик Алексей aka kpblc]

А потом выяснится, что надо еще и слои обрабатывать, и внешние ссылки выгружать...
Не проще ли в коде (который собственный) поставить ThisDrawing.StartUndoMark и ThisDrawing.EndUndoMark?

[Clinri]

Сообщение от Makswell На VBA предыдущий пост можно перевести так: Код: [Выделить все] ThisDrawing.SendCommand "_.erase" & vbCr & "_all" & vbCr & vbCr

помогло спасибо!

Сообщение от Кулик Алексей aka kpblc А потом выяснится, что надо еще и слои обрабатывать, и внешние ссылки выгружать... Не проще ли в коде (который собственный) поставить ThisDrawing.StartUndoMark и ThisDrawing.EndUndoMark?

я так понял ThisDrawing.StartUndoMark ставится в начале всего кода а ThisDrawing.EndUndoMark в конце и потом можно Ctrl+Z, и наверно должно находиться внутри процедуры Sub или Functions:
Sub test ()
ThisDrawing.StartUndoMark
.......
ThisDrawing.EndUndoMark
End Sub

Тоже очень удобный способ, для отлаживания програмки, спасибо