Во время подготовки конструкторской документации возникает необходимость подготовки большого количества чертежей имеющих стандартную рамку, принятую нашим ГОСТом.
При использовании чертежного пакета «AutoCAD» данный вопрос решается путем разработки рамки а потом ее использовании как шаблона. Причем каждому сотруднику необходимо вручную заполнять свои данные.
В предлагаемой статье рассказано как можно в течении нескольких секунд нарисовать рамку под формат А4 и заполнить ее своими данными.
В статье приводится листинг программы под Visual Lisp с помощью которой можно решить этот вопрос. Учитывая то, что листинг программы редактируется в любом текстовом редакторе его всегда можно модифицировать под свои данные.
Немного о синтаксисе языка и командах которые используются в тексте.
- После символа «;» начинается текст который программой игнорируется и не подлежит исполнению;
- Все команды начинаются со скобки и заканчиваются скобкой, между которыми находится слово command, название команды и переменные для нее;
- В конце строки с командой часто используется пустой оператор “” (двойные кавычки между которыми ничего не находится). Интерпретатором языка Visual Lisp они воспринимаются как конец ввода данных и запуск на выполнение команды которую они завершают.
- Команда «snap» с опцией «off» отключает привязку к сетке, если привязку не отключить возникнут проблемы с автоматическим построением чертежа.
- Команда «_lweight» с опцией «0.3» изменяет толщину поли линии на 0.3.
- Команда «_pline» рисует с помощью поли линии прямую от точки Х=20, У=5 линию длинной 284 под углом 90 градусов.
- Команда «zoom “c” “110,30» перемещает точку с координатами 110,30 в центр экрана.
- Команда «zoom “s” “1x”» изменяет коэффициент увеличения чертежа.
- Команда «textsize» с опцией «2.5» изменяет постоянную переменную окружения среды AutoCAD отвечающую за размер выводимого шрифта. Один раз использованная команда выполняется все время пока не будет изменена на другую.
- Команда «”_mtext” “158,41″ “169,44″ “Лит.” “”» выводит текст “Лит.” в окне имеющем координаты левого нижнего угла «158,41», координаты верхнего правого – «169,44».
Для запуска программы необходимо:
- вырезать из статьи текст ограниченный линиями и сохранить его под именем например Ramka and text A4.lsp. Название файла может быть любым. Расширение обязательно «lsp».
- Загрузить файл в редактор 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
