请问大家如何在图纸空间中添加对象

风雪共舞

一般情况下我们用程序生成的对象都在模型空间里显示，我需要在图纸空间的输出一段文字，请教一下，需要怎样才能实现呢？我用的是vb.net，C#的实现方法也可以，谢谢大家！

gulong2001

       /// <summary>
        /// 开始当前事务处理
        /// </summary>
        /// <returns>开始当前事务处理</returns>
        public static Autodesk.AutoCAD.DatabaseServices.Transaction  StartTransaction
        {
            get
            {
                return Application.DocumentManager.MdiActiveDocument.TransactionManager.StartTransaction();
            }
        }
/// <summary>
        /// 图元添加到模型空间
        /// </summary>
        public static ObjectId AddToModelSpace(this Autodesk.AutoCAD.DatabaseServices.Entity ent)
        {
            return ent.AddToSomeSpace("Model");
        }
        /// <summary>
        /// 图元添加到任意空间
        /// </summary>
        public static ObjectId AddToSomeSpace(this Autodesk.AutoCAD.DatabaseServices.Entity ent, string LayoutName)
        {
            ObjectId entId = ObjectId.Null;
            using (Transaction trans = StartTransaction)
            {
                DBDictionary dict = (DBDictionary)trans.GetObject(CurrentDatabase.LayoutDictionaryId, OpenMode.ForRead);//得到所有空间，包括模型及布局
                ObjectId lyid = dict.GetAt(LayoutName);
                Layout ly = (Layout)trans.GetObject(lyid, OpenMode.ForRead);
                BlockTableRecord btr = (BlockTableRecord)trans.GetObject(ly.BlockTableRecordId, OpenMode.ForWrite);
                entId = btr.AppendEntity(ent);
                trans.AddNewlyCreatedDBObject(ent, true);
                trans.Commit();
            }
            return entId;
        }
代码一看就应该明白。可以添加到任意空间，用了扩展方法（你不用就修改下）ent的AddToSomeSpace，参数里面加上空间的名字即可加到对应空间具体可见：http://blog.sina.com.cn/s/blog_69e8fdf00100zv4r.html

guohq

2.     '''
   
3.     ''' 向任意空间添加多个对象
   
4.     '''
   
5.     '''
   
6.     '''
   
7.     '''
   
8.     '''
   
9.     Public Function AppendEntity(ByVal Ents() As Entity, ByVal LayoutName As String) As ObjectId()
   
10.         Dim rtnIDs(Ents.Length - 1) As ObjectId
    
11.         Using Trans As Transaction = DB.TransactionManager.StartTransaction
    
12.             Dim DictLy As DBDictionary = Trans.GetObject(DB.LayoutDictionaryId, Autodesk.AutoCAD.DatabaseServices.OpenMode.ForRead)
    
13.             If DictLy.Contains(LayoutName) = False Then
    
14.                 For I As Integer = 0 To rtnIDs.Length - 1
    
15.                     rtnIDs(I) = ObjectId.Null
    
16.                 Next
    
17.                 Trans.Commit()
    
18.                 Return rtnIDs
    
19.             End If
    
20.             Dim Lyid As ObjectId = DictLy.GetAt(LayoutName)
    
21.             Dim Ly As Layout = Trans.GetObject(Lyid, Autodesk.AutoCAD.DatabaseServices.OpenMode.ForRead)
    
22.             Dim BTR As BlockTableRecord = Trans.GetObject(Ly.BlockTableRecordId, Autodesk.AutoCAD.DatabaseServices.OpenMode.ForWrite)
    
23.             Dim Ent As Entity = Nothing
    
24.             For I As Integer = 0 To Ents.Length - 1
    
25.                 Ent = Ents(I)
    
26.                 rtnIDs(I) = BTR.AppendEntity(Ent)
    
27.                 Trans.AddNewlyCreatedDBObject(Ent, True)
    
28.             Next
    
29.             Trans.Commit()
    
30.         End Using
    
31.         Return rtnIDs
    
32.     End Function

    ''' <br />     ''' 向任意空间添加多个对象<br />     ''' <br />     ''' <br />     ''' <br />     ''' <br />     ''' <br />     Public Function AppendEntity(ByVal Ents() As Entity, ByVal LayoutName As String) As ObjectId()<br />         Dim rtnIDs(Ents.Length - 1) As ObjectId<br />         Using Trans As Transaction = DB.TransactionManager.StartTransaction<br />             Dim DictLy As DBDictionary = Trans.GetObject(DB.LayoutDictionaryId, Autodesk.AutoCAD.DatabaseServices.OpenMode.ForRead)<br />             If DictLy.Contains(LayoutName) = False Then<br />                 For I As Integer = 0 To rtnIDs.Length - 1<br />                     rtnIDs(I) = ObjectId.Null<br />                 Next<br />                 Trans.Commit()<br />                 Return rtnIDs<br />             End If<br />             Dim Lyid As ObjectId = DictLy.GetAt(LayoutName)<br />             Dim Ly As Layout = Trans.GetObject(Lyid, Autodesk.AutoCAD.DatabaseServices.OpenMode.ForRead)<br />             Dim BTR As BlockTableRecord = Trans.GetObject(Ly.BlockTableRecordId, Autodesk.AutoCAD.DatabaseServices.OpenMode.ForWrite)<br />             Dim Ent As Entity = Nothing<br />             For I As Integer = 0 To Ents.Length - 1<br />                 Ent = Ents(I)<br />                 rtnIDs(I) = BTR.AppendEntity(Ent)<br />                 Trans.AddNewlyCreatedDBObject(Ent, True)<br />             Next<br />             Trans.Commit()<br />         End Using<br />         Return rtnIDs<br />     End Function