[alik3001]

Добрый вечер, уважаемые форумчане!
Столкнулся со следующей проблемой.
Хочу написать программу которая будет закрашивать текст после редактирования. Чтобы видеть какой текст уже отредактировал, а какой еще предстоит.
Привожу листинг:
(defun C:colm(/ T1 Z1 Zot ber Z proect h ml_text DimPropertyList ZotText)
(while (setq PropertyList (entget (car (entsel))))
(setq PropertyList (subst (cons 62 5) (assoc 62 PropertyList) PropertyList))
(entmod PropertyList)
(vl-cmdf "_.textedit" "\\" "\\" )
)
)

Она глючит, выбор на третьей итерации проводится 3 раза. Что нужно исправить?

[koMon]

Кулик Алексей aka kpblc,

Сообщение от Кулик Алексей aka kpblc koMon, замени 89 строку:

локализия распространяется и на опции? ведь вызывается уже оригинальная (читай английская) команда...

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

И че? Я на AURu2017 про это доолго рассказывал

----- добавлено через 42 сек. -----
В конце концов, накати языковой пакет и посмотри на результаты выполнения - все станет весьма просто и очевидно.

[koMon]

Сообщение от Кулик Алексей aka kpblc И че?

я тебе верю, и/но накатывать ничего не хочется)
буду иметь на будущее!

[Fedorino]

Хотел код от koMon потестить, но к сожалению так и не понял как с ним работать.
Не дает выбрать никакого текста, пишет
Select Text/MText:
*Неверный выбор*
Требуется точка или Последний
Select Text/MText:
*Неверный выбор*
Требуется точка или Последний
у кого-то получилось?

[koMon]

Fedorino,

Ну только если выполнить
(vl-load-com)

[Fedorino]

Заработало, как только заменил на строчку.

Код:

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

 (command-s "._textedit" "_m" "_s" selected_text_entity)

В версиях от 2015 и выше, следует применять command-s для синхронного выполнения сразу всех команд.