[Юрий_Нд]

Доброго дня Уважаемые.
Сегодня такой вопрос:
- слева я начертил многоугольник, который в начале состоял из множества не объединённых отрезков;
- затем я скопировал все отрезки вправо и объединил в полилинию;
- и в конце концов объединил левые отрезки в полилинию.
Вопрос:"Почему площади левого и правого многоугольника различные? Примерно 33 и 24 м²"
Спасибо ____________ Юрий.
https://dropmefiles.com/s3o9y

[Старый Дилетант]

Сообщение от gumel Ну, а вот это вообще непонятно. Площадь левой фигуры ноль. После копирования, не ноль:

У меня почему-то площадь у обеих 2400 и каким способом ни копирую - получается так же

[Нубий-IV]

Сообщение от Старый Дилетант площадь у обеих 2400

В свойствах на панели выводится одно и то же правильное значение. А если смотреть через GeomProps - разные. У меня еще своя считалка суммарной длины есть, написанная, когда ковырял программирование под ObjectARX. Она тоже работает через getArea, и тоже показывает разные площади.

Интересу ради, простейшая команда, которая считает площадь через:
- AcDbCurve::getArea
- AcDbPolyline::getArea (на всякий случай, вдруг она переопределенная)
- честным суммированием трапеций:

Код:

[Выделить все]

 
#include "StdAfx.h"


void GetArea(AcDbCurve* pCurve)
{
	double area;
	if (pCurve->getArea(area) != Acad::eOk)
		return;

	acutPrintf(ACRX_T("\nGet  area (Curve)    = %f"), area);
}


void GetArea(AcDbPolyline* pPolyline)
{
	double area;
	if (pPolyline->getArea(area) != Acad::eOk)
		return;

	acutPrintf(ACRX_T("\nGet  area (Polyline) = %f"), area);
}


void CalcArea(AcDbPolyline* pPolyline)
{
	if (pPolyline->hasBulges())
		return;

	unsigned nSegments = pPolyline->numVerts() - 1;

	AcGePoint2d point_i;
	AcGePoint2d point_j;

	double area = 0.0;

	for (unsigned iSegment = 0; iSegment < nSegments; iSegment++) {
		unsigned i = iSegment;
		unsigned j = iSegment + 1;
		
		pPolyline->getPointAt(i, point_i);
		pPolyline->getPointAt(j, point_j);

		area += (point_i.x - point_j.x) * (point_i.y + point_j.y);
	}

	pPolyline->getPointAt(nSegments, point_i);
	pPolyline->getPointAt(0, point_j);

	area += (point_i.x - point_j.x) * (point_i.y + point_j.y);

	area = std::abs(area) / 2.0;

	acutPrintf(ACRX_T("\nCalc area (Polyline) = %f"), area);
}


void GetArea(AcDbEntity* pEnt)
{
	if (pEnt->isKindOf(AcDbCurve::desc())) {
		AcDbCurve* pCurve = AcDbCurve::cast(pEnt);
		GetArea(pCurve);
	}

	if (pEnt->isKindOf(AcDbPolyline::desc())) {
		AcDbPolyline* pPolyline = AcDbPolyline::cast(pEnt);
		GetArea(pPolyline);
		CalcArea(pPolyline);
	}
}


void GetArea(ads_name name)
{
	AcDbObjectId objId;
	if (acdbGetObjectId(objId, name) != Acad::eOk)
		return;

	AcDbEntity* pEnt;
	if (acdbOpenObject(pEnt, objId) != Acad::eOk)
		return;

	GetArea(pEnt);

	pEnt->close();
}


void GetArea()
{
	for (;;) {
		ads_name  name;
		ads_point point;
		
		switch (acedEntSel(NULL, name, point)) {
		case RTNORM:
			GetArea(name);
			continue;
		case RTCAN:
			return;
		}
	}
}


extern "C" __declspec(dllexport) AcRx::AppRetCode 
acrxEntryPoint(AcRx::AppMsgCode msg, void* appId)
{
	const ACHAR* cmdGroupName  = ACRX_T("GetArea");
	const ACHAR* cmdGlobalName = ACRX_T("GetArea");
	const ACHAR* cmdLocalName  = ACRX_T("GetArea");
	const Adesk::Int32 commandFlags = ACRX_CMD_MODAL | ACRX_CMD_USEPICKSET;

	switch (msg) {
		case AcRx::kInitAppMsg:
			acrxUnlockApplication(appId);
			acrxRegisterAppMDIAware(appId);
			acedRegCmds->addCommand(cmdGroupName, cmdGlobalName, cmdLocalName, commandFlags, GetArea);
			break;
		case AcRx::kUnloadAppMsg:
			acedRegCmds->removeGroup(cmdGroupName);
		break;
	}
	return AcRx::kRetOK;
}

Кому интересно поковырять - во вложении проект для VS2022, и ARX, собранный под Acax2020x64. Добавляет команду GETAREA. Перед сборкой в папку ObjectARX закинуть содержимое.

P.S.
Которые в Лиспе сильны - предложите и вашу версию. А то, кто Автокад сиплюсплющит, тот его не лиспует.