打印AcDbLineTypeTableRecord线型定义引用的SHX文件名

LoveArx

问题：
I need to find a compiled shape file (shx) used by an AcDbLinetypeTableRecord class. How can I determine what shape a linetype uses?

解决方案：
If a line type uses a shx file it will reference an AcDbTextStyleTableRecord. Here is an example that prints the names of the shx file used by the ZIGZAG linetype in acad.lin.

1. static void ASDKwbTEST(void)
   
2. {
   
3.    AcDbDatabase* pDb = curDoc()->database();
   
4.   assert(pDb);
   
5.   //get line type table
   
6.   AcDbLinetypeTable *pLTTable ;
   
7.   acdbOpenObject(pLTTable,pDb->linetypeTableId(),AcDb::kForRead);
   
8. 
   
9.   AcDbLinetypeTableRecord *pLTRecord = NULL ;
   
10. 
    
11.   AcDbObjectId objLTId ;
    
12.   //pLTTable->getAt(_T("TRACKS"), objLTId) ;
    
13.   pLTTable->getAt(_T("ZIGZAG"), objLTId) ;
    
14. 
    
15.   pLTTable->close();
    
16.   Acad::ErrorStatus es = acdbOpenObject((AcDbObject *&)pLTRecord, objLTId, AcDb::kForRead) ;
    
17.   if(es != Acad::eOk)
    
18.   {
    
19.    acutPrintf(_T("ZIGZAG linetype not loaded"));
    
20.         return;
    
21.   }
    
22.            //iterate through the linetype
    
23.   int dashes = pLTRecord->numDashes();
    
24.   for(int c = 0; c < dashes; c++)
    
25.   {
    
26.    int shpnum = pLTRecord->shapeNumberAt(c) ;
    
27.    if(shpnum != 0)
    
28.    {
    
29.    AcDbTextStyleTableRecord *pTSRecord = NULL ;
    
30.    AcDbObjectId objTSId = pLTRecord->shapeStyleAt(c);
    
31.    pLTRecord->close();
    
32. 
    
33.    acdbOpenObject((AcDbObject*&)pTSRecord,objTSId,AcDb::kForRead);
    
34.    assert(pTSRecord);
    
35. 
    
36.    const ACHAR *pName ;
    
37.    Acad::ErrorStatus es = pTSRecord->fileName(pName);
    
38.    pTSRecord->close();
    
39.    acutPrintf(_T("\nName of shape file = %s"),pName);
    
40.    }
    
41.   }
    
42. }
    

static void ASDKwbTEST(void)<br /> {<br />    AcDbDatabase* pDb = curDoc()->database();<br />   assert(pDb);<br />   //get line type table<br />   AcDbLinetypeTable *pLTTable ;<br />   acdbOpenObject(pLTTable,pDb->linetypeTableId(),AcDb::kForRead);<br /> <br />   AcDbLinetypeTableRecord *pLTRecord = NULL ;<br /> <br />   AcDbObjectId objLTId ;<br />   //pLTTable->getAt(_T("TRACKS"), objLTId) ;<br />   pLTTable->getAt(_T("ZIGZAG"), objLTId) ;<br /> <br />   pLTTable->close();<br />   Acad::ErrorStatus es = acdbOpenObject((AcDbObject *&)pLTRecord, objLTId, AcDb::kForRead) ;<br />   if(es != Acad::eOk)<br />   {<br />    acutPrintf(_T("ZIGZAG linetype not loaded"));<br />         return;<br />   }<br />            //iterate through the linetype<br />   int dashes = pLTRecord->numDashes();<br />   for(int c = 0; c < dashes; c++)<br />   {<br />    int shpnum = pLTRecord->shapeNumberAt(c) ;<br />    if(shpnum != 0)<br />    {<br />    AcDbTextStyleTableRecord *pTSRecord = NULL ;<br />    AcDbObjectId objTSId = pLTRecord->shapeStyleAt(c);<br />    pLTRecord->close();<br /> <br />    acdbOpenObject((AcDbObject*&)pTSRecord,objTSId,AcDb::kForRead);<br />    assert(pTSRecord);<br /> <br />    const ACHAR *pName ;<br />    Acad::ErrorStatus es = pTSRecord->fileName(pName);<br />    pTSRecord->close();<br />    acutPrintf(_T("\nName of shape file = %s"),pName);<br />    }<br />   }<br /> }<br />

下面是.net实现代码：

Here is a VB.NET example:

1. 
   
2. <CommandMethod("getShpName")> _
   
3.     Public Sub GetShapeName()
   
4.         Dim LtypeNames As New ArrayList()
   
5.         Dim TextStyleNames As New ArrayList()
   
6.         Dim db As Database = HostApplicationServices.WorkingDatabase()
   
7.         Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
   
8.         Dim tm As Transaction = db.TransactionManager.StartTransaction()
   
9.         Try
   
10. 
    
11.             Dim lineTypTbl As LinetypeTable = tm.GetObject(db.LinetypeTableId, OpenMode.ForRead)
    
12.             Dim ltTblRec As LinetypeTableRecord
    
13.             Dim txtStyleTblRec As TextStyleTableRecord
    
14. 
    
15. 
    
16.             ltTblRec = tm.GetObject(lineTypTbl("ZigZag"), OpenMode.ForRead)
    
17. 
    
18. 
    
19.             'iterate through the linetype
    
20.             Dim intDashes As Integer = ltTblRec.NumDashes
    
21.             Dim i As Integer
    
22.             Dim iShpNum As Integer
    
23. 
    
24. 
    
25.             For i = 0 To intDashes - 1
    
26.                 iShpNum = ltTblRec.ShapeNumberAt(i)
    
27.                 If iShpNum <> 0 Then
    
28.                     Dim txtStylTblRecObjId As ObjectId = ltTblRec.ShapeStyleAt(i)
    
29.                     txtStyleTblRec = tm.GetObject(txtStylTblRecObjId, OpenMode.ForRead)
    
30.                     ed.WriteMessage("Name of  " & txtStyleTblRec.FileName.ToString() & vbCrLf)
    
31.                 End If
    
32.             Next
    
33. 
    
34. 
    
35.             tm.Commit()
    
36.         Catch ex As System.Exception
    
37.             ed.WriteMessage(ex.ToString())
    
38. 
    
39. 
    
40.         Finally
    
41.             tm.Dispose()
    
42.         End Try
    
43.     End Sub
    

<br /> <CommandMethod("getShpName")> _<br />     Public Sub GetShapeName()<br />         Dim LtypeNames As New ArrayList()<br />         Dim TextStyleNames As New ArrayList()<br />         Dim db As Database = HostApplicationServices.WorkingDatabase()<br />         Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor<br />         Dim tm As Transaction = db.TransactionManager.StartTransaction()<br />         Try<br /> <br />             Dim lineTypTbl As LinetypeTable = tm.GetObject(db.LinetypeTableId, OpenMode.ForRead)<br />             Dim ltTblRec As LinetypeTableRecord<br />             Dim txtStyleTblRec As TextStyleTableRecord<br /> <br /> <br />             ltTblRec = tm.GetObject(lineTypTbl("ZigZag"), OpenMode.ForRead)<br /> <br /> <br />             'iterate through the linetype<br />             Dim intDashes As Integer = ltTblRec.NumDashes<br />             Dim i As Integer<br />             Dim iShpNum As Integer<br /> <br /> <br />             For i = 0 To intDashes - 1<br />                 iShpNum = ltTblRec.ShapeNumberAt(i)<br />                 If iShpNum <> 0 Then<br />                     Dim txtStylTblRecObjId As ObjectId = ltTblRec.ShapeStyleAt(i)<br />                     txtStyleTblRec = tm.GetObject(txtStylTblRecObjId, OpenMode.ForRead)<br />                     ed.WriteMessage("Name of  " & txtStyleTblRec.FileName.ToString() & vbCrLf)<br />                 End If<br />             Next<br /> <br /> <br />             tm.Commit()<br />         Catch ex As System.Exception<br />             ed.WriteMessage(ex.ToString())<br /> <br /> <br />         Finally<br />             tm.Dispose()<br />         End Try<br />     End Sub<br />