Во время подготовки конструкторской документации возникает необходимость подготовки большого количества чертежей имеющих стандартную рамку, принятую нашим ГОСТом. При использовании чертежного пакета «AutoCAD» данный вопрос решается путем разработки рамки а потом ее использовании как шаблона. Причем каждому сотруднику необходимо вручную заполнять свои данные.
CAD 128px

В предлагаемой статье рассказано как можно в течении нескольких секунд нарисовать рамку под формат А4 и заполнить ее своими данными.
В статье приводится листинг программы под Visual Lisp с помощью которой можно решить этот вопрос. Учитывая то, что листинг программы редактируется в любом текстовом редакторе его всегда можно модифицировать под свои данные.

Немного о синтаксисе языка и командах которые используются в тексте.

1. После символа «;» начинается текст который программой игнорируется и не подлежит исполнению;
2. Все команды начинаются со скобки и заканчиваются скобкой, между которыми находится слово command, название команды и переменные для нее;
3. В конце строки с командой часто используется пустой оператор «» (двойные кавычки между которыми ничего не находится). Интерпретатором языка Visual Lisp они воспринимаются как конец ввода данных и запуск на выполнение команды которую они завершают.
4. Команда «snap» с опцией «off» отключает привязку к сетке, если привязку не отключить возникнут проблемы с автоматическим построением чертежа.
5. Команда «_lweight» с опцией «0.3» изменяет толщину поли линии на 0.3.
6. Команда «_pline» рисует с помощью поли линии прямую от точки Х=20, У=5 линию длинной 284 под углом 90 градусов.
7. Команда «zoom «c» «110,30» перемещает точку с координатами 110,30 в центр экрана.
8. Команда «zoom «s» «1x»» изменяет коэффициент увеличения чертежа.
9. Команда «textsize» с опцией «2.5» изменяет постоянную переменную окружения среды AutoCAD отвечающую за размер выводимого шрифта. Один раз использованная команда выполняется все время пока не будет изменена на другую.
10. Команда «»_mtext» «158,41» «169,44» «Лит.» «»» выводит текст «Лит.» в окне имеющем координаты левого нижнего угла «158,41», координаты верхнего правого – «169,44».

Для запуска программы необходимо:
1. вырезать из статьи текст ограниченный линиями и сохранить его под именем например Ramka and text A4.lsp. Название файла может быть любым. Расширение обязательно «lsp».
2. Загрузить файл в редактор Visual Lisp или в окне автокада набрать строку
(load «диск:каталогифайл1.lsp») или (load «диск:/каталоги/файл1.lsp»)

модуль построения рамки для листа А4
(command «snap» «off» ) ; отключаем привязку к сетке
(command «_lweight» «0.3» «» ; толщина линий 0.3
«_pline» «20,5» «@284<90» «@185<0» «@284<270» «@185<180» «» ; рисуем внешнюю рамку для листа 297х210
«_pline» «20,60» «@185<0» «» ; построение толстых линий
«_pline» «20,20» «@185<0» «»
«_pline» «20,45» «@185<0» «»
«_pline» «155,5» «@40<90» «»
«_pline» «170,25» «@20<90» «»
«_pline» «187,25» «@20<90» «»
«_pline» «37,5» «@55<90» «»
«_pline» «60,5» «@55<90» «»
«_pline» «75,5» «@55<90» «»
«_pline» «27,35» «@25<90» «»
«_pline» «155,40» «@50<0» «»
«_pline» «155,25» «@50<0» «»
«_pline» «20,35» «@65<0» «»
«_pline» «175,20» «@5<90» «»
«_pline» «85,5» «@55<90» «» )

(command «_lweight» «0.2» «») ; меняем толщину линий на 0.2
(command «_pline» «165,25» «@15<90» «» ; построение тонких линий
«_pline» «160,25» «@15<90» «»
«_pline» «20,55» «@65<0» «»
«_pline» «20,50» «@65<0» «»
«_pline» «20,40» «@65<0» «»
«_pline» «20,30» «@65<0» «»
«_pline» «20,10» «@65<0» «»
«_pline» «20,15» «@65<0» «»
«_pline» «20,25» «@65<0» «»)

(command «zoom» «c» «110,30» «» ; перемещаем на центр экрана точку 110,30
«zoom» «s» «1x» «») ; коэффициент увеличения равен 1, при необходимости можно сделать любой. 2х-увеличение в два раза

; модуль заполнения рамки
(command «textsize» «2.5» ) ; изменяем разер шрифта на 2.5
(Command «_mtext» «158,41» «169,44» «Лит.» «» ;заполняем поля таблици
«_mtext» «172,41» «186,44» «Масса» «»
«_mtext» «190,41» «204,44» «Масш.» «»
«_mtext» «156,21» «168,24» «Лист» «»
«_mtext» «176.4,21» «192.2,24» «Листов» «»
«_mtext» » 21,36″ » 25,39″ «Из.» «»
«_mtext» » 28,36″ » 35,39″ «Лис» «»
«_mtext» » 38,36″ » 59,39″ «N докум.» «»
«_mtext» » 62,36″ » 74,39″ «Подп.» «»
«_mtext» » 76,36″ » 84,39″ «Дат» «»
«_mtext» » 21,31″ » 36,34″ «Разраб» «»
«_mtext» » 21,26″ » 36,29″ «Провер» «»
«_mtext» » 21,21″ » 36,24″ «Т.контр» «»
«_mtext» » 21,11″ » 36,14″ «Н.контр» «»
«_mtext» » 21, 6″ » 36,9″ «Утвер.» «»)

(Command «_mtext» «38,25.8» «59,29» «Иванов И.» «») ; поле проверил
(command «textsize» «7.0» ) ;изменяем размер шрифта на 7.0
(Command «_mtext» «157,7» «203,16» «ЦКБ» «»)
(command «textsize» «2.5» ) ; возвращаем размер шрифта на 2.5