ARX多段线上加顶点

1、多段线上加顶点ads_name en;ads_point ept,addpt;AcDbDatabase *pDb=NULL;ads_point pt;highlightname(en,true);/ 所选对象高亮显示if(k=1)if(acedGetPoi nt(NULL,n 指定要添加的点：,pt)!= RTNORM)go=0;AcDbBlockTable *pBlockTable=NULL;AcDbBlockTableRecord *pBlockTableRecord=NULL;AcDbObjectId plineObjId;int nLoop=0;int istext=1;CString

2、 link;AcDbEntity *pEnt ;structresbuf*pRb二NULL, *pTemp; 定义结果缓冲区列表 long ppno=0;int pl3dor2d=-1;if(ads_entsel(n 选择多段线 :,en, ept)=RTNORM 选择线int k=0;4/ 4AcDbObjectId objId;acdbGetObjectId(objId,en); acdbOpenAcDbEntity(pEnt,objId,AcDb: :kForRead);if(AcDb3dPolyline:cast(pEnt) pl3dor2d=1; if(AcDbPolyline: :

3、cast(pEnt) pl3dor2d=0; pEnt-close();if(pl3dor2d=0)/ 可设置为重复添加顶点bool go=1;dok=k+1;/ 插入顶点的次数 highlightname(en,false); return;elseif(acedGetPoi nt(NULL,n 指定下一个要添加的点:,pt)!= RTNORM)go=0;highlightname(en,false);return;acdbOpenObject(pEnt,objId,AcDb: :kForWrite);if(!AcDbPolyline:cast(pEnt)acutPrintf(n 所选非多段

4、线！ );AcDbPolyline*pPoly=AcDbPolyline:cast(pEnt);AcGeVector3d normal(0,0,1);AcGePoint3d pointOnCurve; pPoly-getClosestPointTo(asPnt3d(pt),pointOnCurve,Adesk: :kTrue);/ 找到最 double param,pE;pPoly-getParamAtPoint(pointOnCurve,param); pPoly-getEndParam(pE);double dd;dd=pointOnCurve.x;CStringaa;aa.Format(

5、%f,param);AfxMessageBox(aa);return;密切的点到输入点const double EPSINON =0.001;if(param-pE)=-EPSIN 0N& (param-pE)v二EPSINON)加载末尾 pPoly-addVertexAt(pPoly-numVerts(),asPnt2d(pt),0,-1,-1); else if(param=-EPSINON)elsepPoly-close();pEnt-close();pPoly-addVertexAt(int)param+1,asPnt2d(pt),0,-1,-1); pPoly-addVertexAt(0,asPnt2d(pt),0,-1,-1);while(go); elseacutPrintf(n 没有选择的多段线 n);if