Введение в Автолисп полностью

    (-2 .

)

Если теперь вызвать функцию tblnext в формате

(tblnext “block” 6),

то она возвратит характеристики блока L3.

Воспользовавшись рассмотренными возможностями, дополним программу Format операцией проверки наличия в ее базе данных необходимых типов линий и слоев. Загрузка нового типа линии должна осуществиться только при условии ее отсутствия в базе данных.

(if (tblsearch "Itype" "Acad_ISO04w100")

    (princ)

(command "linetype" "load" "Acad_ISO04w100"

    "acadiso.lin" "" "")

)

Если условие функции if соответствует T, выполняется первая функция, т.е. печатается пустая строка, в противном случае, если тип линий не загружен, он загружается в чертеж.

Следовательно, пользовательская функция sloy может быть представлена следующим образом:

(defun sloy ()

    (if (tblsearch "ltype" "Acad_ISO04w100") (princ)

      (command "linetype" "load" "Acad_ISO04w100"

        "acadiso.lin" "" ""))

    (if (tblsearch "ltype" "Acad_ISO02w100") (princ)

      (command "linetype" "load" "Acad_ISO02w100"

        "acadiso.lin" "" ""))

    (if (tblsearch "layer" "contur") (princ)

      (command "layer" "new" "contur" ""))

    (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" "" ""))

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

(open имя_файла режим). Функция открывает файл в качестве объекта для осуществления операций ввода/вывода. Используется совместно с функцией (setq ...), присваивающей файлу некоторый идентификатор (дескриптор). Пример такой операции приводился ранее:

(setq bolt (open "mycalc.res” “г”)).

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

“r” - файл открывается для чтения (read mode); если названный файл не существует, возвращается nil;

“w” - файл открывается для записи (write mode); если названный файл не существует, создается и открывается новый, если же он существует, содержащиеся в нем данные уничтожаются в процессе записи;

“а” - файл открывается для продолжения работы с ним (append mode); если файл не существует, он создается и открывается подобно предыдущему случаю, если существует, то указатель устанавливается в конце файла, и новые данные присоединяются к уже существующим.

(load имя_файла [сообщение]). Функция загружает файл в выражение Автолиспа и обрабатывает это выражение.

Аргумент имя_файла указывается без расширения (расширение .lsp подразумевается по умолчанию) и может содержать полный путь к файлу. Следует помнить, что если в константе имя_файла встречается обратная косая черта, она должна повторяться дважды (см. табл. 2):

(load “\\support\\my_func”).