[Александер]

Возникла таккая проблема в зависимости от условий надо написать строку:
(Эта программка загружает доп. линии из указанного файла)
если линии с такими именами не загружены, то
(command "_linetype" "_l" "*" "line/lines.lin" "" )
а если линии уже загружены, то
(command "_linetype" "_l" "*" "line/lines.lin" "" "" "" "" "" "" "" "" "")
количество знаков "" определяется кол-вом загружаемых линий, у меня их 8 шт. загружается.
так вот если писать много раз "" , то в случаи если линии еще не загружены, 8 раз вылезает строка "неизвестная команда "имя функции"". а если написать знак "" один раз, то в случаи, если линии уже были загружены ранее 8 раз переспрашивает перезаписать их или нет?

как можно решить эту проблему?

как вариант думаю можно просто проверять определена ли уже линия с таким именем, и если определена, то ее надо переопределить, если не определена, то просто определить.
как такое можно сделать?

[Кулик Алексей aka kpblc]

Код был подсказан Fantomas'ом, я его и пользовал:

Код:

[Выделить все]

(if (not (tblsearch "LTYPE" layer_ltype))	;Если не найдено такое описание линии
      (command "_.-Linetype" "_Load" layer_ltype layer_linedef_file "") ;Загрузить
      );_if tblsearch

Здесь перед этим выполняется назначение layer_ltype, layer_linedef_file. Первая переменная - тип линии, вторая - файл описания.
---
Добавлено:
Тут же можно использовать нечто вида

Код:

[Выделить все]

(while (/= (getvar "cmdactive") 0)
(command "")
);_while

Т.е. вместе получится нечто типа:

Код:

[Выделить все]

(if (not (tblsearch "LTYPE" layer_ltype))	;Если не найдено такое описание линии
      (progn
        (command "_.-Linetype" "_Load" "*" layer_linedef_file "") ;Загрузить
        (while (/= (getvar "cmdactive") 0)
          (command "")
          );_while
        );_progn
      );_if tblsearch

---
Добавлено №2:
Вообще-то, если честно, не могу понять смысла одновременной подгрузки множества типов линий. Может, проще подгружать по одному?
В последнем коде надо по идее организовывать цикл по именам линий, т.к. _purge может и не удалить "проверочный" тип линии, надо проходиться по всем.

[Александер]

спасибо очень помогло
еще второе условие поставил чтобы если уже загружена, чтобы линию переопределил и все.

[Кулик Алексей aka kpblc]

Была тут тема "Тип линии", я там несколько лиспов накидал (самое главное - работают), посмотри, может, и покатит...

[Александер]

<kpblc
спасибо