;;; ======================================
;;; FORMAT.LSP
;;; Программа вычерчивания рамок форматов А2, А4
;;; и организации поля изображения.
;;; Для вызова программы следует ввести в командную
;;; строку наименование нужного формата (например, A2)
;;; и нажать клавишу [Enter]
;;; ======================================
;;; Функция создания слоев
(defun sloy ()
(command “linetype” “load” “Acad_ISO04w100” “acadiso.lin”
“load” "Acad_ISO02w100" “” “”)
(command “layer” “new” “contur”
“new” “center”
“new” “dim”
“new” “hidden”
“I” "Acad_ISO04w100” “center”
“I” "Acad_ISO02w100” “hidden”
“c” “red” "center”
“c” “green” “dim”
“c” “yellow” “hidden”
“s” “0” ""
)
)
;;; Функция сохранения переменной CMDECHO
(defun sysvar ()
(setq svarold (getvar “cmdecho”))
(setvar “cmdecho” 0)
)
;;; Функция установки границ экрана
(defun pole ()
(setq p1 (polar pt1 (+ pi (/ pi 4)) 15))
(setq p3 (polar pt3 (/ pi 4) 15))
(command “limits” p1 p3)
(command “zoom” “a”)
)
;;; Функция вычерчивания рамки
(defun ramka ()
(command “rectangle” pt1 pt2)
(command “rectangle” pt3 pt4)
(setq e1 (entlast))
(command "pedit" e1 "w" "0.4" "")
)
;;; Текст основных функций
(defun C:A2 ()
(sysvar)
(setq pt1 '(-20 -5))
(setq pt2 '(574 415))
(setq pt3 '(0 0))
(setq pt4 '(569 410))
(pole)
(ramka)
(sloy)
(setvar “cmdecho” svarold).
(princ)
)
(defun C:A4 ()
(sysvar)
(setq pt1 '(-20 -5))
(setq pt2 '(190 292))
(setqpt3 '(0 0))
(setq pt4 (185 287))
(pole)
(ramka)
(sloy)
(setvar "cmdecho” svarold)
(princ)
)
(defun C:SCR ()
(sysvar)
(setq pt1 '(-40 -20))
(setq a (getreal "\nВведите координату X
правой границы экрана:_”))
(setq b (* a 0.75))
(setq pt2 (list a b))
(command “limits” pt1 pt2)
(command “zoom” “a”)
(sloy)
(setvar “cmdecho” svarold)
(princ)
)
3.3.6. Автоматическая загрузка программы
Автокад позволяет любую функцию, написанную на Автолиспе и определенную форматом C:XXX, использовать в качестве встроенной команды. Ее лишь следует загрузить, например, вызовом функции Applications... из группы Tools падающих меню. Однако целый ряд программ Автокад загружает автоматически. Этим процессом управляет файл acad*.lsp, имеющий в разных версиях разные имена (acadrl4.lsp в 14-й версии). Раскрыв этот файл с помощью текстового редактора, следует отыскать в нем группу AutoLoad LISP Application и добавить в нее имя созданного файла.
Присвоим созданному программному файлу, имя formats.lsp и поместим его в папку SUPPORT Автокада. Тогда строка в файле acad*.lsp, автоматически загружающая файл formats.lsp в Автокад, позволяющая обрисовать пять стандартных форматов и создать поле изображения нужных размеров, должна выглядеть следующим образом:
(autoload "formats” ‘("А0" “A1” “A2" “A3” “A4” “scr”)).
Теперь для загрузки в новый графический файл нужного формата или расширения границ экрана достаточно ввести в командную строку имя формата. В организованном поле изображения созданы пять слоев с присущими им цветами примитивов и типами линий.
В заключение необходимо отметить следующее. Описанная программа, равно как и предлагаемые далее, приведена в качестве примера программирования. В связи с этим в программах, используемых для иллюстрации, могут присутствовать структуры, не являющиеся обязательными. В частности, в программе format.lsp, строго говоря, не обязательна функция pole, так как расширить границы видового экрана до границ рамки можно, используя команду View → Zoom → Extents, а границы поля изображения расширять командой limits. Однако всегда имеет смысл предусматривать возможные результаты действия программ и сводить к минимуму операции доводки чертежа вручную.
И еще одно замечание. Программа будет работать без сбоев лишь при определенных условиях, а именно: в чертеже должны отсутствовать загружаемые слои и типы линий и отключена автоматическая объектная привязка. Возможности создания программ, исключающих эти неудобства, рассмотрены в разделах 6.6 и 6.7.
4. ОРГАНИЗАЦИЯ ПАУЗ И ВЕТВЛЕНИЕ ПРОГРАММ
4.1. Организация пауз для ввода данных