Auto CAD

Уменьшение размера файлов


Первый пример автоматического редактирования уменьшает размер всех файлов чертежей, находящихся в одной или нескольких директориях, до минимального. Я пользуюсь командой WBLOCK (ПБЛОК), но вы можете вместо нее применить команду PURGE (ОЧИСТИТЬ). Этот пример был написан для фирмы, в которой хотели очистить архивные чертежи, удалить из них неиспользованные имена слоев, описания блоков, размерные стили, и т. д., чтобы уменьшить занимаемое дисковое пространство.

Командный файл запускает AutoCAD, загружает первый файл из указанной папки, выполняет файл пакета и ждет, пока AutoCAD закончит редактировать этот чертеж, чтобы загрузить следующий файл из той же директории. Пакет загружает файл AutoLISP, выполняет прописанные там команды и закрывает AutoCAD. Файл AutoLISP получает имя чертежа и с помощью команды WBLOCK (ПБЛОК) сохраняет его под тем же именем, но в другой папке. После того, как пакет закроет AutoCAD, весь процесс возвращается к командному файлу и продолжается до тех пор, пока не будут обработаны все файлы чертежей.

Шаг 1: WBOUT.BAT

С помощью текстового редактора напишите следующий командный файл и сохраните его как wbout.bat в папке C:Sybex. Введите все предложение с командой for в одной строке. Когда вы будете набирать код в текстовом редакторе, вы увидите одну строку, хотя здесь эта строка приведена на нескольких строках. Данный командный файл состоит только из двух строк текста:

Когда вы исполняете этот командный файл, AutoCAD запускается и открывает каждый из чертежей. Из-за наличия переключателя /ь, файл пакета wbout.scr выполняется каждый раз при запуске AutoCAD. После обработки всех файлов с расширением dwg (их количество соответствует значению переменной %%f) программа останавливается.

В 7,3 показано назначение каждой строки.

Шаг 2: WBOUT.SCR

Создайте в текстовом редакторе следующий файл пакета и сохраните его как wbout.scr в папке C:Sybex вместе с wbout.bat. У вас должно получиться пять

строк текста, без лишних пробелов или строк. В конце последней строки вы должны нажать <Enter>, но только один раз.

Когда AutoCAD выполняет этот пакет, загружается файл AutoLISP, содержащий описание новой команды AutoCAD WBOUT. Пакет выполняет команду WBOUT и закрывает AutoCAD.

Комментарии закрыты