ObjectARX为lisp提供重复点去除功能，有容差参数

革天明

//Cpp文件中定义静态变量
static double ComparePoint3d_Tol;

1. //定义比较函数
   
2. static bool IsEqual(double a, double b, double tol = 1.0E-7)
   
3.         {
   
4.                 return (fabs(a - b) < tol);
   
5.         }
   
6. 
   
7.         static bool lessPt(const AcGePoint3d& pt1,const AcGePoint3d& pt2)
   
8.         {
   
9.                 if(IsEqual(pt1.x,pt2.x,ComparePoint3d_Tol))
   
10.                 {
    
11.                         if(IsEqual(pt1.y,pt2.y,ComparePoint3d_Tol))
    
12.                         {
    
13.                                 return pt1.z < pt2.z;
    
14.                         }
    
15.                         return pt1.y < pt2.y;
    
16.                 }
    
17.                 return pt1.x < pt2.x;
    
18.         }
    
19. 
    
20.         static bool equalPt(const AcGePoint3d& pt1,const AcGePoint3d& pt2)
    
21.         {
    
22.                 AcGeTol geTol;
    
23.                 geTol.setEqualPoint(ComparePoint3d_Tol);
    
24.                 return pt1.isEqualTo(pt2,geTol);
    
25.         }
    
26. 
    

//定义比较函数<br /> static bool IsEqual(double a, double b, double tol = 1.0E-7)<br />         {<br />                 return (fabs(a - b) < tol);<br />         }<br /> <br />         static bool lessPt(const AcGePoint3d& pt1,const AcGePoint3d& pt2)<br />         {<br />                 if(IsEqual(pt1.x,pt2.x,ComparePoint3d_Tol))<br />                 {<br />                         if(IsEqual(pt1.y,pt2.y,ComparePoint3d_Tol))<br />                         {<br />                                 return pt1.z < pt2.z;<br />                         }<br />                         return pt1.y < pt2.y;<br />                 }<br />                 return pt1.x < pt2.x;<br />         }<br /> <br />         static bool equalPt(const AcGePoint3d& pt1,const AcGePoint3d& pt2)<br />         {<br />                 AcGeTol geTol;<br />                 geTol.setEqualPoint(ComparePoint3d_Tol);<br />                 return pt1.isEqualTo(pt2,geTol);<br />         }<br /> <br />

//函数主体

1. //去除重复的点
   
2.         // ----- ads_delsamept symbol (do not rename)
   
3.         static int ads_delsamept(void)
   
4.         {
   
5.                 //----- Remove the following line if you do not expect any argument for this ADS function
   
6.                 struct resbuf *rb =acedGetArgs();
   
7.                 ComparePoint3d_Tol = 0.001;
   
8.                 std::vector<AcGePoint3d> pts;
   
9.                 if (rb== NULL)
   
10.                 {
    
11.                         return acedRetNil();
    
12.                 }
    
13.                 else
    
14.                 {
    
15.                         if(rb->restype!=RTLB)
    
16.                         {
    
17.                                 return acedRetNil();
    
18.                         }
    
19.                         else
    
20.                         {
    
21.                                 rb = rb->rbnext;
    
22.                                 while(true)
    
23.                                 {
    
24.                                         if (rb->restype == RTPOINT)
    
25.                                         {
    
26.                                                 pts.push_back(AcGePoint3d(rb->resval.rpoint[0],rb->resval.rpoint[1],0));
    
27.                                                 rb = rb->rbnext;
    
28.                                         }
    
29.                                         else if (rb->restype == RT3DPOINT)
    
30.                                         {
    
31.                                                 pts.push_back(AcGePoint3d(rb->resval.rpoint[0],rb->resval.rpoint[1],rb->resval.rpoint[2]));
    
32.                                                 rb = rb->rbnext;
    
33.                                         }
    
34.                                         else if (rb->restype == 10)
    
35.                                         {
    
36.                                                 pts.push_back(AcGePoint3d(rb->resval.rpoint[0],rb->resval.rpoint[1],rb->resval.rpoint[2]));
    
37.                                                 rb = rb->rbnext;
    
38.                                         }
    
39.                                         else if(rb->restype==RTLE)
    
40.                                         {
    
41.                                                 break;
    
42.                                         }
    
43.                                         else
    
44.                                         {
    
45.                                                 return acedRetNil();
    
46.                                         }
    
47.                                 }
    
48.                                 if (rb->rbnext == NULL)
    
49.                                 {
    
50.                                         return acedRetNil();
    
51.                                 }
    
52. 
    
53.                                 rb = rb->rbnext;
    
54.                                 if (rb->restype == RTSHORT)
    
55.                                 {
    
56.                                         ComparePoint3d_Tol = rb->resval.rint;
    
57.                                 }
    
58.                                 else if (rb->restype == RTREAL)
    
59.                                 {
    
60.                                         ComparePoint3d_Tol = rb->resval.rreal;
    
61.                                 }
    
62.                                 else if (rb->restype == RTLONG)
    
63.                                 {
    
64.                                         ComparePoint3d_Tol = rb->resval.rlong;
    
65.                                 }
    
66.                                 if (rb->rbnext != NULL)
    
67.                                 {
    
68.                                         return acedRetNil();
    
69.                                 }
    
70.                         }
    
71.                        
    
72.                 }
    
73. 
    
74.                 std::sort(pts.begin(),pts.end(),lessPt);
    
75.                 pts.erase(std::unique(pts.begin(),pts.end(),equalPt),pts.end());
    
76.                 struct resbuf *bufList=NULL;
    
77.                 for (int i = 0 ;i < pts.size(); i++)
    
78.                 {
    
79.                         if (bufList == NULL)
    
80.                                 bufList=acutBuildList(RT3DPOINT,pts.at(i),RTNONE);
    
81.                         else
    
82.                                 bufList=acutBuildList(RTRESBUF,bufList,RT3DPOINT,pts.at(i),RTNONE);
    
83. 
    
84.                 }
    
85.                 return acedRetList(bufList);
    
86.         }
    

//去除重复的点<br />         // ----- ads_delsamept symbol (do not rename)<br />         static int ads_delsamept(void)<br />         {<br />                 //----- Remove the following line if you do not expect any argument for this ADS function<br />                 struct resbuf *rb =acedGetArgs();<br />                 ComparePoint3d_Tol = 0.001;<br />                 std::vector<AcGePoint3d> pts;<br />                 if (rb== NULL)<br />                 {<br />                         return acedRetNil();<br />                 }<br />                 else<br />                 {<br />                         if(rb->restype!=RTLB)<br />                         {<br />                                 return acedRetNil();<br />                         }<br />                         else<br />                         {<br />                                 rb = rb->rbnext; <br />                                 while(true)<br />                                 {<br />                                         if (rb->restype == RTPOINT)<br />                                         {<br />                                                 pts.push_back(AcGePoint3d(rb->resval.rpoint[0],rb->resval.rpoint[1],0));<br />                                                 rb = rb->rbnext;<br />                                         }<br />                                         else if (rb->restype == RT3DPOINT)<br />                                         {<br />                                                 pts.push_back(AcGePoint3d(rb->resval.rpoint[0],rb->resval.rpoint[1],rb->resval.rpoint[2]));<br />                                                 rb = rb->rbnext;<br />                                         }<br />                                         else if (rb->restype == 10)<br />                                         {<br />                                                 pts.push_back(AcGePoint3d(rb->resval.rpoint[0],rb->resval.rpoint[1],rb->resval.rpoint[2]));<br />                                                 rb = rb->rbnext;<br />                                         }<br />                                         else if(rb->restype==RTLE)<br />                                         {<br />                                                 break;<br />                                         }<br />                                         else<br />                                         {<br />                                                 return acedRetNil();<br />                                         }<br />                                 }<br />                                 if (rb->rbnext == NULL)<br />                                 {<br />                                         return acedRetNil();<br />                                 }<br /> <br />                                 rb = rb->rbnext;<br />                                 if (rb->restype == RTSHORT)<br />                                 {<br />                                         ComparePoint3d_Tol = rb->resval.rint;<br />                                 }<br />                                 else if (rb->restype == RTREAL)<br />                                 {<br />                                         ComparePoint3d_Tol = rb->resval.rreal;<br />                                 }<br />                                 else if (rb->restype == RTLONG)<br />                                 {<br />                                         ComparePoint3d_Tol = rb->resval.rlong;<br />                                 }<br />                                 if (rb->rbnext != NULL)<br />                                 {<br />                                         return acedRetNil();<br />                                 }<br />                         }<br />                         <br />                 }<br /> <br />                 std::sort(pts.begin(),pts.end(),lessPt);<br />                 pts.erase(std::unique(pts.begin(),pts.end(),equalPt),pts.end());<br />                 struct resbuf *bufList=NULL;<br />                 for (int i = 0 ;i < pts.size(); i++)<br />                 {<br />                         if (bufList == NULL)<br />                                 bufList=acutBuildList(RT3DPOINT,pts.at(i),RTNONE);<br />                         else<br />                                 bufList=acutBuildList(RTRESBUF,bufList,RT3DPOINT,pts.at(i),RTNONE);<br /> <br />                 }<br />                 return acedRetList(bufList);<br />         }<br />

(delsamept (list (list 0 0) (list 10 10) (list 0 10)) 0.001)
(delsamept (list (list 0 0) (list 10 10) (list 0 10)) 0.11)
(delsamept (list (list 0 0) (list 0 0.002) (list 0 10)) 0.11)
(delsamept (list (list 0 0)  (list 0 10) (list 0 0.002)) 0.11)


(delsamept (list (list 0 0)  (list 0 10) T ) 0.11)


(delsamept (list (list 0 0 0 0)  (list 0 10) (list 0 0.002)) 0.11)
(delsamept (list (list 0 0 0)  (list 0 10 0) (list 0 0.002 0)) 0.11)

((0.0 0.0 0.0) (10.0 10.0 0.0) (0.0 10.0 0.0))
((0.0 0.0 0.0) (10.0 10.0 0.0) (0.0 10.0 0.0))
((0.0 0.002 0.0) (0.0 10.0 0.0))
((0.0 0.002 0.0) (0.0 10.0 0.0))
nil
nil
((0.0 0.002 0.0) (0.0 10.0 0.0))
((0.0 0.002 0.0) (0.0 10.0 0.0))
_$

老仓测绘上班记

谢谢老大分享，学习了

hjting

谢谢分享，赞

cable2004

谢谢分享，赞,  arx缺乏活力！

革天明

cable2004 发表于 2020-10-24 18:47
谢谢分享，赞,  arx缺乏活力！

是因为通用性差，环境不像lisp那样是自带的

Lisphk

革天明 发表于 2020-10-24 22:07
是因为通用性差，环境不像lisp那样是自带的

楼主，效率怎么样？

革天明

Lisphk 发表于 2020-10-26 20:29
楼主，效率怎么样？

使用了std::sort的排序和std::unique，应该没有比这个效率更高的了

yangjian001

做一个热心并受欢迎的人