Введение в Автолисп | страница 34
(if (tblsearch "layer" "center") (princ)
(command "layer" "new" "center"
"I" "Acad_ISO04w100" "center"
"c" "red" "center" ""))
(if (tblsearch "layer" "hidden") (princ)
(command "layer” "new" "hidden"
"I" "Acad_ISO02w100" "hidden"
''c" "yellow" "hidden" ""))
(if (tblsearch "layer" "dim") (princ)
(command "layer" "new" "dim"
"c" "green" "dim" ""))
(command "layer" "c" "255" "0"
"s" "0" "")
)
Можно обойтись и без ввода пустой строки, воспользовавшись структурой
(if (not (tblsearch "ltype" "Acad_ISO04w100"))
(command "linetype" "load" "AcadJS004w100"
"acadiso.lin" "" ""))
7. ОПЕРАЦИИ С ВНЕШНИМИ ФАЙЛАМИ
7.1. Вызов файла
Автолисп может взаимодействовать с внешними файлами, если эти файлы открыты для таких операций. Функции, управляющие этим процессом, практически не отличаются от соответствующих операторов других языков программирования.
(open имя_файла режим). Функция открывает файл в качестве объекта для осуществления операций ввода/вывода. Используется совместно с функцией (setq ...), присваивающей файлу некоторый идентификатор (дескриптор). Пример такой операции приводился ранее:
(setq bolt (open "mycalc.res” “г”)).
Имя_файла - это строковая константа, определяющая местоположение файла на носителе. Аргумент режим устанавливает условия взаимодействия с файлом. Используются следующие три режима:
“r” - файл открывается для чтения (read mode); если названный файл не существует, возвращается nil;
“w” - файл открывается для записи (write mode); если названный файл не существует, создается и открывается новый, если же он существует, содержащиеся в нем данные уничтожаются в процессе записи;
“а” - файл открывается для продолжения работы с ним (append mode); если файл не существует, он создается и открывается подобно предыдущему случаю, если существует, то указатель устанавливается в конце файла, и новые данные присоединяются к уже существующим.
(load имя_файла [сообщение]). Функция загружает файл в выражение Автолиспа и обрабатывает это выражение.
Аргумент имя_файла указывается без расширения (расширение .lsp подразумевается по умолчанию) и может содержать полный путь к файлу. Следует помнить, что если в константе имя_файла встречается обратная косая черта, она должна повторяться дважды (см. табл. 2):
(load “\\support\\my_func”).
Если путь к файлу не указан, Автолисп просматривает доступные директории в следующем порядке: текущая директория, директория текущего рисунка, директории, указанные в переменных окружения, директория, в которой расположены программные файлы Автокада.