Введение в Автолисп | страница 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”).


Если путь к файлу не указан, Автолисп просматривает доступные директории в следующем порядке: текущая директория, директория текущего рисунка, директории, указанные в переменных окружения, директория, в которой расположены программные файлы Автокада.