Удаление слоев. VBA
Три программки на VBA для решительного удаления слоев вместе с объектами.
QuickLayDel - несколько упрощенный аналог экспрессовской команды LayDel. Работает на порядок быстрее (особенно в "тяжелых" чертежах и при удалении сразу нескольких слоев). Предлагает выбрать объект на слое, подлежащем удалению. Отказ от выполнения команды - Esc, подтверждение - правая кнопка мыши.
DelOffLayers - удаляет все выключенные слои (если они не заблокированы и не заморожены).
DelFreezeLayers - удаляет все замороженные слои.
Слои 0 и Defpoints, как водится, неприкосновенны.
QuickLayDel - несколько упрощенный аналог экспрессовской команды LayDel. Работает на порядок быстрее (особенно в "тяжелых" чертежах и при удалении сразу нескольких слоев). Предлагает выбрать объект на слое, подлежащем удалению. Отказ от выполнения команды - Esc, подтверждение - правая кнопка мыши.
DelOffLayers - удаляет все выключенные слои (если они не заблокированы и не заморожены).
DelFreezeLayers - удаляет все замороженные слои.
Слои 0 и Defpoints, как водится, неприкосновенны.
Комментарии
Авторизоваться
Пожалуйста, перепишите код чтобы он работал в 64-битной системе
вообщем сам нашел ответ по этой ссылке https://www.programmersforum.ru/showthread.php?t=292815
надо в редакторе заменить строчку
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
на
Public Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As LongPtr) As Integer