Целый ряд параметров чертежа (например список слоев) хранится в виде таблиц. Для обработки таких таблиц используются функции tblnext и tblsearch. Обработке могут подвергаться таблицы с именами “АРРID”, “BLOCK”, “DIMSTYLE”, LAYER”, “LTYPE”, “STYLE”, “USC”, “VEW”, “VPORT”. Регистр записи имен не играет роли.
(tbInext имя_таблицы [символ]). Функция возвращает параметры первого элемента таблицы. Повторный вызов функции возвращает параметры следующего элемента и так далее. Выведенные параметры представляют собой присущий этому элементу список DXF-кодов и их значений. Параметр символ, если он присутствует и отличен от nil, влечет за собой возврат к первому элементу таблицы. Если же функция вызывается после tblsearch, то механизм ее действия несколько отличен от описанного (см. ниже). Выражение
(tblnext “block”)
может возвратить, например,
( (0 . “BLOCK”)
(2 . “L6”)
(70.2)
(10 0.0 0.0 0.0)
(-2 . )
).
(tblsearch имя_таблицы имя_элемента [символ]). Функция отыскивает нужный элемент таблицы и возвращает его параметры. Например,
(tblsearch “block” “L6”)
возвратит тот же список, что и в предыдущем примере.
Аргумент символ закрепляет этот символ за искомым элементом:
(tblsearch “block” “L3” 6)
возвратит, например,
( (0 . “BLOCK”)
(2 . “L3”)
(70. 2)
(10 0.0 0.0 0.0 0.0)
(-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" ""))
