[РастОК]

Привет всем. Собственно вопрос в заголовке темы. Просто надоело выделять объект и тыкать мышью в панели меняя цвет на другой. Хотелось бы назначить это действие на горячую клавишу и узнать вообще это возможно без написания макросов?

[Krieger]

Можно, но нужен макрос.

[РастОК]

Большое спасибо, а самого лиспа у вас случайно нет?.

[sasha_lif]

РастОК, а во 2 посте макрос же видно в правой части таблицы

[РастОК]

Сообщение от sasha_lif РастОК, а во 2 посте макрос же видно в правой части таблицы

Выдаёт ошибку. Я так понимаю к макросу на кнопку должен идти файл лисп.

[Krieger]

Подчеркнуть забыл, поставь нижнее подчеркивание перед ch:

Код:

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

_-ch;_p;_c;(getvar "cecolor");;

Сначала нужно выбрать объекты, потом жать кнопку, иначе не работает.

[РастОК]

Сообщение от Krieger Подчеркнуть забыл, поставь нижнее подчеркивание перед ch: Код: [Выделить все] _-ch;_p;_c;(getvar "cecolor");; Сначала нужно выбрать объекты, потом жать кнопку, иначе не работает.

Теперь открывает меню "Адаптация пользовательского интерфейса", что при начальном выборе объекта, что просто без выбранного объекта.

[Klo]

По-видимому, у РастОК'а цвет не из стандартных 255, а rgb.
Тогда решение Krieger можно переписать в виде:

Код:

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

 (progn (setq obj (car (entsel))) (command "_.change" obj "" "_p" "_c" "_t" (substr (getvar "cecolor") 5) ""))

Если менять на обычные цвета, то можно вернуться к:

Код:

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

 (progn (setq obj (car (entsel))) (command "_.change" obj "" "_p" "_c" (getvar "cecolor") ""))

[РастОК]

Сообщение от Klo По-видимому, у РастОК'а цвет не из стандартных 255, а rgb. Тогда решение Krieger можно переписать в виде:

Не знаю, может я неправильно объяснил задачу? Я выставляю обычный синий цвет в панели инструментов как основной. Дальше выделяю объект с любым цветом и меняю его на основной синий. Таких операций нужно очень много, поэтому и хочу, чтобы выделив объект и нажав комбинацию клавиш объект окрасился в основной цвет.

Опять вылезает

Команда: (progn (setq obj (car (entsel))) (command "change" obj "" "p" "c" "t"
(substr (getvar "cecolor") 5) ""))
Выберите объект: change Неизвестная команда "CHANGE". Для вызова справки
нажмите F1.

Команда: <имя объекта: F81B61C0>

Команда: НПИ
Команда: p Неизвестная команда "P". Для вызова справки нажмите F1.

Команда: c Неизвестная команда "C". Для вызова справки нажмите F1.

Команда: t Неизвестная команда "T". Для вызова справки нажмите F1.

Команда: НПИ
Команда: НПИ
Команда: nil

После вызова команды три раза подряд открывается указанное две записи назад меню Адаптации.

P.S. Никаких нестандартных цветов не использую.
P.P.S. На Автокад установлен Веткад.

[Хмурый]

РастОК, знак подчёркивания поставь перед _change ; _p ; _c и _t