请问如何获取当前图的所有图层?

sclkkk

Database db = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Database;
          Transaction trans = db.TransactionManager.StartTransaction();
          try
          {
              BlockTable bt = (BlockTable)(trans.GetObject(db.BlockTableId, OpenMode.ForWrite));
              BlockTableRecord btr = (BlockTableRecord)trans.GetObject(bt[BlockTableRecord.ModelSpace], OpenMode.ForWrite);
              //Create the block reference...use the return from CreateEmployeeDefinition directly!
              BlockReference br = new BlockReference(pStart, CreatePolePedDefinition(pCellName));
              br.LayerId = CreateLayer(pLayerName);
              ObjectId newBtrId = btr.AppendEntity(br); //Add the reference to ModelSpace
              trans.AddNewlyCreatedDBObject(br, true); //Let the transaction know about it
              DBObject obj = trans.GetObject(newBtrId, OpenMode.ForWrite);
              XDataDispose.AddRegAppTableRecord("xlentComms");
              ResultBuffer rb = new ResultBuffer(
                  new TypedValue(1001, "xlentComms"),
                  new TypedValue(1000, pMslink + "," + pEntityNo)
                );
             obj.XData = rb;
             rb.Dispose();
             trans.Commit(); // Commit is always required to indicate success.
             Editor ed = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor;
             //db.SaveAs(ed.Document.Name, null);
             db.SaveAs(ed.Document.Name, true, DwgVersion.Current, db.SecurityParameters);
          }

现在要获取当前图中所有pLayerName

guohq

2. Function GetLayers() As String()
   
3.       
   
4.         Using Trans As Transaction = DB.TransactionManager.StartTransaction
   
5.             Dim LayT As LayerTable = Trans.GetObject(DB.LayerTableId, OpenMode.ForRead)
   
6.             Dim ID As ObjectId, LayTR As LayerTableRecord, Lays As New List(Of String)
   
7.             For Each ID In LayT
   
8.                 LayTR = Trans.GetObject(ID, OpenMode.ForRead)
   
9.                 Lays.Add(LayTR.Name)
   
10.             Next
    
11.             Trans.Commit()
    
12.             GetLayers = Lays.ToArray
    
13.         End Using
    
14.     End Function

Function GetLayers() As String()<br />        <br />         Using Trans As Transaction = DB.TransactionManager.StartTransaction<br />             Dim LayT As LayerTable = Trans.GetObject(DB.LayerTableId, OpenMode.ForRead)<br />             Dim ID As ObjectId, LayTR As LayerTableRecord, Lays As New List(Of String)<br />             For Each ID In LayT<br />                 LayTR = Trans.GetObject(ID, OpenMode.ForRead)<br />                 Lays.Add(LayTR.Name)<br />             Next<br />             Trans.Commit()<br />             GetLayers = Lays.ToArray<br />         End Using<br />     End Function

chengw

             Database db = HostApplicationServices.WorkingDatabase;
             List<LayerTableRecord> list = new List<LayerTableRecord>();
             using (Transaction trans = db.TransactionManager.StartTransaction())
             {
                 LayerTable layertable = (LayerTable)trans.GetObject(db.LayerTableId,
OpenMode.ForWrite);  //得到所有的层表
                 if (layertable != null)
                 {
                     foreach (ObjectId id in layertable)   //遍历层表
                     {
                          LayerTableRecord tr=trans.GetObject(id,OpenMode.ForRead)
                     as LayerTableRecord;   //获得层表记录
                          list.Add(tr);   //将所有的图层放入一个集合中
                     }
                  
                 }
          }     
     希望能帮到你！！！

sclkkk

谢谢!