求CAD下VBA代码

馨馨

有一些坐标值，怎样通过比较求出X和Y坐标的最大最小值，谢谢，求大神们帮忙

馨馨

有没有大神啊

gzxl

可用快速排序

馨馨

gzxl 发表于 2016-4-21 21:34
可用快速排序

能具体点说吗，如果有代码最好了，谢谢

gzxl

馨馨 发表于 2016-4-21 21:56
能具体点说吗，如果有代码最好了，谢谢

按X最小或最大排序，用快速排序法(经典高效)
然后取第一个元素或最后一个元素就是想要的
VBA不太懂了，百度吧

这个是arx的

1. void SortPointsOnX(AcGePoint2dArray &points, int left, int right)
   
2. {
   
3.     AcGePoint2d firtPt, lastPt;
   
4.     int rtemp, ltemp;
   
5.     ltemp = left;
   
6.     rtemp = right;
   
7.     firtPt = points[(left + right) / 2]; // 分界值
   
8.     while (ltemp < rtemp)
   
9.     {
   
10.         while (points[ltemp].x < firtPt.x)
    
11.         {
    
12.             ++ltemp;
    
13.         }
    
14.         while (points[rtemp].x > firtPt.x)
    
15.         {
    
16.             --rtemp;
    
17.         }
    
18.         if (ltemp <= rtemp)
    
19.         {
    
20.             lastPt = points[ltemp];
    
21.             points[ltemp] = points[rtemp];
    
22.             points[rtemp] = lastPt;
    
23.             --rtemp;
    
24.             ++ltemp;
    
25.         }
    
26.     }
    
27.     if (ltemp == rtemp)
    
28.     {
    
29.         ltemp++;
    
30.     }
    
31.     if (left < rtemp)
    
32.     {
    
33.         SortPointsOnX(points, left, ltemp - 1); // 递归调用
    
34.     }
    
35.     if (ltemp < right)
    
36.     {
    
37.         SortPointsOnX(points, rtemp + 1, right);
    
38.     }
    
39. }

复制代码

硕王

gzxl 发表于 2016-4-21 21:34
可用快速排序

大哥  您那有横断面自动提取的lsp源码吗 能提供一份吗   麻烦了  有的话 请发到1141235788@qq.com