练习 Lisp定义测试查询属性

csharp

1.   
   
2.       [LispFunction("dumpproperties")]
   
3.         public void DumpProperties(ResultBuffer rb)
   
4.         {
   
5.             Document document = Application.DocumentManager.MdiActiveDocument;
   
6.             Editor ed = document.Editor;
   
7.             Transaction transaction = document.TransactionManager.StartTransaction();
   
8.             TypedValue[] values = rb.AsArray();
   
9.             var obj = transaction.GetObject((ObjectId) values[0].Value, OpenMode.ForRead);
   
10.             var properties = TypeDescriptor.GetProperties(obj.AcadObject).Cast<PropertyDescriptor>().OrderBy(prop => prop.Name);
    
11.             foreach (var property in properties)
    
12.             {
    
13.                 var propertyObject = property.GetValue(obj.AcadObject);
    
14.                 ed .WriteMessage( "\n  {0} = {1}", property.Name, propertyObject);
    
15.             }
    
16.         }
    

  <br />       [LispFunction("dumpproperties")]<br />         public void DumpProperties(ResultBuffer rb)<br />         {<br />             Document document = Application.DocumentManager.MdiActiveDocument;<br />             Editor ed = document.Editor;<br />             Transaction transaction = document.TransactionManager.StartTransaction();<br />             TypedValue[] values = rb.AsArray();<br />             var obj = transaction.GetObject((ObjectId) values[0].Value, OpenMode.ForRead);<br />             var properties = TypeDescriptor.GetProperties(obj.AcadObject).Cast<PropertyDescriptor>().OrderBy(prop => prop.Name);<br />             foreach (var property in properties)<br />             {<br />                 var propertyObject = property.GetValue(obj.AcadObject);<br />                 ed .WriteMessage( "\n  {0} = {1}", property.Name, propertyObject);<br />             }<br />         }<br />

绘制一个 Line

命令: (dumpproperties (entlast))

  Angle = 0.435887138861478
  Application =
  color = Color Bylayer.
  Database = System.__ComObject
  Delta = System.Double[]
  Document = System.__ComObject
  EndPoint = System.Double[]
  EntityName = AcDbLine
  EntityTransparency = ByLayer
  EntityType = 19
  Handle = 242
  HasExtensionDictionary = False
  Hyperlinks = System.__ComObject
  Layer = 0
  Length = 1840.55428060375
  Linetype = ByLayer
  LinetypeScale = 1
  Lineweight = acLnWtByLayer
  Material = ByLayer
  Normal = System.Double[]
  ObjectID = 2129671760
  ObjectName = AcDbLine
  OwnerID = 2129665272
  PlotStyleName = ByLayer
  StartPoint = System.Double[]
  Thickness = 0
  TrueColor = System.__ComObject
  Visible = True

csharp

If you want to get ALL items from Database, then use it:

1. // Get all items from drawing Database. All ObjectIds will grouped by types;
   
2. Database db = Application.DocumentManager.MdiActiveDocument.Database;           
   
3. Dictionary<string, List<ObjectId>> dict = new Dictionary<string, List<ObjectId>>();
   
4. using (Transaction t = db.TransactionManager.StartTransaction()) {
   
5.     for (long i = db.BlockTableId.Handle.Value; i < db.Handseed.Value; i++) {
   
6.         ObjectId id = ObjectId.Null;
   
7.         Handle h = new Handle(i);
   
8.         if (db.TryGetObjectId(h, out id)) {
   
9.             string type = id.ObjectClass.Name;
   
10.             if (!dict.Keys.Contains(type))
    
11.                 dict.Add(type, new List<ObjectId>());
    
12.             dict[type].Add(id);
    
13.         }
    
14.     }
    
15.     t.Commit();
    
16. }
    

// Get all items from drawing Database. All ObjectIds will grouped by types;<br /> Database db = Application.DocumentManager.MdiActiveDocument.Database;           <br /> Dictionary<string, List<ObjectId>> dict = new Dictionary<string, List<ObjectId>>();<br /> using (Transaction t = db.TransactionManager.StartTransaction()) {<br />     for (long i = db.BlockTableId.Handle.Value; i < db.Handseed.Value; i++) {<br />         ObjectId id = ObjectId.Null;<br />         Handle h = new Handle(i);<br />         if (db.TryGetObjectId(h, out id)) {<br />             string type = id.ObjectClass.Name;<br />             if (!dict.Keys.Contains(type))<br />                 dict.Add(type, new List<ObjectId>());<br />             dict[type].Add(id);<br />         }<br />     }<br />     t.Commit();<br /> }<br />