[Red Nova]

Имею N-ное количество мтекстов, в них цифры. Требуется умножить значение этих цифр на некое число, и вписать А) в те же мтексты, Б) в новые мтексты.
Алгоритмы такие.
А)
-запускаем лисп
-выберите нужные тексты содержащие
-введите коэффициент умножения (из ком строки)
-все тексты умножаются на указанное число.
Б)
-запускаем лисп
-выберите нужные тексты (выбирается столб с мтекстами, которые сортируются по координате У)
-выберите текст сожержащий коэффициент умножения (текстовой примитив в файле)
-выберите тексты для вставки результата (выбирается столб с мтекстами, в которые вписываем результат, по учтенной очередности.)

[VVA]

По варианту
A: Вариант есть в этой теме. В частности здесь
Б: mulTC и mulTCv2 чем не устраивают?

[Red Nova]

А. Действует только на тексты (у меня мтексты), которые к тому же после этого почему-то зеленеют.
Б. Нужно что-то типа mulTC, но когда во втором столбце только один мтекст. Вот пример

[dextron3]

Red Nova, зря ты с этими м-текстами связался, чем тебе обычные тексты то не нравятся, наверное еще и вместо линий поллилиниями рисуешь?

[VVA]

А:
В этот код внеси 2 исправления:
1. Найди строку "TEXT" и замени на "*TEXT"
Должен получить строку

Код:

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

(setq selset (ssget "_:L" '((0 . "*TEXT"))))

2. Найди строку (vla-put-color ent 3) и удали ее

[Red Nova]

Спасибо. А как убрать все лишние действия (+,-)? Собственно они очень даже полезные, но хотелось бы для большей скорости разделить код на разные команды.

[VVA]

Кнопку сделай ^C^CTEST;*;

[Red Nova]

Спасибо