[vaxo55]

возможно в AutoCAD vba или vb поискать (или обращаться)объект по цвету в формате RGB(a,b,c)?
допустим линия с цветом (14,26,34)

[Alexandr_A]

Сервис - быстрый выбор - в поле "тип объектов" выбираете "отрезок", в поле "свойства" - "цвет", в поле значение выбираете искомый цвет, жмякаете ОК и наслаждаетесь выделенными отрезками искомого цвета.

[vaxo55]

спасибо Alexandr_A, но мне ножно, что этот поиск сделать програмно- в vb, vba, lisp

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

DXF Reference, фильтры формирования наборов и дополнительно преобразование RGB в целое число - ИМХО только так.

[vaxo55]

Кулик Алексей aka kpblc
спасибо большое!

[VVA]

здесь математика http://forum.dwg.ru/showthread.php?p=600758#post600758

[vaxo55]

если назначить объекту цвет "micolor",через ColorName как можно выделить потом этот объект с цветом micolor? ФИЛЬТРАЦИЯ НАБОРА по коду 62 требует Число 0-256 как найти объект по ColorName?

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

Сообщение от vaxo55 если назначить объекту цвет "micolor",через ColorName как можно выделить потом этот объект с цветом micolor? ФИЛЬТРАЦИЯ НАБОРА по коду 62 требует Число 0-256 как найти объект по ColorName?

Чего?? Что за micolor? И почему бы не прочитать ссылку #6?

[vaxo55]

Сообщение от Кулик Алексей aka kpblc Чего?? Что за micolor? И почему бы не прочитать ссылку #6?

дорогой Алексей, дело в том что я не понимаю Лисп и заняться с этим делoм для меня, думаю что уже поздно. я электронщик и с автокадом пришлось работать случайно; просто хочу на схеме автокад сделать моделирование прохождение тока при включении автоматов. я начал изучать vba и вряд ли пойду дальше vba.
автоматов (на чертеже это линия)у меня много и стараюсь их отличить друг от друга по свойству ColorName. поворот линии-обозначает открытие автомата. моя задача- по чертежу найти линию со свойством ColorName="micolor1" (в формате RGB(a,b,c) то есть сделать то что в #2 предложил Alexandr_A,только с помощью вба.DXF Reference тоже для меня новое. если это задача трудная, я лучше брошу его и с этим закончится все,если задача легкая, дайте пример или аналог как делать

[Boxa]

И в чем сложность?
Посмотрите разделы справки VBA :ColorName Property (ActiveX), Select Method (ActiveX). Там есть примеры, правильное сочетание этих примеров, решит Вашу задачу.

[vaxo55]

с кодами разобрался,
но, когда применяю фильтр 420- все работает нормально, но когда применяю 420 и вставлю имя- отказ. т.е. при RGB(20,20,20)
Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
FilterType(0) = 420
FilterData(0) = "1315860"
это работает
Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
FilterType(0) = 430
FilterData(0) = "A"
а это нет, хотя при выборе линии цвет "A" подтверждается
может поможете?