[den1s]

Подскажите макрос для выделения определенного цвета на чертеже

[Хмурый]

Быстрый выбор не рулит на всё синее?

[Bull]

Чем быстрый выбор не устраивает? Правда, учти, что "синий" и "по слою" (если у слоя цвет синий) это два разных случая.

[den1s]

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

цвет линий на чертеже есть "по слою" - черный, и "синий". слой на чертеже всего один. хочу выделить именно линии синего цвета.

[Bull]

тогда сюда перенеси тему. Хоть и не понимаю, для чего это так извращаться...

[den1s]

подскажите как перенести)) здесь удалить и там создать? или можно как то по другому?

[den1s]

как выбрать все синее через макрос? задать в макросе конкретный цвет "5" = "синий" и выбрать все с помощью кнопки. Подскажите пожалуйста

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

SelSim от А.Ривилиса чем не устраивает?

[den1s]

если я правильно понял смысл действия "SelSim от А.Ривилиса" то там выбор подобного...

мне нужно немного другое. Я создал кнопку с несколькими функциями в одной: чистка чертежа+хочу задать толщину всех линий = 0.25, затем хочу задать толщину всех синих элементов 0,35. и это все в одной кнопке.

На данный момент решил задачу так: прописал макрос по очистке от всего лишнего, затем выбираю весь чертеж и задаю толщину линий 0,25, затем написал быстрый выбор (мышкой выбираю синий), потом задать толщину 0,35

----- добавлено через ~4 мин. -----
^C^C_ai_selall;_burst ^C^C_ai_selall;_burst ^C^C_ai_selall;_burst ^C^C_ai_selall;_burst ^C^C_ai_selall;_burst ^C^C_explodeallproxy;_removeallproxy;_y ^C^C_.audit;_y;_.-purge;в;;_n;_.-purge;_r;;_n;_regenall;_ai_selall _overkill;_regenall;_ai_selall;изменить;с;е;0.25;;_regenall;_ai_selall;_qselect;порядок;е;_regenall;_ai_selall;_qselect;изменить;с;е;0.35;;_regenall;_.zoom;_e;^C^C_.audit;_y;_qsave;

вот что забито у меня в кнопке, хочу дополнить, чтобы ничего дополнительно на экран не выводилось... а тут появляется три окна по порядку...

[CaMoCAD]

Имхо, как раз для печати толщины по цвету придумали цветозависимые стили печати. Не то?

[den1s]

нужно не только для печати настроить. Файл автокада подгружается в другую программу для просмотра и удобно просматривать чертеж с уже настроенными линиями...

[Do$]

(sssetfirst nil (ssget "_X" '((62 . 5))))

[den1s]

Сообщение от Do$ (sssetfirst nil (ssget "_X" '((62 . 5))))

СПАСИБО БОЛЬШОЕ!!! То что нужно было!!! Ура!)))

[Vladimir_Sergeevich]

примерно то же самое, что у Do$, но выбор в секущей рамке и можно формировать любой угодный набор фильтров. в примере по группам 0 и 8, что есть слой и тип примитива.

Код:

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

(defun c:sel-08 ( / ent)
(setq ent (car (entsel "\nУкажите образец :)))
(sssetfirst nil (ssget "_C" (getpoint "\nСекущий прямоугольник") (getpoint "\nвторая точка") (list (assoc 0 (entget ent)) (assoc 8 (entget ent)))))
(princ));end