[ARX程序]：请问如何得到当前文件所外部引用的文件列表呢

EMeiMonkey

用ARX函数可以吗？

rave

最初由 EMeiMonkey 发布
用ARX函数可以吗？

问得好，值得思考,加6分

arx可以得到外部引用的文件名列表

步骤：
1. 遍历所有的AcDbBlockTableRecord;
2. AcDbBlockTableRecord::xrefDatabase 可判断并得到外部引用的AcDbDatabase;
3. AcDbDatabase::getFilename 可获取文件名；
4. 整理，去掉重复的文件名。

XDSoft

给你贴个函数，获得一个XREF的路径名，遍历块表的就不提供了，你按照RAVE的方法遍历块表判断是否是XREF，然后用这个函数就能获得路径名了。

1. 
   
2. [FONT=courier new]
   
3. Acad::ErrorStatus getXrefPath( AcDbObjectId pId, char *&pName )
   
4. {
   
5.     AcDbObject *pObj,*pRecObj;
   
6.     AcDbBlockReference *pBlkRef;
   
7.     AcDbObjectId pBTRId;
   
8.     AcDbBlockTableRecord* pRec;
   
9.     Acad::ErrorStatus es;
   
10. 
    
11.     //    open entiry
    
12.     es = acdbOpenObject(pObj, pId, AcDb::kForRead);
    
13.     assert(es == Acad::eOk);
    
14. 
    
15.     if(pObj->isKindOf(AcDbBlockReference::desc()))    // Is it a block
    
16. reference?
    
17.     {
    
18.         pBlkRef = AcDbBlockReference::cast(pObj);
    
19.         assert( pBlkRef );
    
20. 
    
21.         // get ID of the block table record that pObj referenced.
    
22.         pBTRId = pBlkRef->blockTableRecord();
    
23.         pObj->close();
    
24. 
    
25.         // open the block table record that pObj referenced.
    
26.         es = acdbOpenObject(pRecObj, pBTRId, AcDb::kForRead);
    
27.         assert(es == Acad::eOk);
    
28. 
    
29.         if(pRecObj->isKindOf(AcDbBlockTableRecord::desc())) // Is it a
    
30. block table record?
    
31.         {
    
32.             pRec = AcDbBlockTableRecord::cast(pRecObj);
    
33.             assert( pRec );
    
34. 
    
35.             if( pRec->isFromExternalReference() )    // Is it a XREF?
    
36.             {
    
37. // The following lines apply to all conditions, retaining path information or
    
38. not
    
39.                 AcDbDatabase *pXrefDb;
    
40.                 pXrefDb = pRec->xrefDatabase(true);    //
    
41. notice it is true, not false.
    
42.                 assert( pXrefDb );
    
43.                 pXrefDb->getFilename(pName);
    
44. 
    
45. //    The following line just apply to XREF retaining the path information
    
46. when inserted
    
47. //                pRec->pathName(pName);    // get path name if
    
48. retained when insert
    
49. 
    
50.                 if(pName)
    
51.                     es = Acad::eOk;
    
52.                 else
    
53.                     es = Acad::eInvalidInput;
    
54.             }
    
55.             else
    
56.                 es = Acad::eInvalidInput;
    
57.         }
    
58.         else
    
59.             es = Acad::eInvalidInput;
    
60.     }
    
61.     else
    
62.     {
    
63.         pObj->close();
    
64.         es = Acad::eInvalidInput;
    
65.     }
    
66. 
    
67.     pRecObj->close();    // close XREF object
    
68.     return es;
    
69. }
    
70. [/FONT]

复制代码

EMeiMonkey

谢谢二位斑竹！回头我试一下。

EMeiMonkey

XDSoft:：你的getXrefPath函数真管用。有没有对应的通过自动化接口来得到这些信息的呢？