[求助]：[ObjectARX求助]如何查找一个实体并高亮显示而且要在CAD2000中

hotgirl

在ObjectARX开发中如何查找一个实体并高亮显示而且要在AutoCAD2000中导航到该实体并以适当大小比例显示出来,同时要求该实体以某种颜色不停闪动(blink).
我想这是各位高手必然要做的,希望给我一些代码,祝愿晓东cad论坛越办越好,
成为中国第一CAD论坛!也祝愿所有论坛成员马年幸福一帆风顺.

XDSoft

最初由 hotgirl 发布
[B]在ObjectARX开发中如何查找一个实体并高亮显示而且要在AutoCAD2000中导航到该实体并以适当大小比例显示出来,同时要求该实体以某种颜色不停闪动(blink).
我想这是各位高手必然要做的,希望给我一些代码,祝愿晓东cad论... [/B]

用AcDbEntity::highlight()方法,亮显一个实体,导航可以先得到实体的包围盒,用AcDbEntity::getGeomExtents(),然后根据包围盒,你可以用我在论坛提供的ARX的ZOOM方法把实体ZOOM到窗口内.至于闪烁,CAD中不太好实现,当然也有方法,我想这个没有太大必要,亮显实体就足够了.

最后,谢谢你的鼓励,希望大家能共同努力,把网站和论坛办成最好,希望这里是每一个志同道合的朋友的家.希望大家常回家看看.

masterhe

最初由 hotgirl 发布
[B]在ObjectARX开发中如何查找一个实体并高亮显示而且要在AutoCAD2000中导航到该实体并以适当大小比例显示出来,同时要求该实体以某种颜色不停闪动(blink).
我想这是各位高手必然要做的,希望给我一些代码,祝愿晓东cad论... [/B]

1. 
   
2. void FlashEntity(const AcDbObjectId        &ridObj)
   
3. {
   
4.         CArxEntity ent;
   
5.         if(!ent.OpenEntity(ridObj))
   
6.                 return;
   
7.         acutPrintf(_T("\n三秒后自动结束显示或按 Esc 立即结束显示...\n"));
   
8.         DWORD dwCount=::GetTickCount();
   
9.         while(!acedUsrBrk())
   
10.         {
    
11.                 ent->highlight();
    
12.                 ::acedUpdateDisplay();
    
13.                 ent->unhighlight();
    
14.                 ::acedUpdateDisplay();
    
15.                 if(::GetTickCount()-dwCount>=3000)
    
16.                         break;
    
17.         }
    
18. }
    

复制代码

如果想动态闪烁那就搞个线程吧

hotgirl

多谢!请广州德赛的CAD开发工程师们解答闪烁问题!我看到过广州德赛实现的实体闪烁!
广州德赛在CAD开发利用方面藏龙卧虎,请千万赐教!

另外,XDsoft,我只知道实体handle,及ID,用户不用选点,用户通过oracle数据库选中一个实体记录(有实体handle),
你的zoom方法如何实现?

XDSoft

最初由 hotgirl 发布
[B]多谢!请广州德赛的CAD开发工程师们解答闪烁问题!我看到过广州德赛实现的实体闪烁!
广州德赛在CAD开发利用方面藏龙卧虎,请千万赐教!

另外,XDsoft,我只知道实体handle,及ID,用户不用选点,用户通过oracle数据库选中... [/B]

既然知道了实体的AcDbObjectId,那么就可以用:
AcDbOpenObject打开这个对象,然后使用对象的AcDbEntity::getGeomExtents()得到实体的包围盒AcDbExtents类对象

virtual Acad::ErrorStatus
getGeomExtents(

    AcDbExtents& extents) const;

extents        Output the entity's extents

然后用 AcDbExtents::maxPoint
       AcDbExtents::minPoint
得到左下点和右上点.

根据这两个点,就可以用ZOOM方法了.

binbin

我用下面的代码写,但FAILED(RESULT)总数失败,为什么?
                IAcadApplication *pAcad;
.
.
.                                       
VARIANT minPoint;
                                        VARIANT maxPoint;
                                        HRESULT RESULT = AcAxGetBoundingBox(objId,&minPoint,&maxPoint);
                                        if (FAILED(RESULT)) return;
                                       
                                        pAcad->ZoomWindow(minPoint,maxPoint);


如果是自定义的实体,必须重载getGeomExtents才可以成功返回!
应该还有别的办法,否则自定义实体的程序卸载后,自定义实体还可显示它的box.