как переключаться между объектами в сцене?

[lerka]

Delphi 7 + OpenGL, из 3dMax'a импортированы объекты (сейчас кубики, планируется мебель) и нужно между ними переключаться и их крутить и двигать.

Нужно вращать объекты в сцене по очереди, либо группами; объектов пока не много - около 10.
Например при нажатии на "1" вращается первый, "2" - второй, а "1, 2" - 1й и 2й. Подскажите пожалуйста - не получается.
переключаться между отдельными объектами получается,

пример для 2х объектов:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

begin
Label1.Caption := IntToStr(Key);
 case Key of
   48..57: NumObjSelect := Key-48;
   37: case NumObjSelect of
     1: rotz := rotz+1;
     2: rotzz := rotzz+1;
   end;
   39: case NumObjSelect of
     1: rotz := rotz-1;
     2: rotzz := rotzz-1;
   end;

но как выделять их группами?

[Stilet]

Delphi 7 + OpenGL, из 3dMax'a импортированы объекты

Если не секрет как?

но как выделять их группами?

Смотря что ты имееш ввиду под словом "выделять".
Ну яб в массив вносил ссылки на эти обьекты, а потом просто применял процедуру преобразования к нескольким элементам массива.

[lerka]

http://www.programmersforum.ru/showt...d=1#post223808

если нужно - могу с кубиком пример отправить

в принципе я примерно так и предполагала, только как связать нажатия кнопок с объектами все равно не понимаю

[Stilet]

если нужно - могу с кубиком пример отправить

Приаттач сюда если не сложно.

как связать нажатия кнопок с объектами

Ну судя по твоим методам примерно так:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

begin
Label1.Caption := IntToStr(Key);
 case Key of
   
   37: begin
          for i:=low(obj) to high(obj) do obj[i].rot.z:=obj[i].rot.z+1;
         end;

Это все будет вращать, а если не все хочеш, то рекомендую добавить к TObj поле Selected:boolean, где будет указано - селектирован ли обьект или нет. Тогда можно вращать выбраные так:

for i:=low(obj) to high(obj) do 
if obj[i].Selected then obj[i].rot.z:=obj[i].rot.z+1;

Яснышко?

[lerka]

да! спасибо!!!
http://ifolder.ru/11130884 - там весь проект

[Stilet]

Данке Шон...
Мне как трехмершику любая помошь в этом направлении пригодится. Раньше я GLScene использовал, тож ниче так успехи...
Вот только хочется научиться открывать непосредственно max форматы.
Уж было думал задействовать библиотеки самого MAXа...