Delphi7 Создание листового тела

[Kati]

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

[Sabahs]

А, что уже программно создано? Неплохо было бы поглядеть, чтобы понять чем помочь.
Для ориентира смотрите ISheetMetalContainer - интерфейс контейнера объектов гибки.
SheetMetalBodies:=SheetMetalContainer.SheetMetalBodies;
if SheetMetalBodies<>nil then
begin // Указатель на коллекцию листовых тел
     SheetMetalBody:=SheetMetalBodies.Add;
     if SheetMetalBody<>nil then
      begin // Листовое тело
          SheetMetalBody.Sketch:=Sketch;
          SheetMetalBody.Thickness:=S;
          SheetMetalBody.BendCoefficient:=Kx;
          SheetMetalBody.Update;
      end;
  end;

[Kati]

Программно создан эскиз (для примера, обычная окружность - мне главное понять принцип создания этого объекта). А переменную SheetMetalBodies какого типа необходимо описать?

[Sabahs]

Открываем SDK и смотрим, там всё написано понятно.
var
SheetMetalBodies:ISheetMetalBodies;