Работа с группой объектов

[Борис_С]

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

Написал такой код:

Код Выделить Развернуть

gr := Doc.ksNewGroup(0); //создание группы

//добавление элементов в группу
Doc.ksLineSeg(10, 10, 10, 20, 1);
Doc.ksLineSeg(10, 20, 40, 20, 1);

Doc.ksEndGroup();         // закончить формирование группы
Doc.ksLightObj(gr, 1);    // подсветить группу
Doc.ksSaveGroup(gr, '1'); // сохранение группы

Элементы группы подсвечиваются, но перемещаются они не вместе, а по отдельности.
Где я не прав?

[Sabahs]

Подсвечивать нужно через SelectionManager - менеджер выделенных объектов.
Тоже действие можно получить добавляя методом AddObjGroup в нулевую группу.

[Борис_С]

С подсветкой все хорошо. Проблема в том, что элементы, объединенные в группу,
не двигаются все вместе.

[Sabahs]

У Вас сделана подсветка через интерфейс менеджера выбора (подсветки) объектов - IChooseManager, а это разные вещи.

[Борис_С]

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

[Sabahs]

ksMoveObj - сдвинуть объект.

[Борис_С]

Мне не нужно программно сдвигать объект. Двигать объект будет пользователь руками, после того,
как график будет сформирован.

[Sabahs]

Вам нужно делать Dll, смотрите пример Step4, т.к. нужно будет работать с функций обратной связи.

[DesignЯR]

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

Мне не нужно программно сдвигать объект. Двигать объект будет пользователь руками, после того,
как график будет сформирован.

Doc.ksNewGroup - это как раз для программной работы с объектами. Для ручной работы попробуйте IMacroObject.AddObjects

[Борис_С]

А без Dll эту проблему нельзя решить?
Я работаю на Delphi7 и использую 64-разрядную версию Компас.
Как я понимаю, DLL в этом случае работать не будет.
Переходить на другую версию Delphi пока нет возможности.

Что такое макрообъект и чем он может мне помочь?

[Sabahs]

Макроэлемент может Вам и помочь, если при перемещении ничего меняться не должно, кроме положения.

[DesignЯR]

А без Dll эту проблему нельзя решить?...
Что такое макрообъект и чем он может мне помочь?

Макрообъект создается и без dll  На чертеже выделить объекты-> ПКМ-> Создать макроэлемент, но это тема не для этого форума(Азбуку надо читать). Тут все решается через dll(rtw).

[tramp_m]

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

Написал такой код:

Код Выделить Развернуть

gr := Doc.ksNewGroup(0); //создание группы

//добавление элементов в группу
Doc.ksLineSeg(10, 10, 10, 20, 1);
Doc.ksLineSeg(10, 20, 40, 20, 1);

Doc.ksEndGroup();         // закончить формирование группы
Doc.ksLightObj(gr, 1);    // подсветить группу
Doc.ksSaveGroup(gr, '1'); // сохранение группы

Элементы группы подсвечиваются, но перемещаются они не вместе, а по отдельности.
Где я не прав?

Чертеж (сборочный чертёж из составных частей), полученный из объединения нескольких элементов (составных частей) в одну группу, вроде как называется макроэлемент в 2D....
А, если в 3D сборочная модель, движение составных частей поддерживают сопряжения, вроде так....
Прошу прощения если что не так....

[Борис_С]

Спасибо. Все работает.