[VBA程序]：求助!如何对封闭的PL线顶点自动逆时针编号?

cqsnowfox

1楼楼主说：[编程申请]：求助!如何对封闭的PL线顶点自动逆时针编号?   9pt 10pt 11pt 12pt 13pt 15pt  

求助!如何对封闭的PL线顶点自动逆时针编号?要求程序能自动判断起点,起点1号点必须为西北角方向?最好能提供VBA程序,或者提供算法思路!!!1
谢谢!!!!!!

chman

西北，数学上来说就是x坐标最小，y坐标最大的时候，读写pl然后当此条件符合的时候记录为一，不就可以了嘛
此时记录为y1
如果不行，那就得仔细看看书了
如果不知道怎么读pl数据，看我得帖子，至于如何判断，我只做过VC＋＋的。你参考
oid algo()
{
        px[0]=PX[0];
        py[0]=PY[0];//第一个点是端点
        n=1;
        for(int i=2;i<N;i++)
        {
                double current=(PY-PY[i-1])*(PX[i-1]-PX[i-2])-(PY[i-1]-PY[i-2])*(PX-PX[i-1]);
                if(fabs(current)>1e-6)//计算i点到i-1点的这条线是否和前一条线重合,若不是则加入输出数组
                {
                        px[n]=PX[i-1];
                        py[n]=PY[i-1];
                        n++;
                }
        }
}

void main(int argc, char **argv)
{
        ifstream myinf("data.txt",ios::in|ios::nocreate);
        if(myinf.fail())
        {
                cerr<<"Error opening the data file."<<endl;
                return;
        }//输入文件为data.txt,文件内容是点的坐标数组
        while(!myinf.eof())
        {
                myinf>>PX[N]>>PY[N];
                N++;
        }
        algo();
        ofstream out("print.txt",ios::out);//输出文件为print.txt,文件内容是顶点坐标数组
        for(int j=0;j<n;j++)
        {
                out<<setprecision(7)<<px[j]<<'\t'<<py[j]<<endl;
        }
}
上面得程序，让你知道怎么找到你需要得点，然后后继步骤怎么做。你要自学了

gyl

可以参考这里
http://www.xdcad.net/forum/showt ... y=&pagenumber=1

3xxx

我也需要这样的程序，简单的将pl线编号就可以了，编号标在节点旁边。编号起点自己选。

storyst

我需要用这个生成界址点,看看再说