如何得到某块参照中的某子实体

davehuhudave

块参照视乎有一个函数叫GetSubEntity，不知道怎么用，或者哪位高手还能知道在已有的块参照中获取某个子实体，比如说，构成他的 某个圆，我想获取这个圆的一些属性，比如说坐标等

雪山飞狐_lzh

这个在块定义里找

然后坐标转换到块参照

davehuhudave

给段example代码看看啥版主

davehuhudave

我用的vb.net

雪山飞狐_lzh

VB.Net写不习惯了，自己转换一下吧
其实代码并不复杂

3.         [CommandMethod("tt5")]
4.         public static void test25()
5.         {
6.             Document doc = Application.DocumentManager.MdiActiveDocument;
7.             Editor ed = doc.Editor;
8.             PromptEntityOptions opts = new PromptEntityOptions("\n请选择一个块:");
9.             opts.SetRejectMessage("只能选择块参照");
10.             opts.AddAllowedClass(typeof(BlockReference), false);
11.             PromptEntityResult res = ed.GetEntity(opts);
12.             if (res.Status != PromptStatus.OK)
13.                 return;
14.             Database db = doc.Database;
15.             using (Transaction tr = db.TransactionManager.StartTransaction())
16.             {
17.                 BlockReference bref = tr.GetObject(res.ObjectId, OpenMode.ForRead) as BlockReference;
18.                 BlockTableRecord btr = tr.GetObject(bref.BlockTableRecord, OpenMode.ForRead) as BlockTableRecord;
19.                 foreach (ObjectId id in btr)
20.                 {
21.                     Circle cir = tr.GetObject(id, OpenMode.ForRead) as Circle;
22.                     if (cir != null)
23.                     {
24.                         Point3d pt = cir.Center.TransformBy(bref.BlockTransform);
25.                         ed.DrawPoint(pt.Convert2d(new Plane()), 1, 1, 8);
26.                     }
27.                 }
28.             }
29.         }

        [CommandMethod("tt5")]         public static void test25()         {             Document doc = Application.DocumentManager.MdiActiveDocument;             Editor ed = doc.Editor;             PromptEntityOptions opts = new PromptEntityOptions("\n请选择一个块:");             opts.SetRejectMessage("只能选择块参照");             opts.AddAllowedClass(typeof(BlockReference), false);             PromptEntityResult res = ed.GetEntity(opts);             if (res.Status != PromptStatus.OK)                 return;             Database db = doc.Database;             using (Transaction tr = db.TransactionManager.StartTransaction())             {                 BlockReference bref = tr.GetObject(res.ObjectId, OpenMode.ForRead) as BlockReference;                 BlockTableRecord btr = tr.GetObject(bref.BlockTableRecord, OpenMode.ForRead) as BlockTableRecord;                 foreach (ObjectId id in btr)                 {                     Circle cir = tr.GetObject(id, OpenMode.ForRead) as Circle;                     if (cir != null)                     {                         Point3d pt = cir.Center.TransformBy(bref.BlockTransform);                         ed.DrawPoint(pt.Convert2d(new Plane()), 1, 1, 8);                     }                 }             }         }

扩展函数DrawPoint

2.         public static void DrawVectors(this Editor editor, IEnumerable<Point2d> pnts, short colorIndex)
3.         {
4.             var itor = pnts.GetEnumerator();
5.             if (!itor.MoveNext())
6.                 return;
7.             TypedValue tvFirst = new TypedValue((int)LispDataType.Point2d, itor.Current);
8.             ResultBuffer rb =
9.                 new ResultBuffer
10.                 {
11.                     new TypedValue((int)LispDataType.Int16, colorIndex),
12.                     tvFirst,
13.                 };
14.             while (itor.MoveNext())
15.             {
16.                 var tv = new TypedValue((int)LispDataType.Point2d, itor.Current);
17.                 rb.Add(tv);
18.                 rb.Add(tv);
19.             }
20.             rb.Add(tvFirst);
21.             editor.DrawVectors(rb, Matrix3d.Identity);
22.         }
23.         public static void DrawPoint(this Editor editor, Point2d pnt, short colorIndex, double radius, int numEdges)
24.         {
25.             Vector2d vec = Vector2d.XAxis * radius;
26.             double angle = Math.PI * 2 / numEdges;
27.             List<Point2d> pnts = new List<Point2d>();
28.             for (int i = 0; i < numEdges; i++)
29.             {
30.                 pnts.Add(pnt + vec.RotateBy(angle * i));
31.             }
32.             editor.DrawVectors(pnts, colorIndex);
33.         }

复制代码

davehuhudave

nice ,very good,thanks

illuminiti

雪山飞狐_lzh 发表于 2010-7-23 13:53
VB.Net写不习惯了，自己转换一下吧
其实代码并不复杂

请问Point3d pt = cir.Center.TransformBy(bref.BlockTransform);这句中的bref.BlockTransform在vb中怎么得到？ActiveX帮助中块参照里没有类似的属性，这个值该怎么得到？望指教 谢谢