ddp00 发表于 2004-4-7 15:58:00

[ARX]高手指点！

程序调试通过，可是却无法执行，请高手帮忙查错，谢谢先！：）
目的是想通过四个点求其他点的坐标，保存成数组，再赋给点，用CAD命令连接。
       double cord;
       ads_point pt;
        x1=pt1,y1=pt1,z1=0.0,
               x2=pt2,y2=pt2,z2=0.0,
               x3=pt3,y3=pt3,z3=0.0,
               x4=pt4,y4=pt4,z4=0.0;
               
       
       
               a1=x2-x1;       b1=y2-y1;       deltx1=a1/n;       delty1=b1/m;
               a2=x3-x4;       b2=y3-y4;       deltx2=a2/n;       delty2=b2/m;
               for(i=0;i<(m+1)*(n+1);i++)
               {cord=0.0;}               //初始化z坐标
               for(i=0;i<=n;i++)       //i为列循环
               {
                               xx1=x1+i*deltx1;       yy1=y1+i*delty1;
                               xx2=x4+i*deltx2;       yy2=y4+i*delty2;
                               deltx3=(xx2-xx1)/m; delty3=(yy2-yy1)/m;
                       
                               cord=xx1;                       cord=yy1;
                               cord[(m+1)*(i+1)]=xx2;cord[(m+1)*(i+1)]=yy2;
       
                               
       
                                       for(j=1;j<=m-1;j++)               //j为行循环
               {xx3=xx1+j*deltx3;                       yy3=yy1+j*delty3;
               k++;
               cord=xx3;       cord=yy3;
               
               k=k+2;}
               }
       
               for(i=1;i<=1000;i++)
               {pt=cord;       pt=cord;
               }
               
               
               acedCommand(RTSTR,"3dface",
                                                               RTPOINT,pt,//Firsr point
                                       RTPOINT,pt,//Second point
                                       RTPOINT,pt,//Third point
                                       RTPOINT,pt,//Forth point
                                       RTSTR,"",
                                       RTNONE);
页: [1]
查看完整版本: [ARX]高手指点！