Определение площади фигуры

Автор JohnSmith, 19.02.21, 10:20:29

« предыдущая - следующая »

0 Пользователей и 1 гость просматривают эту тему.

JohnSmith

Добрый деньб уважаемые Знатоки!
Второй день пытаюсь написать скрипт для получения площади фигуры.
Нашел как вызвать саму функцию "Площадь", но вот как передать ей объект нужной фигуры не понимаю. Должно быть нужно установить координаты внутри нее и осуществить "щелчок", только как это сделать ?
Возможно есть какие то более рациональные варианты - буду рад если поделитесь идеями)

p3452


JohnSmith

Да, забыл уточнить, что фигуры в 2д

Sabahs

Grupp - Указатель на группу содержащую контур.
Grupp:=NewGroup(0);
EndGroup;
SelectGroup(Grupp,1,100,100,-100,-100); // Ловушка для контура
if Grupp<>0 then Properties:=ksInertiaParam(Kompas.GetParamStruct(ko_InertiaParam));
if Properties<>nil then
 begin
   if(iMath.ksCalcInertiaProperties(Grupp,Properties,ST_MIX_MM))=1 then
    begin
      F:=Properties.F; // Площадь
    end;
   Properties:=nil;
end;