[每日一码] 打印AcDbLineTypeTableRecord线型定义引用的SHX文件名

admin

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);
9.   AcDbLinetypeTableRecord *pLTRecord = NULL ;
11.   AcDbObjectId objLTId ;
12.   //pLTTable->getAt(采用T("TRACKS"), objLTId) ;
13.   pLTTable->getAt(采用T("ZIGZAG"), objLTId) ;
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();
33.    acdbOpenObject((AcDbObject*&)pTSRecord,objTSId,AcDb::kForRead);
34.    assert(pTSRecord);
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. }

复制代码

admin

Here is a VB.NET example:

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

复制代码