[tibidcp]

Добрый день. Подскажите пожалуйста как создать(или где хоть почитать об этом можно) свой выпадающий список наподобие того, который выпадает при двойном клике на полилинию(редактирование полилинии)?

[tibidcp]

Код:

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

 (setq old_color (getvar "CECOLOR"))
 (setvar "CECOLOR" col)
 (command "_-hatch" "_p" "_solid" pause)
 (setvar "CECOLOR" old_color)

Ну в данном случае, как я понял, после первого действия пользователя лисп завершает работу, а комманда _-hatch нет, и в итоге цвет штриховки не меняется. Ну в принципе мне нужно ограниченное число штриховок(в пределах 10), так что если написать в коде pause 10 раз, то всё работает, просто думал есть способ по-красивее, например на случай, если бы повторений было бы куда больше

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

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

[skkkk]

Сообщение от tibidcp и в итоге цвет штриховки не меняется

чтоб менялся, можно после отрисовки штриховки добавить команду _change с опцией "_L" (last)

Код:

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

(command "_-hatch" "_p" "_solid" pause)
(command "_change" "_L" "" "_COLOR" .......)

ну и так далее...