两点和圆心点计算凸度方式：多段线增删顶点(支持弧段)

gzxl

保持起点不变及面积不变的情况下

继上一个贴: getSplitCurves 应用之：经量多段线添加顶点(支持弧段)
http://bbs.mjtd.com/thread-193321-1-1.html

此处采用两点和圆心点计算凸度方式

1. // 多段线添加顶点(支持弧段)
   
2. Acad::ErrorStatus es = Acad::eOk;
   
3. ads_name ename;
   
4. AcGePoint3d ptPick;
   
5. if (RTNORM != acedEntSel(_T("\n请单选需要添加顶点的经量多段线:\n"), ename, asDblArray(ptPick)))
   
6. {
   
7.     acutPrintf(_T("\n您退出了选择!"));
   
8.     return;
   
9. }
   
10. AcDbObjectId entId = AcDbObjectId::kNull;
    
11. es = acdbGetObjectId(entId, ename);
    
12. if (es != Acad::eOk)
    
13. {
    
14.     acutPrintf(_T("\n获取对象ID失败，错误码: es=%s\n"), acadErrorStatusText(es));
    
15.     return;
    
16. }
    
17. AcDbEntity* pEnt = NULL;
    
18. es = acdbOpenAcDbEntity(pEnt, entId, AcDb::kForRead);
    
19. if (es != Acad::eOk)
    
20. {
    
21.     acutPrintf(_T("\n打开对象失败，错误码: es=%s\n"), acadErrorStatusText(es));
    
22.     return;
    
23. }
    
24. // 检查选择对象是否是一条轻量多段线
    
25. AcDbPolyline* pPolyline = AcDbPolyline::cast(pEnt);
    
26. if (!pPolyline)
    
27. {
    
28.     acutPrintf(_T("\n您选择的对象不是经量多段线\n"));
    
29.     pEnt->close();
    
30.     return;
    
31. }
    
32. // 多段线是否闭合
    
33. bool bClosed = pPolyline->isClosed();
    
34. // 多段线颜色
    
35. int nColorIndex = pPolyline->colorIndex();
    
36. // 多段线全局宽度
    
37. double dWidth = 0.0;
    
38. pPolyline->getConstantWidth(dWidth);
    
39. // 强制转换为曲线类
    
40. AcDbCurve* pCurve = static_cast<AcDbCurve*>(pPolyline);
    
41. // 用户输入
    
42. TCHAR szKword1[10];
    
43. acedInitGet(0, _T("A B"));
    
44. int nRe1 = acedGetKword(_T("输入添加顶点方式选项[拾取点(A)/两节点间按指定距离(B)]:"), szKword1);
    
45. if (nRe1 != RTNORM)
    
46. {
    
47.     pCurve->close();
    
48.     pEnt->close();
    
49. }
    
50. int nCmdecho = 0, nOsmode = 0;
    
51. // 回显系统变量, 0-关闭回显 1-打开回显
    
52. GetVar(_T("cmdecho"), nCmdecho);
    
53. // 关闭回显
    
54. SetVar(_T("cmdecho"), 0);
    
55. // 添加顶点点集
    
56. AcGePoint3dArray addPoints;
    
57. if (_tcscmp(szKword1, _T("A")) == 0)
    
58. {
    
59.     // 命令标志 ACRX_CMD_USEPICKSET | ACRX_CMD_REDRAW
    
60.     // 对象捕捉系统变量
    
61.     GetVar(_T("osmode"), nOsmode);
    
62.     // 设置对象捕捉系统变量(最近点和中点)
    
63.     SetVar(_T("osmode"), 514);
    
64.     ads_name ss, aname;
    
65.     // 创建一个选择集
    
66.     acedSSAdd(NULL, NULL, ss);
    
67.     // 从 objectID 获取 ads name
    
68.     acdbGetAdsName(aname, entId);
    
69.     // 将选定的实体 adsname 添加到选择集
    
70.     acedSSAdd(aname, ss, ss);
    
71.     // 选择集夹点
    
72.     acedSSSetFirst(ss, NULL);
    
73.     AcGePoint3d ptClick;
    
74.     while (acedGetPoint(0, _T("\n指定添加顶点的位置:\n"), asDblArray(ptClick)) == RTNORM)
    
75.     {
    
76.         // 转换为WCS坐标
    
77.         AcGePoint3d ptWcs;
    
78.         acdbUcs2Wcs(asDblArray(ptClick), asDblArray(ptWcs), Adesk::kFalse);
    
79.         // 获取曲线上离指定点最近的点（在 WCS 上）
    
80.         AcGePoint3d ptNearest;
    
81.         pCurve->getClosestPointTo(ptWcs, ptNearest);
    
82.         double dParam = 0.0;
    
83.         pCurve->getParamAtPoint(ptNearest, dParam);
    
84.         int n = (int)dParam;
    
85.         AcGePoint3d startVertPt, endVertPt;
    
86.         pCurve->getPointAtParam((double)n, startVertPt);
    
87.         pCurve->getPointAtParam((double)n + 1, endVertPt);
    
88.         double dStartBugle = 0.0, dEndBugle = 0.0;
    
89.         pPolyline->getBulgeAt(n, dStartBugle);
    
90.         pPolyline->getBulgeAt(n + 1, dEndBugle);
    
91.         double dInsertBugle = 0.0;
    
92.         if (fabs(dStartBugle) > 1e-6)
    
93.         {
    
94.             // 通过两点和凸度，求圆心点
    
95.             AcGePoint3d ptCenter = GetCenterPoint(startVertPt, endVertPt, dStartBugle);
    
96.             // 两点和圆心点，求凸度
    
97.             dInsertBugle = GetBulge(ptWcs, endVertPt, ptCenter);
    
98.             dStartBugle = GetBulge(startVertPt, ptWcs, ptCenter);
    
99.         }
    
100.         pPolyline->upgradeOpen();
     
101.         pPolyline->setBulgeAt(n, dStartBugle);
     
102.         pPolyline->addVertexAt(n + 1, AcGePoint2d(ptWcs.x, ptWcs.y), dInsertBugle, dWidth, dWidth);
     
103.         pPolyline->downgradeOpen();
     
104.         //acutPrintf(_T("\n起始端点：%.3f,%.3f,%.6f\n"), startvertPt.x, startvertPt.y, dStartBugle);
     
105.         //acutPrintf(_T("\n结束端点：%.3f,%.3f,%.6f\n"), endvertPt.x, endvertPt.y, dEndBugle);
     
106.     }
     
107.     acedSSFree(ss);
     
108.     acedSSSetFirst(NULL, NULL);
     
109.     pCurve->close();
     
110.     pEnt->close();
     
111.     // 还原对象捕捉系统变量
     
112.     SetVar(_T("osmode"), nOsmode);
     
113. }
     
114. else if (_tcscmp(szKword1, _T("B")) == 0)
     
115. {
     
116.     TCHAR szKword2[10];
     
117.     acedInitGet(0, _T("C D E"));
     
118.     int nRe2 = acedGetKword(_T("输入添加顶点的多段线子段类型[直线段(C)/弧段(D)/全部(E)]:"), szKword2);
     
119.     if (nRe2 != RTNORM)
     
120.     {
     
121.         pCurve->close();
     
122.         pEnt->close();
     
123.         return;
     
124.     }
     
125.     double dDist = 0.0;
     
126.     if (!GetReal(_T("\n请输入指定间距"), 1.0, 1, dDist))
     
127.     {
     
128.         pCurve->close();
     
129.         pEnt->close();
     
130.         return;
     
131.     }
     
132.     // 曲线的起始参数和终点参数
     
133.     double startParam, endParam;
     
134.     es = pCurve->getStartParam(startParam);
     
135.     es = pCurve->getEndParam(endParam);
     
136.     for (double i = startParam; i <= endParam; ++i)
     
137.     {
     
138.         // 由参数获取对应的当前点
     
139.         AcGePoint3d ptCurrent;
     
140.         es = pCurve->getPointAtParam(i, ptCurrent);
     
141.         // 获取当前点的凸度值
     
142.         double dBugle = 0.0;
     
143.         pPolyline->getBulgeAt((int)i, dBugle);
     
144.         // 由参数获取的下一个顶点
     
145.         AcGePoint3d ptNext;
     
146.         es = pCurve->getPointAtParam(i + 1, ptNext);
     
147.         // 获取当前点至起点的距离
     
148.         double dLenCurrent = 0.0;
     
149.         pCurve->getDistAtPoint(ptCurrent, dLenCurrent);
     
150.         // 获取下一个顶点至起点的距离，曲线终点距离需要单独用 getDistAtParam 获取
     
151.         double dLenNext = 0.0;
     
152.         if (i == (endParam - 1))
     
153.         {
     
154.             pCurve->getDistAtParam(endParam, dLenNext);
     
155.         }
     
156.         else
     
157.         {
     
158.             pCurve->getDistAtPoint(ptNext, dLenNext);
     
159.         }
     
160.         // 弧段的圆心点
     
161.         AcGePoint3d ptCenter;
     
162.         // 直线段添加顶点选项
     
163.         if (_tcscmp(szKword2, _T("C")) == 0)
     
164.         {
     
165.             // 当前点的凸度值为零，说明当前线段是直线段
     
166.             if (dBugle < 1e-6)
     
167.             {
     
168.                 addPoints.append(ptCurrent);
     
169.                 GetLineSegmentsPoints(dLenCurrent, dLenNext, dDist, pCurve, addPoints);
     
170.             }
     
171.             if (fabs(dBugle) > 1e-6)
     
172.             {
     
173.                 addPoints.append(AcGePoint3d(ptCurrent.x, ptCurrent.y, dBugle));
     
174.             }
     
175.         }
     
176.         // 弧段添加顶点选项
     
177.         else if (_tcscmp(szKword2, _T("D")) == 0)
     
178.         {
     
179.             if (dBugle < 1e-6)
     
180.             {
     
181.                 addPoints.append(ptCurrent);
     
182.             }
     
183.             if (fabs(dBugle) > 1e-6)
     
184.             {
     
185.                 GetArcSegmentsPoints(ptCurrent, ptNext, dBugle, dLenCurrent, dLenNext, dDist, pCurve, addPoints);
     
186.             }
     
187.         }
     
188.         // 直线段和弧段都添加顶点
     
189.         else if (_tcscmp(szKword2, _T("E")) == 0)
     
190.         {
     
191.             // 当前点的凸度值为零，说明当前线段是直线段
     
192.             if (dBugle < 1e-6)
     
193.             {
     
194.                 addPoints.append(ptCurrent);
     
195.                 GetLineSegmentsPoints(dLenCurrent, dLenNext, dDist, pCurve, addPoints);
     
196.             }
     
197.             else if (fabs(dBugle) > 1e-6)
     
198.             {
     
199.                 GetArcSegmentsPoints(ptCurrent, ptNext, dBugle, dLenCurrent, dLenNext, dDist, pCurve, addPoints);
     
200.             }
     
201.         }
     
202.     }
     
203.     if (addPoints.length() > 2)
     
204.     {
     
205. 
     
206.         AcGePoint3d firstPoint = addPoints.at(0);
     
207.         AcGePoint3d lastPoint = addPoints.at(addPoints.length() - 1);
     
208.         if (IsEqual(firstPoint, lastPoint))
     
209.         {
     
210.               addPoints.removeAt(addPoints.length() - 1);
     
211.         }
     
212.         // 创建新的经量多段线
     
213.         int numVertices = addPoints.length();
     
214.         AcDbPolyline *pNewPoly = new AcDbPolyline(numVertices);
     
215.         for (int i = 0; i < numVertices; i++)
     
216.         {
     
217.             AcGePoint3d pt = addPoints.at(i);
     
218.             pNewPoly->addVertexAt(i, AcGePoint2d(pt.x, pt.y), pt.z, dWidth, dWidth);
     
219.         }
     
220.         // 如果原多段线是闭合的，则设置新创建的多段线闭合
     
221.         if (bClosed)
     
222.         {
     
223.             pNewPoly->setClosed(Adesk::kTrue);
     
224.         }
     
225.         pNewPoly->setColorIndex(nColorIndex);
     
226.         AcDbObjectId polyId = PostToModelSpace(pNewPoly);
     
227.         // 删除原曲线
     
228.         pCurve->close();
     
229.         if (acdbOpenObject(pEnt, entId, AcDb::kForWrite) == Acad::eOk)
     
230.         {
     
231.             pEnt->erase();
     
232.             pEnt->close();
     
233.         }
     
234.         acutPrintf(_T("\n添加多段线顶点已完成!\n"));
     
235.     }
     
236. }
     
237. // 还原回显系统变量
     
238. SetVar(_T("cmdecho"), nCmdecho);

// 多段线添加顶点(支持弧段)<br /> Acad::ErrorStatus es = Acad::eOk;<br /> ads_name ename;<br /> AcGePoint3d ptPick;<br /> if (RTNORM != acedEntSel(_T("\n请单选需要添加顶点的经量多段线:\n"), ename, asDblArray(ptPick)))<br /> {<br />     acutPrintf(_T("\n您退出了选择!"));<br />     return;<br /> }<br /> AcDbObjectId entId = AcDbObjectId::kNull;<br /> es = acdbGetObjectId(entId, ename);<br /> if (es != Acad::eOk)<br /> {<br />     acutPrintf(_T("\n获取对象ID失败，错误码: es=%s\n"), acadErrorStatusText(es));<br />     return;<br /> }<br /> AcDbEntity* pEnt = NULL;<br /> es = acdbOpenAcDbEntity(pEnt, entId, AcDb::kForRead);<br /> if (es != Acad::eOk)<br /> {<br />     acutPrintf(_T("\n打开对象失败，错误码: es=%s\n"), acadErrorStatusText(es));<br />     return;<br /> }<br /> // 检查选择对象是否是一条轻量多段线<br /> AcDbPolyline* pPolyline = AcDbPolyline::cast(pEnt);<br /> if (!pPolyline)<br /> {<br />     acutPrintf(_T("\n您选择的对象不是经量多段线\n"));<br />     pEnt->close();<br />     return;<br /> }<br /> // 多段线是否闭合<br /> bool bClosed = pPolyline->isClosed();<br /> // 多段线颜色<br /> int nColorIndex = pPolyline->colorIndex();<br /> // 多段线全局宽度<br /> double dWidth = 0.0;<br /> pPolyline->getConstantWidth(dWidth);<br /> // 强制转换为曲线类<br /> AcDbCurve* pCurve = static_cast<AcDbCurve*>(pPolyline);<br /> // 用户输入<br /> TCHAR szKword1[10];<br /> acedInitGet(0, _T("A B"));<br /> int nRe1 = acedGetKword(_T("输入添加顶点方式选项[拾取点(A)/两节点间按指定距离(B)]:"), szKword1);<br /> if (nRe1 != RTNORM)<br /> {<br />     pCurve->close();<br />     pEnt->close();<br /> }<br /> int nCmdecho = 0, nOsmode = 0;<br /> // 回显系统变量, 0-关闭回显 1-打开回显<br /> GetVar(_T("cmdecho"), nCmdecho);<br /> // 关闭回显<br /> SetVar(_T("cmdecho"), 0);<br /> // 添加顶点点集<br /> AcGePoint3dArray addPoints;<br /> if (_tcscmp(szKword1, _T("A")) == 0)<br /> {<br />     // 命令标志 ACRX_CMD_USEPICKSET | ACRX_CMD_REDRAW<br />     // 对象捕捉系统变量<br />     GetVar(_T("osmode"), nOsmode);<br />     // 设置对象捕捉系统变量(最近点和中点)<br />     SetVar(_T("osmode"), 514);<br />     ads_name ss, aname;<br />     // 创建一个选择集<br />     acedSSAdd(NULL, NULL, ss);<br />     // 从 objectID 获取 ads name<br />     acdbGetAdsName(aname, entId);<br />     // 将选定的实体 adsname 添加到选择集<br />     acedSSAdd(aname, ss, ss);<br />     // 选择集夹点<br />     acedSSSetFirst(ss, NULL);<br />     AcGePoint3d ptClick;<br />     while (acedGetPoint(0, _T("\n指定添加顶点的位置:\n"), asDblArray(ptClick)) == RTNORM)<br />     {<br />         // 转换为WCS坐标<br />         AcGePoint3d ptWcs;<br />         acdbUcs2Wcs(asDblArray(ptClick), asDblArray(ptWcs), Adesk::kFalse);<br />         // 获取曲线上离指定点最近的点（在 WCS 上）<br />         AcGePoint3d ptNearest;<br />         pCurve->getClosestPointTo(ptWcs, ptNearest);<br />         double dParam = 0.0;<br />         pCurve->getParamAtPoint(ptNearest, dParam);<br />         int n = (int)dParam;<br />         AcGePoint3d startVertPt, endVertPt;<br />         pCurve->getPointAtParam((double)n, startVertPt);<br />         pCurve->getPointAtParam((double)n + 1, endVertPt);<br />         double dStartBugle = 0.0, dEndBugle = 0.0;<br />         pPolyline->getBulgeAt(n, dStartBugle);<br />         pPolyline->getBulgeAt(n + 1, dEndBugle);<br />         double dInsertBugle = 0.0;<br />         if (fabs(dStartBugle) > 1e-6)<br />         {<br />             // 通过两点和凸度，求圆心点 <br />             AcGePoint3d ptCenter = GetCenterPoint(startVertPt, endVertPt, dStartBugle);<br />             // 两点和圆心点，求凸度<br />             dInsertBugle = GetBulge(ptWcs, endVertPt, ptCenter);<br />             dStartBugle = GetBulge(startVertPt, ptWcs, ptCenter);<br />         }<br />         pPolyline->upgradeOpen();<br />         pPolyline->setBulgeAt(n, dStartBugle);<br />         pPolyline->addVertexAt(n + 1, AcGePoint2d(ptWcs.x, ptWcs.y), dInsertBugle, dWidth, dWidth);<br />         pPolyline->downgradeOpen();<br />         //acutPrintf(_T("\n起始端点：%.3f,%.3f,%.6f\n"), startvertPt.x, startvertPt.y, dStartBugle);<br />         //acutPrintf(_T("\n结束端点：%.3f,%.3f,%.6f\n"), endvertPt.x, endvertPt.y, dEndBugle);<br />     }<br />     acedSSFree(ss);<br />     acedSSSetFirst(NULL, NULL);<br />     pCurve->close();<br />     pEnt->close();<br />     // 还原对象捕捉系统变量<br />     SetVar(_T("osmode"), nOsmode);<br /> }<br /> else if (_tcscmp(szKword1, _T("B")) == 0)<br /> {<br />     TCHAR szKword2[10];<br />     acedInitGet(0, _T("C D E"));<br />     int nRe2 = acedGetKword(_T("输入添加顶点的多段线子段类型[直线段(C)/弧段(D)/全部(E)]:"), szKword2);<br />     if (nRe2 != RTNORM)<br />     {<br />         pCurve->close();<br />         pEnt->close();<br />         return;<br />     }<br />     double dDist = 0.0;<br />     if (!GetReal(_T("\n请输入指定间距"), 1.0, 1, dDist))<br />     {<br />         pCurve->close();<br />         pEnt->close();<br />         return;<br />     }<br />     // 曲线的起始参数和终点参数<br />     double startParam, endParam;<br />     es = pCurve->getStartParam(startParam);<br />     es = pCurve->getEndParam(endParam);<br />     for (double i = startParam; i <= endParam; ++i)<br />     {<br />         // 由参数获取对应的当前点<br />         AcGePoint3d ptCurrent;<br />         es = pCurve->getPointAtParam(i, ptCurrent);<br />         // 获取当前点的凸度值<br />         double dBugle = 0.0;<br />         pPolyline->getBulgeAt((int)i, dBugle);<br />         // 由参数获取的下一个顶点<br />         AcGePoint3d ptNext;<br />         es = pCurve->getPointAtParam(i + 1, ptNext);<br />         // 获取当前点至起点的距离<br />         double dLenCurrent = 0.0;<br />         pCurve->getDistAtPoint(ptCurrent, dLenCurrent);<br />         // 获取下一个顶点至起点的距离，曲线终点距离需要单独用 getDistAtParam 获取<br />         double dLenNext = 0.0;<br />         if (i == (endParam - 1))<br />         {<br />             pCurve->getDistAtParam(endParam, dLenNext);<br />         }<br />         else<br />         {<br />             pCurve->getDistAtPoint(ptNext, dLenNext);<br />         }<br />         // 弧段的圆心点<br />         AcGePoint3d ptCenter;<br />         // 直线段添加顶点选项<br />         if (_tcscmp(szKword2, _T("C")) == 0)<br />         {<br />             // 当前点的凸度值为零，说明当前线段是直线段<br />             if (dBugle < 1e-6)<br />             {<br />                 addPoints.append(ptCurrent);<br />                 GetLineSegmentsPoints(dLenCurrent, dLenNext, dDist, pCurve, addPoints);<br />             }<br />             if (fabs(dBugle) > 1e-6)<br />             {<br />                 addPoints.append(AcGePoint3d(ptCurrent.x, ptCurrent.y, dBugle));<br />             }<br />         }<br />         // 弧段添加顶点选项<br />         else if (_tcscmp(szKword2, _T("D")) == 0)<br />         {<br />             if (dBugle < 1e-6)<br />             {<br />                 addPoints.append(ptCurrent);<br />             }<br />             if (fabs(dBugle) > 1e-6)<br />             {<br />                 GetArcSegmentsPoints(ptCurrent, ptNext, dBugle, dLenCurrent, dLenNext, dDist, pCurve, addPoints);<br />             }<br />         }<br />         // 直线段和弧段都添加顶点<br />         else if (_tcscmp(szKword2, _T("E")) == 0)<br />         {<br />             // 当前点的凸度值为零，说明当前线段是直线段<br />             if (dBugle < 1e-6)<br />             {<br />                 addPoints.append(ptCurrent);<br />                 GetLineSegmentsPoints(dLenCurrent, dLenNext, dDist, pCurve, addPoints);<br />             }<br />             else if (fabs(dBugle) > 1e-6)<br />             {<br />                 GetArcSegmentsPoints(ptCurrent, ptNext, dBugle, dLenCurrent, dLenNext, dDist, pCurve, addPoints);<br />             }<br />         }<br />     }<br />     if (addPoints.length() > 2)<br />     {<br /> <br />         AcGePoint3d firstPoint = addPoints.at(0);<br />         AcGePoint3d lastPoint = addPoints.at(addPoints.length() - 1);<br />         if (IsEqual(firstPoint, lastPoint))<br />         {<br />               addPoints.removeAt(addPoints.length() - 1);<br />         }<br />         // 创建新的经量多段线<br />         int numVertices = addPoints.length();<br />         AcDbPolyline *pNewPoly = new AcDbPolyline(numVertices);<br />         for (int i = 0; i < numVertices; i++)<br />         {<br />             AcGePoint3d pt = addPoints.at(i);<br />             pNewPoly->addVertexAt(i, AcGePoint2d(pt.x, pt.y), pt.z, dWidth, dWidth);<br />         }<br />         // 如果原多段线是闭合的，则设置新创建的多段线闭合<br />         if (bClosed)<br />         {<br />             pNewPoly->setClosed(Adesk::kTrue);<br />         }<br />         pNewPoly->setColorIndex(nColorIndex);<br />         AcDbObjectId polyId = PostToModelSpace(pNewPoly);<br />         // 删除原曲线<br />         pCurve->close();<br />         if (acdbOpenObject(pEnt, entId, AcDb::kForWrite) == Acad::eOk)<br />         {<br />             pEnt->erase();<br />             pEnt->close();<br />         }<br />         acutPrintf(_T("\n添加多段线顶点已完成!\n"));<br />     }<br /> }<br /> // 还原回显系统变量<br /> SetVar(_T("cmdecho"), nCmdecho);

1. // 两点和圆心点计算凸度方式：多段线删除顶点(支持弧段)
   
2. // 命令标志 ACRX_CMD_USEPICKSET | ACRX_CMD_REDRAW
   
3. 
   
4. Acad::ErrorStatus es = Acad::eOk;
   
5. ads_name ename;
   
6. AcGePoint3d ptPick;
   
7. if (RTNORM != acedEntSel(_T("\n请单选需要添加顶点的经量多段线:\n"), ename, asDblArray(ptPick)))
   
8. {
   
9.     acutPrintf(_T("\n您退出了选择!"));
   
10.     return;
    
11. }
    
12. AcDbObjectId entId = AcDbObjectId::kNull;
    
13. es = acdbGetObjectId(entId, ename);
    
14. if (es != Acad::eOk)
    
15. {
    
16.     acutPrintf(_T("\n获取对象ID失败，错误码: es=%s\n"), acadErrorStatusText(es));
    
17.     return;
    
18. }
    
19. AcDbEntity* pEnt = NULL;
    
20. es = acdbOpenAcDbEntity(pEnt, entId, AcDb::kForRead);
    
21. if (es != Acad::eOk)
    
22. {
    
23.     acutPrintf(_T("\n打开对象失败，错误码: es=%s\n"), acadErrorStatusText(es));
    
24.     return;
    
25. }
    
26. // 检查选择对象是否是一条轻量多段线
    
27. AcDbPolyline* pPolyline = AcDbPolyline::cast(pEnt);
    
28. if (!pPolyline)
    
29. {
    
30.     acutPrintf(_T("\n您选择的对象不是经量多段线\n"));
    
31.     pEnt->close();
    
32.     return;
    
33. }
    
34. // 强制转换为曲线类
    
35. AcDbCurve* pCurve = static_cast<AcDbCurve*>(pPolyline);
    
36. int nCmdecho = 0, nOsmode = 0;
    
37. // 回显系统变量, 0-关闭回显 1-打开回显
    
38. GetVar(_T("cmdecho"), nCmdecho);
    
39. // 关闭回显
    
40. SetVar(_T("cmdecho"), 0);
    
41. // 对象捕捉系统变量
    
42. GetVar(_T("osmode"), nOsmode);
    
43. // 设置对象捕捉系统变量(端点)
    
44. SetVar(_T("osmode"), 1);
    
45. ads_name ss, aname;
    
46. // 创建一个选择集
    
47. acedSSAdd(NULL, NULL, ss);
    
48. // 从 objectID 获取 ads name
    
49. acdbGetAdsName(aname, entId);
    
50. // 将选定的实体 adsname 添加到选择集
    
51. acedSSAdd(aname, ss, ss);
    
52. // 选择集夹点
    
53. acedSSSetFirst(ss, NULL);
    
54. AcGePoint3d ptClick;
    
55. while (acedGetPoint(0, _T("\n指定删除顶点的位置:\n"), asDblArray(ptClick)) == RTNORM)
    
56. {
    
57.     // 转换为WCS坐标
    
58.     AcGePoint3d ptWcs;
    
59.     acdbUcs2Wcs(asDblArray(ptClick), asDblArray(ptWcs), Adesk::kFalse);
    
60.     // 获取曲线上离指定点最近的点（在 WCS 上）
    
61.     AcGePoint3d ptNearest;
    
62.     pCurve->getClosestPointTo(ptWcs, ptNearest);
    
63.     // 由参数获取点
    
64.     double dParam = 0.0;
    
65.     pCurve->getParamAtPoint(ptNearest, dParam);
    
66.     int n = (int)dParam;
    
67.     AcGePoint3d startVertPt, endVertPt;
    
68.     pCurve->getPointAtParam((double)(n - 1), startVertPt);
    
69.     pCurve->getPointAtParam((double)(n + 1), endVertPt);
    
70.     double dStartBugle = 0.0;
    
71.     pPolyline->getBulgeAt(n - 1, dStartBugle);
    
72.     double dNewBugle = 0.0;
    
73.     if (fabs(dStartBugle) > 1e-6)
    
74.     {
    
75.         // 通过两点和凸度，求圆心点
    
76.         AcGePoint3d ptCenter = GetCenterPoint(startVertPt, ptWcs, dStartBugle);
    
77.         // 两点和圆心点，求凸度
    
78.         dNewBugle = GetBulge(startVertPt, endVertPt, ptCenter);
    
79.     }
    
80.     int num = pPolyline->numVerts();
    
81.     if (num > 2)
    
82.     {
    
83.         pPolyline->upgradeOpen();
    
84.         pPolyline->setBulgeAt(n - 1, dNewBugle);
    
85.         pPolyline->removeVertexAt(n);
    
86.         pPolyline->downgradeOpen();
    
87.     }
    
88.     else
    
89.     {
    
90.         acedAlert(_T("多段线顶点个数至少为2点!"));
    
91.     }
    
92. }
    
93. acedSSFree(ss);
    
94. acedSSSetFirst(NULL, NULL);
    
95. pCurve->close();
    
96. pEnt->close();
    
97. // 还原对象捕捉系统变量
    
98. SetVar(_T("osmode"), nOsmode);
    
99. // 还原回显系统变量
    
100. SetVar(_T("cmdecho"), nCmdecho);

// 两点和圆心点计算凸度方式：多段线删除顶点(支持弧段)<br /> // 命令标志 ACRX_CMD_USEPICKSET | ACRX_CMD_REDRAW<br /> <br /> Acad::ErrorStatus es = Acad::eOk;<br /> ads_name ename;<br /> AcGePoint3d ptPick;<br /> if (RTNORM != acedEntSel(_T("\n请单选需要添加顶点的经量多段线:\n"), ename, asDblArray(ptPick)))<br /> {<br />     acutPrintf(_T("\n您退出了选择!"));<br />     return;<br /> }<br /> AcDbObjectId entId = AcDbObjectId::kNull;<br /> es = acdbGetObjectId(entId, ename);<br /> if (es != Acad::eOk)<br /> {<br />     acutPrintf(_T("\n获取对象ID失败，错误码: es=%s\n"), acadErrorStatusText(es));<br />     return;<br /> }<br /> AcDbEntity* pEnt = NULL;<br /> es = acdbOpenAcDbEntity(pEnt, entId, AcDb::kForRead);<br /> if (es != Acad::eOk)<br /> {<br />     acutPrintf(_T("\n打开对象失败，错误码: es=%s\n"), acadErrorStatusText(es));<br />     return;<br /> }<br /> // 检查选择对象是否是一条轻量多段线<br /> AcDbPolyline* pPolyline = AcDbPolyline::cast(pEnt);<br /> if (!pPolyline)<br /> {<br />     acutPrintf(_T("\n您选择的对象不是经量多段线\n"));<br />     pEnt->close();<br />     return;<br /> }<br /> // 强制转换为曲线类<br /> AcDbCurve* pCurve = static_cast<AcDbCurve*>(pPolyline);<br /> int nCmdecho = 0, nOsmode = 0;<br /> // 回显系统变量, 0-关闭回显 1-打开回显<br /> GetVar(_T("cmdecho"), nCmdecho);<br /> // 关闭回显<br /> SetVar(_T("cmdecho"), 0);<br /> // 对象捕捉系统变量<br /> GetVar(_T("osmode"), nOsmode);<br /> // 设置对象捕捉系统变量(端点)<br /> SetVar(_T("osmode"), 1);<br /> ads_name ss, aname;<br /> // 创建一个选择集<br /> acedSSAdd(NULL, NULL, ss);<br /> // 从 objectID 获取 ads name<br /> acdbGetAdsName(aname, entId);<br /> // 将选定的实体 adsname 添加到选择集<br /> acedSSAdd(aname, ss, ss);<br /> // 选择集夹点<br /> acedSSSetFirst(ss, NULL);<br /> AcGePoint3d ptClick;<br /> while (acedGetPoint(0, _T("\n指定删除顶点的位置:\n"), asDblArray(ptClick)) == RTNORM)<br /> {<br />     // 转换为WCS坐标<br />     AcGePoint3d ptWcs;<br />     acdbUcs2Wcs(asDblArray(ptClick), asDblArray(ptWcs), Adesk::kFalse);<br />     // 获取曲线上离指定点最近的点（在 WCS 上）<br />     AcGePoint3d ptNearest;<br />     pCurve->getClosestPointTo(ptWcs, ptNearest);<br />     // 由参数获取点<br />     double dParam = 0.0;<br />     pCurve->getParamAtPoint(ptNearest, dParam);<br />     int n = (int)dParam;<br />     AcGePoint3d startVertPt, endVertPt;<br />     pCurve->getPointAtParam((double)(n - 1), startVertPt);<br />     pCurve->getPointAtParam((double)(n + 1), endVertPt);<br />     double dStartBugle = 0.0;<br />     pPolyline->getBulgeAt(n - 1, dStartBugle);<br />     double dNewBugle = 0.0;<br />     if (fabs(dStartBugle) > 1e-6)<br />     {<br />         // 通过两点和凸度，求圆心点 <br />         AcGePoint3d ptCenter = GetCenterPoint(startVertPt, ptWcs, dStartBugle);<br />         // 两点和圆心点，求凸度<br />         dNewBugle = GetBulge(startVertPt, endVertPt, ptCenter);<br />     }<br />     int num = pPolyline->numVerts();<br />     if (num > 2)<br />     {<br />         pPolyline->upgradeOpen();<br />         pPolyline->setBulgeAt(n - 1, dNewBugle);<br />         pPolyline->removeVertexAt(n);<br />         pPolyline->downgradeOpen();<br />     }<br />     else<br />     {<br />         acedAlert(_T("多段线顶点个数至少为2点!"));<br />     }<br /> }<br /> acedSSFree(ss);<br /> acedSSSetFirst(NULL, NULL);<br /> pCurve->close();<br /> pEnt->close();<br /> // 还原对象捕捉系统变量<br /> SetVar(_T("osmode"), nOsmode);<br /> // 还原回显系统变量<br /> SetVar(_T("cmdecho"), nCmdecho);

游客，如果您要查看本帖隐藏内容请回复

gzxl

运用于房产测绘中加点，逆向减点应用好像不多吧？

Bao_lai

gzxl 发表于 2025-8-10 11:15
运用于房产测绘中加点，逆向减点应用好像不多吧？

点支持点错了
逆向减少点，还是很有用的。

gzxl

逆向减少点感觉原理一样的，就是 AcDbPolyline::removeVertexAt
遇到有弧段的就重新计算重设上一个点的凸度

chenlianghuai

其实我是想看看逆向减点的代码

cable2004

谢谢分享

czb203

感谢大神的分享

gzxl

一楼已经补贴了个删除顶点。

loveu515

谢谢分享，很有用

houyuyu878

看看怎么样