第一个c#练习的程序，遍历块获取块内图元的外框

455383153

2.          [CommandMethod("PickDemo")]
   
3.          public void PickDemo()
   
4.          {
   
5.              Database db = HostApplicationServices.WorkingDatabase;
   
6.              Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
   
7.              PromptEntityResult per = ed.GetEntity("选择块");
   
8.              if (per.Status == PromptStatus.OK)
   
9.              {
   
10.                  using (Transaction trans = db.TransactionManager.StartTransaction())
    
11.                  {
    
12.                      ResultBuffer result = new ResultBuffer();
    
13.                      BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForRead);
    
14.                      BlockReference br = (BlockReference)per.ObjectId.GetObject(OpenMode.ForRead);
    
15.                      string blkname = br.Name;
    
16.                      ed.WriteMessage("\nBlock Name: (" + blkname + ").");
    
17.                      ObjectId blockRecordId = bt[blkname];
    
18.                      BlockTableRecord blockRecord = (BlockTableRecord)blockRecordId.GetObject(OpenMode.ForRead);
    
19.                      Extents3d tmpExtents3D = new Extents3d();
    
20.                      foreach (ObjectId entID in blockRecord)
    
21.                      {
    
22.                          Entity entity = (Entity)trans.GetObject(entID, OpenMode.ForRead);
    
23.                          Extents3d tmp = entity.GeometricExtents;
    
24.                          tmpExtents3D.AddExtents(tmp);
    
25.                      
    
26.                      
    
27.                      }
    
28.                      Point3d maxpt = tmpExtents3D.MaxPoint;
    
29.                      Point3d minpt = tmpExtents3D.MinPoint;
    
30.                      result.Add(new TypedValue((int)LispDataType.Point3d, minpt));
    
31.                      result.Add(new TypedValue((int)LispDataType.Point3d, maxpt));
    
32.                      trans.Commit();
    
33.                     //return result;
    
34.                  }
    
35.              }
    
36.          }

         [CommandMethod("PickDemo")]<br />          public void PickDemo()<br />          {<br />              Database db = HostApplicationServices.WorkingDatabase;<br />              Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;<br />              PromptEntityResult per = ed.GetEntity("选择块");<br />              if (per.Status == PromptStatus.OK)<br />              {<br />                  using (Transaction trans = db.TransactionManager.StartTransaction())<br />                  {<br />                      ResultBuffer result = new ResultBuffer();<br />                      BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForRead);<br />                      BlockReference br = (BlockReference)per.ObjectId.GetObject(OpenMode.ForRead);<br />                      string blkname = br.Name;<br />                      ed.WriteMessage("\nBlock Name: (" + blkname + ").");<br />                      ObjectId blockRecordId = bt[blkname];<br />                      BlockTableRecord blockRecord = (BlockTableRecord)blockRecordId.GetObject(OpenMode.ForRead);<br />                      Extents3d tmpExtents3D = new Extents3d();<br />                      foreach (ObjectId entID in blockRecord)<br />                      {<br />                          Entity entity = (Entity)trans.GetObject(entID, OpenMode.ForRead);<br />                          Extents3d tmp = entity.GeometricExtents;<br />                          tmpExtents3D.AddExtents(tmp);<br />                      <br />                      <br />                      }<br />                      Point3d maxpt = tmpExtents3D.MaxPoint;<br />                      Point3d minpt = tmpExtents3D.MinPoint;<br />                      result.Add(new TypedValue((int)LispDataType.Point3d, minpt));<br />                      result.Add(new TypedValue((int)LispDataType.Point3d, maxpt));<br />                      trans.Commit();<br />                     //return result;<br />                  }<br />              }<br />          }

tzfcn

再用LISP写一个就更好了。

dfd1716

看不懂，有点复杂！

455383153

tzfcn 发表于 2020-2-18 10:36
再用LISP写一个就更好了。

lisp版本的  修改块内颜色   c#才看了一天书，不熟，lisp熟悉一点写着方便，但对比了代码，遍历的方法是一样的。
(defun c:doit( / blkname activedocument obj e i)
(setq activedocument (vla-get-activedocument (vlax-get-Acad-Object)))
(vla-StartUndoMark activedocument)
(setq blkname (Vlax-Get (Vlax-Ename->Vla-Object (car (entsel))) 'EffectiveName ))
(setq obj(vla-item (vla-get-blocks activedocument) blkname))
(setq i 0)
(vlax-for e obj
  (if (vlax-write-enabled-p e)
        (vl-catch-all-apply
        (function(lambda()
   (vla-put-color e 1)
  )
           )
       )
     )
   (setq i (+ 1 i))
   (acet-ui-status (strcat "共修改了块内" (rtos i 2 0) "个对象")  "修改状态")
    )
  (vla-regen activedocument acallviewports)
  (vla-EndUndoMark activedocument)
  (vlax-release-object activedocument)
  (princ)
)

木瓜_dP7jf

看不懂，有点复杂！

xiongdi6k

st788796

BlockRecord 的包围盒和 BlockReference的 包围盒不是一回事

CAD56390

进入了撞到