[编程申请]：如何用arx编程取得方格网的四个角点坐标

yangzj

再次请教各位高手：如何用arx编程方法，在直线方格网任意选一点后取得方格网的四个角点坐标？

cssanhui

利用CAD本身的功能BOUNDARY,在已知方格网内部点pt后，用BOUNDARY获得封闭pline线，再用entlast函数得到实体，然后求点，就不是难事了。当然，记得删除生成的pline线。

yangzj

用BOUNDARY命令是可以求的方格网的四个角点坐标，但用ARX编程方法我就真的不知道该如何做。

cssanhui

ads_point pt;//方格网内部点
ads_name ent;//生成的实体

acedCommand(RTSTR,"BOUNDARY",RT3DPOINT,pt,RTSTR,"",0);//我未测试，大概可用
acdbEntLast(ent);

yangzj

用ADSRX编程也可以，我去试一试。感谢朋友指点！

gshengli

试试这个,选择封闭区域内的一点，会列出各点坐标和封闭区域面积
还要原码吗？
命令是zb

i_want_2

我想要源码！

gshengli

源代码

playsea

我费了十牛三虎之力才找到的贴子，却下载不了，gshengli ，你能找那个源码发给我看看好吗，我正缺它，谢谢了先

blue

你的arx文件用什么方法才能打开?

hantaojian

我也看不了，能不能谁吧源码直接帖出来！拜托了，我好想看源码

stoneball

顺便问一下,怎么表示以下为代码?
[\code]
{
        // TODO: Implement the command
        ads_point point;       
        int ret;
        bool ok=false;       
        while(1)
        {
                ok=false;
                {                               
                        while(1)
                        {
                                ret = acedGetPoint(NULL,"\n输入封闭区域内的一点坐标:",point);
                                if(ret == RTNORM)
                                        break;
                                else if(ret == RTCAN )
                                        return;
                        }
                }
               
                ret= acedCommand(RTSTR, "boundary",RTPOINT ,point, RTSTR, "",0) ;
               
               
                if(ret == RTNORM )
                {
                        ok=true;
                        break;
                }
                else
                        acutPrintf("\nSomething is wrong! I am sorry\n");
        }

       

        if(!ok)
        {
                acutPrintf("\nSomething is wrong! I am sorry\n");
                return ;
        }

        acutPrintf("\n你选的点坐标为 x = %.3f y = %.3f",point[0],point[1]);
       
        ads_name  ent;
        acdbEntLast(ent);
        AcDbObjectId eId;
        acdbGetObjectId(eId, ent);
                               
        AcDbEntity * pEnt = NULL;
        acdbOpenObject(pEnt, eId, AcDb::kForWrite);
       
        if(pEnt == NULL)
        {
                acutPrintf("\nSomething is wrong! I am sorry\n");
        }
        else
        {
                if (pEnt->isKindOf(AcDbPolyline::desc()) )
                {
                        AcDbPolyline * pPline = (AcDbPolyline*) pEnt;
                       
                        int numVerts = pPline->numVerts();
                       
                        AcGePoint3d pt;
                        for(int k=0;k<numVerts;k++)
                        {                               
                                pPline->getPointAt(k,pt) ;                                       
                                acutPrintf("\n节点 %d x = %.3f y = %.3f z = %.3f",k+1,pt[0],pt[1],pt[2]);
                        }
                        double area=0;
                        pPline->getArea(area);
                        acutPrintf("\n面积为 %.3f\n",area);
                }
                else
                {
                        acutPrintf("\nSomething is wrong! I am sorry\n");
                }
        }
        pEnt->erase();

        pEnt->close();
}
[code\]