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

Рассмотрим следующую ситуацию. В начале работы над чертежом была использована команда scr программы Format, в результате чего в пространстве модели организовано поле чертежа. Независимо от того, какие действия выполнялись оператором в течение сеанса, в чертеже уже присутствуют типы линий Acad_ISO02w100 и Acad_ISO04w100 и несколько слоев. При переходе в пространство бумаги и программном вызове необходимого формата происходит повторная загрузка тех же типов линий и слоев. При выполнении команды linetype Автокад сообщает, что соответствующий тип линий уже загружен, и запрашивает оператора, следует ли произвести перезагрузку. Этот запрос останавливает работу программы и все последующие запрограммированные действия приходится производить вручную.

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

Целый ряд параметров чертежа (например список слоев) хранится в виде таблиц. Для обработки таких таблиц используются функции 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)