Вычитать из расчета деталь кодом

procedure TForm2.Button2Click(Sender: TObject);
begin
  Application.Terminate;
end;
 
 
const
  o3d_entityCollection = 102; // Идентификатор для массива всех трехмерных объектов
  o3d_part = 104; //деталь
  o3d_partCollection = 108; // Идентификатор для массива элементов сборки
 
//Перестраиваем сборку
procedure TForm2.Button3Click(Sender: TObject);
var
  kompas: KompasObject;
  Document3D: ksDocument3D;
  Part: ksPart;
  ComponentsArray: ksEntityCollection;
  Component: ksEntity;
  i: Integer;
begin
 
       // Подключаемся к КОМПАСу
  kompas := KompasObject(CreateOleObject('Kompas.Application.5'));
 
  // Получаем интерфейс документа-сборки
  Document3D := ksDocument3D(kompas.Document3D());
 
  // Открываем сборку "штатив.a3d"
  Document3D.Open('D:\Study\штатив.a3d', False);
 
  // Получаем интерфейс сборки
  Part := ksPart(Document3D.GetPart(pTop_Part));
 
  // Перестраиваем модель
  Part.RebuildModel();
 
  // Перерисовываем документ
  Document3D.RebuildDocument();
 
  // Устанавливаем полутоновое отображение модели
  Document3D.drawMode := vm_Shaded;
 
  // Включаем отображение каркаса
  Document3D.shadedWireframe := TRUE;
 
  // Сохраняем измененную сборку
  Document3D.SaveAs('D:\Study\Иготовый_штатив.a3d');
 
  // Делаем КОМПАС видимым
  kompas.Visible:=true;
 
                       // Получаем массив компонентов
                    ComponentsArray := Part.EntityCollection(o3d_part) as ksEntityCollection;
                    // Перебираем все компоненты
                   for i := 0 to ComponentsArray.GetCount - 1 do
                  begin
                    // Здесь мы используем QueryInterface для получения интерфейса ksEntity
                    if Supports(ComponentsArray.GetByIndex(i), ksEntity, Component) then
                    begin
                      // Выводим название каждого компонента
                      ShowMessage(Component.name);
                    end;
                  end;
                  end;
 
 
 
end.