关于块参照的属性

davehuhudave

有没有办法快速得到某块参照的某属性tag为a的值或者设置值？？我现在是遍览属性定义，这样太慢

davehuhudave

另外还有一个问题一起问吧：Extents3d所有实体AddExtent后，即使我的实体全部在第一象限，但是总是minpoiint是0，0，0，如何正确取范围啊？

雪山飞狐_lzh

第二个问题，我这里是正常的,你的Cad版本？

3.         [CommandMethod("tt5")]
4.         public static void test25()
5.         {
6.             Document doc = Application.DocumentManager.MdiActiveDocument;
7.             Editor ed = doc.Editor;
8.             Database db = doc.Database;
9.             using (var tr = db.TransactionManager.StartTransaction())
10.             {
11.                 Extents3d ext = new Extents3d();
12.                 var btr = tr.GetObject(db.CurrentSpaceId, OpenMode.ForRead) as BlockTableRecord;
13.                 foreach (ObjectId id in btr)
14.                 {
15.                     var ent = tr.GetObject(id, OpenMode.ForRead) as Entity;
16.                     if (ent != null)
17.                     {
18.                         ext.AddExtents(ent.GeometricExtents);
19.                     }
20.                 }
21.                 ed.WriteMessage("\nExtents:{0}", ext);
22.             }
23.         }

        [CommandMethod("tt5")]         public static void test25()         {             Document doc = Application.DocumentManager.MdiActiveDocument;             Editor ed = doc.Editor;             Database db = doc.Database;             using (var tr = db.TransactionManager.StartTransaction())             {                 Extents3d ext = new Extents3d();                 var btr = tr.GetObject(db.CurrentSpaceId, OpenMode.ForRead) as BlockTableRecord;                 foreach (ObjectId id in btr)                 {                     var ent = tr.GetObject(id, OpenMode.ForRead) as Entity;                     if (ent != null)                     {                         ext.AddExtents(ent.GeometricExtents);                     }                 }                 ed.WriteMessage("\nExtents:{0}", ext);             }         }

命令: tt5
Extents(1E+20,1E+20,1E+20),(-1E+20,-1E+20,-1E+20))
命令: l LINE 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令:  LINE 指定第一点:
指定下一点或 [放弃(U)]:
指定下一点或 [放弃(U)]:
命令: tt5
Extents(621.135244985941,418.306146554517,0),(1597.42082141753,1073.70278557906,0))

雪山飞狐_lzh

第一个看不懂了

AttributeReference是有Tag属性的

davehuhudave

第一个问题：一个块参照可以有AttributeCollection，即有很多AttributeReference，如何快速得到tag为a的那个，

davehuhudave

第二个代码：

        Dim ext As New Extents3d

Dim ed As Editor = AcadApp.DocumentManager.MdiActiveDocument.Editor
        Dim db As Database = AcadApp.DocumentManager.MdiActiveDocument.Database
        Using trans As Transaction = db.TransactionManager.StartTransaction()
            Dim btr As BlockTableRecord = trans.GetObject(db.CurrentSpaceId, OpenMode.ForRead)
            For Each id As ObjectId In btr
                Dim ent As Entity = trans.GetObject(id, OpenMode.ForRead, False)
                If Not ent Is Nothing Then
                    ext.AddExtents(ent.GeometricExtents)
                End If
            Next
        End Using

davehuhudave

上面代码调试发现，new的时候minpoiint就是0，0了，那新加的第一象限估计也不可能改变她了

雪山飞狐_lzh

你的Cad版本？

如果确定不行

可以先获取第一个的范围，再依次加入其余的

davehuhudave

2007

davehuhudave

版主关于第二个问题的extend获取方法很好，谢谢，第一个问题版主再帮我看看啥