(tbInext имя_таблицы [символ]). Функция возвращает параметры первого элемента таблицы. Повторный вызов функции возвращает параметры следующего элемента и так далее. Выведенные параметры представляют собой присущий этому элементу список DXF-кодов и их значений. Параметр символ, если он присутствует и отличен от nil, влечет за собой возврат к первому элементу таблицы. Если же функция вызывается после tblsearch, то механизм ее действия несколько отличен от описанного (см. ниже). Выражение
(tblnext “block”)
может возвратить, например,
( (0 . “BLOCK”)
(2 . “L6”)
(70.2)
(10 0.0 0.0 0.0)
(-2 . <Entity name: 1fc05d8>)
).
(tblsearch имя_таблицы имя_элемента [символ]). Функция отыскивает нужный элемент таблицы и возвращает его параметры. Например,
(tblsearch “block” “L6”)
возвратит тот же список, что и в предыдущем примере.
Аргумент символ закрепляет этот символ за искомым элементом:
(tblsearch “block” “L3” 6)
возвратит, например,
( (0 . “BLOCK”)
(2 . “L3”)
(70. 2)
(10 0.0 0.0 0.0 0.0)
(-2 . <Entity name: 1fc0660)
)
Если теперь вызвать функцию 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" "" ""))
7. ОПЕРАЦИИ С ВНЕШНИМИ ФАЙЛАМИ
7.1. Вызов файла
Автолисп может взаимодействовать с внешними файлами, если эти файлы открыты для таких операций. Функции, управляющие этим процессом, практически не отличаются от соответствующих операторов других языков программирования.
(open имя_файла режим). Функция открывает файл в качестве объекта для осуществления операций ввода/вывода. Используется совместно с функцией (setq ...), присваивающей файлу некоторый идентификатор (дескриптор). Пример такой операции приводился ранее:
(setq bolt (open "mycalc.res” “г”)).
Имя_файла - это строковая константа, определяющая местоположение файла на носителе. Аргумент режим устанавливает условия взаимодействия с файлом. Используются следующие три режима:
“r” - файл открывается для чтения (read mode); если названный файл не существует, возвращается nil;
“w” - файл открывается для записи (write mode); если названный файл не существует, создается и открывается новый, если же он существует, содержащиеся в нем данные уничтожаются в процессе записи;
“а” - файл открывается для продолжения работы с ним (append mode); если файл не существует, он создается и открывается подобно предыдущему случаю, если существует, то указатель устанавливается в конце файла, и новые данные присоединяются к уже существующим.