[每日一码] ObjectARX 求椭圆的长度

admin

1. ads采用name ename;
2.                 ads采用point pt;
3.                 if(RTNORM!=acedEntSel(采用T("\n请选择一个椭圆:"),ename,pt))
4.                 {
5.                         return;
6.                 }
7.                 AcDbObjectId entId;
8.                 acdbGetObjectId(entId,ename);
9.                 AcDbEllipse* pEllipse = NULL;
10.                 if(Acad::eOk!=acdbOpenObject(pEllipse,entId,AcDb::kForRead))
11.                 {
12.                         return;
13.                 }
14.                 double len;
15.                 Acad::ErrorStatus es;
16.                 double param;
17.                 es = pEllipse->getEndParam(param);
18.                 es = pEllipse->getDistAtParam(param,len);
19.                 acutPrintf(采用T("\n椭圆长度为%.3f"),len);
20.                 pEllipse->close();
21.                 pEllipse = NULL;

复制代码