[ARX程序]：那位高手有从AcDbDictionary读数据的ARX程序吗

yousuika

那位高手有从AcDbDictionary，AcDbXrecord读数据的ARX程序。急用，是一个公司面试题

XDSoft

最初由 yousuika 发布
[B]那位高手有从AcDbDictionary，AcDbXrecord读数据的ARX程序。急用，是一个公司面试题 [/B]

下面代码是XDRX_API里面的函数，列出所有组名。

1. 
   
2. [FONT=courier new]
   
3. int ListGroup()
   
4. {
   
5.         resbuf *rb=ads_getargs();//
   
6.         if (rb!=NULL)
   
7.                 return RTNORM;
   
8.         AcDbDictionary  *pGroupDict;
   
9.         Acad::ErrorStatus es;
   
10.         es=acdbCurDwg()->getGroupDictionary(pGroupDict, AcDb::kForRead); //打开组辞典准备读
    
11.         if (Acad::eOk!=es)
    
12.                 return RTNORM;
    
13.         AcDbObject *pObj;
    
14.        
    
15.         AcDbDictionaryIterator *pIter;
    
16.         pIter = pGroupDict->newIterator(AcRx::kDictSorted);//建立组辞典叠代器，遍历组辞典得到组名
    
17.         if (!pIter) {
    
18.                 pGroupDict->close();
    
19.                 return RTNORM;
    
20.         }
    
21.         CStringArray groupName;
    
22.         CString gname;
    
23.         for (;!pIter->done();pIter->next()){ //根据叠代器循环遍历整个组辞典
    
24.                
    
25.                 if (Acad::eOk != pIter->getObject(pObj, AcDb::kForRead)) { //使用叠代器方法getObject()得到当前位置的对象，打开读
    
26.                         continue;
    
27.                 }
    
28.                 if (!pObj->isKindOf(AcDbGroup::desc())) {
    
29.                         pObj->close(); //关闭对象
    
30.                         continue;// 组辞典里面包含不是组的对象，略掉
    
31.                 }
    
32.                 gname=pIter->name(); //使用叠代器指针对象的name()方法得到组名
    
33.                 groupName.Add(gname);//将组名添加到CStringArray
    
34.                 pObj->close();//对对象操作完毕，关闭对象
    
35.         }
    
36.         pGroupDict->close();//关闭辞典
    
37.         return RTNORM;
    
38. }[/FONT]

复制代码

yousuika

那么,如何读词典中的数据呢

XDSoft

最初由 yousuika 发布
[B]那么,如何读词典中的数据呢 [/B]

组本身就是词典啊，上面的方法也就适合一般词典的操作。

es=acdbCurDwg()->getGroupDictionary(pGroupDict, AcDb::kForRead); //

这行是获得组词典对象，如果你读命名对象词典，那么把这行改成打开命名对象词典对象就可以了。

用AcDbDatabase::getNamedObjectsDictionary得到。可以改成

es=acdbCurDwg()->getNamedObjectsDictionary(pDict, AcDb::kForRead);

剩下下面的代码，就是AcDbDictionary对象提供的方法了。

如果你多看ARX代码，那么会发现，ARX读取对象数据库的程序结构基本是一样的，打开对象读或者写，然后对对象进行操作，最后关闭对象。

举一反三！

yousuika

其实这个题的原意是将一个VBA开发的改用ARX，循环迭代读出几层图的扩张记录(非图形数据).然后用Tree控件和 List控件显示。 源代码大概如下
dim obj as object
int inest = 0
f is a csv file
obj =ThisDrawing.Dictionaries
show-dicObject(inext, obj, f)

sub show-dicObject(inest as int,obj as object, file as object)
  if obj.ObjectName  = "AcDbDictionary" then
     if inest0then file.write obj.Name end if
  endif
  inest = inest + 1
  if obj.ObjectName =  "AcDbXrecord" then
  obj.getXRecordData outtype, outdata
     for i =  outtype.min to outtype.max
        outtype(i) = 1 file.write "文字:" outdata(i)
        outtype(i) = 10 file.write "坐标:" outdata(i)
             长度 -----
      next i
end if
for obj.Count call show-dicObject(inest, obj.Item(ii), file)
end sub

yousuika

再请教，VBA中的ThisDrawing.Dictionaries 是不是有名对象词典。