Как сделать мултилинию текущей

Огромное спосибо AY. Все работает отлично. Но есть дополнитильный вопрос: A возможно сделать так чтоб если этот стиль не существует он вставлялся из наружного файла, и только после этого становился текущим. И тоже самое для типа линии - вставлять и делать текущим.

> Кулик Алексей aka kpblc
Это для меня сильно сложно. Мне нужно задействовать это через Мозаичнное меню и каждую линию выбирать в отдельности по слайду в окошке, а насколько я понимаю lisp туда не впишешь. Нужно его как-то задействовать. Я уже обошлась своими кустарными способами (т. к. lisp я не знаю). Вставляю кусочек линии блоком, потом он стирается и тип становится текущим. Вот как это выглядит:
^C^C_-insert ИмяФайла;\  ;E;l;;_-linetype;S;"ТипЛинии";;

Если вас устраивает ваше решение с типами линий, то проделайте аналогичный фокус с мультилинией - результат будет соответствующий.
Однако я бы посоветовал использовть для таких целей немного другой вариант макроса, а именно:

^C^C_-insert;"BlockFileName";(command);_-purge;_b;"BlockFileName";_n;_cmlstyle;"MyMlstyle";

где:
"BlockFileName" - имя файла блока (обратите внимание в макрокоманде оно присутствует дважды);
"MyMlstyle" - имя стиля мультилинии.
Такой вариант лучше вашего потому, что в нем, во-первых, не используется команда удаления, теоретически способная удалить не то что требовалось, а во-вторых - командой _-purge удаляестя описание блока из рисунка дабы не "захламлять" его.