[deaf red]

У меня есть большая электросхема. В ней каждый элемент (рубильники, автоматы) это динамический блок. Элементы соединены проводами, которые просто отрезки. Каждый блок имеет два состояния видимости -- включен и отключен. При этом каждый блок имеет атрибут нормального положения -- включен и отключен. Код ВБА перебирает все блоки и находит те, у которых не совпадает текущее положение с атрибутом нормального положения.

Теперь вопрос. Допустим в линии есть элемент с несовпадением текущего и нормального положения. Как мне выделить всю электрическую линию?

Снизу для примера приведена картинка из интернета, где кружком обозначен элемент с несовпадением, а прямоугольником -- часть электрической линии, которую надо выделить. Что делать, если нужно выделить несколько электрических линий разных размеров?

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

По-моему, через чистый VBA выполнить выделение не получится. И что-то у меня подозрения, что надо работать не с ACAD, а с ACAD Electrical.

[Сергей812]

Чтобы выделить - должны быть заданы взаимосвязи между элементами: слой, XData, группа и т.д. Либо пытайтесь искать ближайшие подходящие элементы по вертикали. Сам акад ничего не знает о схеме, и, соответственно, не сможет выдать никакой информации для выделения.

[veb86]

Сообщение от deaf red У меня есть большая электросхема. В ней каждый элемент (рубильники, автоматы) это динамический блок. Элементы соединены проводами, которые просто отрезки. Каждый блок имеет два состояния видимости -- включен и отключен. При этом каждый блок имеет атрибут нормального положения -- включен и отключен. Код ВБА перебирает все блоки и находит те, у которых не совпадает текущее положение с атрибутом нормального положения.

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

Сообщение от deaf red Теперь вопрос. Допустим в линии есть элемент с несовпадением текущего и нормального положения. Как мне выделить всю электрическую линию?

Я электрик, но я ничего не понял. Зачем вам выделять электрическую цепь, если у Вас несовпадение в виде динамического блока - и атрибута который прописан. Не надо трогать провода.

[deaf red]

Сообщение от Сергей812 Чтобы выделить - должны быть заданы взаимосвязи между элементами: слой, XData, группа и т.д

Спасибо, кажется, что группы -- это то что надо. Буду обращаться через VBA к блоку, если он не в нормальном положении, то пусть выделяется вся группа. Не знаю, можно ли так сделать, но я попробую.

Сообщение от veb86 Я электрик, но я ничего не понял. Зачем вам выделять электрическую цепь, если у Вас несовпадение в виде динамического блока - и атрибута который прописан. Не надо трогать провода.

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

Сообщение от veb86 Я думаю это местные лисперы сделают очень быстро и просто, Вы выделите однолинейную схему, а они пробегут по элементам и посмотрят совпадет ли динамическое состояние блока с атрибутом внутри этого блока, и если нет, то что то из них возьмут за истину и исправят другое. Или тупо отметят кружочком.

С этой частью у меня проблем нет.

Сообщение от Кулик Алексей aka kpblc И что-то у меня подозрения, что надо работать не с ACAD, а с ACAD Electrical

Работаю с тем, что есть.

[veb86]

Сообщение от deaf red если в присоединении хоть один блок находится не в нормальном положении, чтобы выделилось все присоединение, вот что я хочу. Потому я трогаю и провода тоже.

Плохо понятно. Объясните на пальцах. Что Вы понимаете под присоединением? И зачем Вам видеть все присоединение? Относительно чего программа должна понять что блок находится не в нормальном состоянии, относительно одного из атрибутов или относительно того что происходит в других местах электрической схемы?

[deaf red]

Сообщение от veb86 Что Вы понимаете под присоединением?

Присоединение
– электрическая цепь (оборудование и шины) одного назначения, наименования и напряжения, присоединенная к шинам РУ, генератора, щита, сборки и находящаяся в пределах электростанции, подстанции и т. п. Электрические цепи разного напряжения одного силового трансформатора (независимо от числа обмоток), одного двухскоростного электродвигателя считаются одним присоединением. В схемах многоугольников, полуторных и т. п. схемах к присоединению линии, трансформатора относятся все коммутационные аппараты и шины, посредством которых эта линия или трансформатор присоединены к РУ.

А если на пальцах, то, например, от шин щита отходит рубильник, от рубильника идут шины к предохранителям, далее -- пускатель, далее -- электродвигатель. Это и есть присоединение.

Сообщение от veb86 Относительно чего программа должна понять что блок находится не в нормальном состоянии, относительно одного из атрибутов или относительно того что происходит в других местах электрической схемы?

относительно одного из атрибутов.

Сообщение от veb86 И зачем Вам видеть все присоединение

Это нужно чтобы знать в каком присоединении произошли отклонения от нормальной схемы. Потом этот кусочек схемы пойдет в другой файл.

[veb86]

Задача, конечно своеобразная, но я думаю что решаемая. Я бы стал решать на С#.net, но думаю VBA тоже должно хватить.
Что нужно что бы выделить электрическую цепь, как я вижу решение, а я подобное уже решал:
1. Шины должны быть выделены, скорее всего лучше сделать жирной полилинией и дать атрибут, если так нельзя то поместить на определенный слой
2. Внутрь каждого динамического блока поместите еще один блок с именем "connector".
3. Все провода лучше сделать полилиниями, так будет быстрее сделать, но и отрезки тоже можно. Все провода будут начинаться на коннекторе и на коннекторе заканчиваться.
4. Организуете перебор, находите неправильный динамический блок -> ищете внутри него коннекторы -> организуете перебор всех отрезков(полилиний) ищем ту у кого начало/конец лежит в координате коннектора - > ищем другой конец и то что на той стороне находится и тд пока не дойдете до ШИНЫ или не упретесь в двигатель. По ходу сохраняйте координаты движения, габариты устройств что бы их обвести красной линией.

[deaf red]

veb86, извините, я наверное вас запутал своим неправильным объяснением. Под выделением я имел ввиду выбор, как например секущей рамкой выбрать элемент чертежа. Т.е. я нашел блок, и выбрал всю линию, связанную с этим блоком. Мне не нужно было ее обводить, просто выбрать. Как через БВЫБОР.

[Ilya405]

Возможно это поможет http://vbamodel.narod.ru/AutoCAD/idh_select.htm

[veb86]

Сообщение от Ilya405 Возможно это поможет http://vbamodel.narod.ru/AutoCAD/idh_select.htm

Программно это оно самое.

А так если вы хотите городить программу через постоянный выбор секущей рамкой и перебор того чего в него попал, с последующей опять выбор сек рамкой. То это очень медленно и запутанно. Проще один раз собрать в список все устройства и узловые точки проводов. И их быстренько перебрать. Будет проще и быстрее

[deaf red]

В итоге группировка -- хорошее решение. Но как группу или даже несколько отдельных групп скопировать в буфер обмена через ВБА? Это нужно, чтобы вставить группу как часть чертежа в ворд через специальную вставку. Как я понял, группы не добавляются в SelectionSet.

[Сергей812]

Сообщение от deaf red Это нужно, чтобы вставить группу как часть чертежа в ворд через специальную вставку.

В .Net бы скорее сделал бы скриншоты и уже картинки в ворд вставлял. Есть подозрение - что при достаточно большом количестве спецвставок вордовский документ будет глючить)

Сообщение от deaf red Как я понял, группы не добавляются в SelectionSet.

Может быть, давно уже акадовский VBA не использовал. Но что мешает создать пустой набор, получить AcadGroup и в цикле занести данные из AcadGroup в набор?

[deaf red]

Сообщение от Сергей812 В .Net бы скорее сделал бы скриншоты и уже картинки в ворд вставлял.

Скриншот -- не совсем то, что нужно. Нужны чертежи с белым фоном, как получается при спец.вставке -> рисунок(метафайл виндоуз).

Сообщение от Сергей812 Но что мешает создать пустой набор, получить AcadGroup и в цикле занести данные из AcadGroup в набор?

Набор это еще одна группа? в нее добавление происходит через set myGroup = ThisDrawing.Groups.Add(Имя желаемой группы)?

При этом с группами не получается провернуть CopyToClipboard или PutInClipboard не помню уже точно как пишется.

[Сергей812]

Сообщение от deaf red Набор это еще одна группа? в нее добавление происходит через set myGroup = ThisDrawing.Groups.Add(Имя желаемой группы)?

Набор - это AcadCollectionSet из коллекции AcadSelectionSets.