Найти в Дзене
KEKS
12 подписчиков

🏷️AutoCAD макрос CHANGECTB: Меняем таблицу стилей печати на всех листах за секунду

1
1 мин
Если вы работаете в AutoCAD, то знаете: смена таблицы стилей печати (CTB-файла) на 20–30 листах вручную — это то ещё «удовольствие». Особенно когда заказчик просит «сделайте всё монохромным, как в старом проекте», а у вас половина листов настроена в цвет. Ручной путь: перейти в каждый лист → свойства → выбрать другой CTB. А если листов 50? А если вы часто меняете стиль печати в зависимости от стадии проекта (эскиз, ПД, РД)? Выход есть — макрос CHANGECTB. Написан на Visual LISP, делает ровно одну полезную вещь, но делает её идеально. Пользователь запускает команду CHANGECTB, выбирает нужный стиль: И макрос автоматически: Всё. Никаких лишних вопросов, ни одного листа не пропущено. Макрос не меняет стиль печати для листа Model — это сделано намеренно. Потому что у модели своя логика настройки, и трогать её автоматически не стоит. Это классический LISP-файл. Всё, что от вас нужно: 💡 Совет: Чтобы не грузить макрос каждый раз, добавьте макрос в список автозагрузки в диалоговом окне APPLOAD.
Оглавление

Если вы работаете в AutoCAD, то знаете: смена таблицы стилей печати (CTB-файла) на 20–30 листах вручную — это то ещё «удовольствие». Особенно когда заказчик просит «сделайте всё монохромным, как в старом проекте», а у вас половина листов настроена в цвет.

Ручной путь: перейти в каждый лист → свойства → выбрать другой CTB. А если листов 50? А если вы часто меняете стиль печати в зависимости от стадии проекта (эскиз, ПД, РД)?

Выход есть — макрос CHANGECTB. Написан на Visual LISP, делает ровно одну полезную вещь, но делает её идеально.

Что делает макрос

Пользователь запускает команду CHANGECTB, выбирает нужный стиль:

  • Цвет (обычный acad.ctb — печать с учётом цвета линий)
  • Монохром (monochrome.ctb — всё чёрным, независимо от цвета в модели)

И макрос автоматически:

  1. Проходит через все листы чертежа (кроме модели)
  2. Применяет выбранный CTB к каждому листу
  3. Выдаёт итоговое сообщение

Всё. Никаких лишних вопросов, ни одного листа не пропущено.

Небольшой технический нюанс

Макрос не меняет стиль печати для листа Model — это сделано намеренно. Потому что у модели своя логика настройки, и трогать её автоматически не стоит.

🛠 Как внедрить в AutoCAD?

Это классический LISP-файл. Всё, что от вас нужно:

  1. Скачайте макрос по ссылке ниже.
  2. Сохраните файл.
  3. В AutoCAD выполните одно из действий:
    Перетащите файл мышкой в рабочую область чертежа.
    Или введите команду APPLOAD и выберите этот файл.
  4. Введите в командной строке LSUM и выберите нужные объекты.
💡 Совет: Чтобы не грузить макрос каждый раз, добавьте макрос в список автозагрузки в диалоговом окне APPLOAD.

Заключение

CHANGECTB — это не «магия», а просто правильная автоматизация. Один маленький LISP, который экономит нервы и время. Если вы до сих пор меняли стиль печати на каждом листе вручную — попробуйте хотя бы раз. Удивитесь, как быстро всё происходит.

А если вы часто работаете с чужими чертежами, где стили печати «разбредаются кто куда» — этот макрос станет вашим любимым инструментом.

Попробуйте — это бесплатно и не требует установки.

Скачать программу: https://disk.yandex.ru/d/Srd6NyakwCnKLA
Папка AutoCAD.

По ссылке можете найти и другие полезные инструменты статьи о которых найдете у меня на Дзене.

Если у вас есть интересные идеи то делитесь в комментариях. Обмен опытом ускоряет работу.