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

запускаю программку и каждый раз когда пишу текст (_mtext) в командной строке выдает:

Текущий текстовый стиль: "Стиль3". Высота текста: 250
Текущий текстовый стиль: "Стиль3". Высота текста: 250
Текущий текстовый стиль: "Стиль3". Высота текста: 250
Текущий текстовый стиль: "Стиль3". Высота текста: 250
Текущий текстовый стиль: "Стиль3". Высота текста: 250
Текущий текстовый стиль: "Стиль3". Высота текста: 250
Текущий текстовый стиль: "Стиль3". Высота текста: 250

сколько раз использую команду (_mtext) столько раз и пишет
как от этого можно избавиться?

[{Smirnoff}]

В начале программы (setvar "CMDECHO" 0) в конце (setvar "CMDECHO" 1). Но правильнее будет сохранить старое значение этой переменной в начале и восстановить в конце, восстановление также нужно прописать в обработчике ошибок то бишь во встроенной функции *error*. Я лично делаю её локальной, тогда глобальная функция *error* не переопределяется.

Код:

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

(defun c:MyFun (/ oldEcho *error* .....)

(defun *error* (msg)
..............................
(setvar "CMDECHO" oldEcho)
(princ)
); end of *error*

(setq oldEcho(getvar "CMDECHO"))
(setvar "CMDECHO" 0)
................................
(setvar "CMDECHO" oldEcho)
(princ)
); end of c:MyFun

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

так эт я знаю, cmdecho в ноль ставил, все промежуточные комментарии убирает как надо, а это :

"Текущий текстовый стиль: "Стиль4". Высота текста: 250)"

все равно пишет и притом много раз
может еще что посоветуете?

[===AAA===]

Привет!

nomutt =1

не помогает?

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

Не-а. Не поможет. Такое ощущение, что в теле команды прямо прописано печатать. Изменение cmdecho и nomutt ничего не дает.
Я только не очень понимаю, а чем оно мешается-то?

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

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

[Apelsinov]

Александер,

создавайте программно текст НЕ через (command "mtext" ...) или (VL-CMDF "mtext" ...) а через функции activeX или ENTMAKE.

или , если не хочется заморачиваться с этим, есть еще и (VL-CMDF "DTEXT" ...) , там, только , если я все правильно помню, надо быть осторожнее с опциями, они разные в зависимости от установки в текстовом стиле значения высоты текста.