确定父对象 （.NET）

图形对象被追加到对象，例如模型或图纸空间。通过对象引用表示模型和图纸空间的块。如果要在当前空间而不是特定空间中工作，则可以从具有属性的当前数据库中获取当前空间的 ObjectId。BlockTableRecordBlockTableCurrentSpaceId

模型和图纸空间的块表记录的 ObjectId 可以使用命名空间下类的属性或方法从对象中检索。BlockTableGetBlockModelSpaceIdGetBlockPaperSpaceIdSymbolUtilityServicesDatabaseServices

访问模型空间、图纸空间或当前空间

下面的示例演示如何访问与模型空间、图纸空间或当前空间关联的块表记录。引用块表记录后，将向块表记录添加新行。

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.EditorInput
 
<CommandMethod("AccessSpace")> _
Public Sub AccessSpace()
    '' Get the current document and database
    Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
    Dim acCurDb As Database = acDoc.Database

    '' Start a transaction
    Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()

        '' Open the Block table for read
        Dim acBlkTbl As BlockTable
        acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead)

        '' Open the Block table record for read
        Dim acBlkTblRec As BlockTableRecord

        '' Request which table record to open
        Dim pKeyOpts As PromptKeywordOptions = New PromptKeywordOptions("")
        pKeyOpts.Message = vbLf & "Enter which space to create the line in "
        pKeyOpts.Keywords.Add("Model")
        pKeyOpts.Keywords.Add("Paper")
        pKeyOpts.Keywords.Add("Current")
        pKeyOpts.AllowNone = False
        pKeyOpts.AppendKeywordsToMessage = True

        Dim pKeyRes As PromptResult = acDoc.Editor.GetKeywords(pKeyOpts)

        If pKeyRes.StringResult = "Model" Then
            '' Get the ObjectID for Model space from the Block table
            acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _
                                            OpenMode.ForWrite)
        ElseIf pKeyRes.StringResult = "Paper" Then
            '' Get the ObjectID for Paper space from the Block table
            acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.PaperSpace), _
                                            OpenMode.ForWrite)
        Else
            '' Get the ObjectID for the current space from the database
            acBlkTblRec = acTrans.GetObject(acCurDb.CurrentSpaceId, _
                                            OpenMode.ForWrite)
        End If

        '' Create a line that starts at 2,5 and ends at 10,7
        Using acLine As Line = New Line(New Point3d(2, 5, 0), _
                                        New Point3d(10, 7, 0))

            '' Add the new object to the block table record and the transaction
            acBlkTblRec.AppendEntity(acLine)
            acTrans.AddNewlyCreatedDBObject(acLine, True)
        End Using

        '' Save the new line to the database
        acTrans.Commit()
    End Using
End Sub

using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Geometry;
using Autodesk.AutoCAD.EditorInput;
 
[CommandMethod("AccessSpace")]
public static void AccessSpace()
{
    // Get the current document and database
    Document acDoc = Application.DocumentManager.MdiActiveDocument;
    Database acCurDb = acDoc.Database;

    // Start a transaction
    using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction())
    {
        // Open the Block table for read
        BlockTable acBlkTbl;
        acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId,
                                        OpenMode.ForRead) as BlockTable;

        // Open the Block table record for read
        BlockTableRecord acBlkTblRec;

        // Request which table record to open
        PromptKeywordOptions pKeyOpts = new PromptKeywordOptions("");
        pKeyOpts.Message = "\nEnter which space to create the line in ";
        pKeyOpts.Keywords.Add("Model");
        pKeyOpts.Keywords.Add("Paper");
        pKeyOpts.Keywords.Add("Current");
        pKeyOpts.AllowNone = false;
        pKeyOpts.AppendKeywordsToMessage = true;

        PromptResult pKeyRes = acDoc.Editor.GetKeywords(pKeyOpts);

        if (pKeyRes.StringResult == "Model")
        {
            // Get the ObjectID for Model space from the Block table
            acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],
                                            OpenMode.ForWrite) as BlockTableRecord;
        }
        else if (pKeyRes.StringResult == "Paper")
        {
            // Get the ObjectID for Paper space from the Block table
            acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.PaperSpace],
                                            OpenMode.ForWrite) as BlockTableRecord;
        }
        else
        {
            // Get the ObjectID for the current space from the database
            acBlkTblRec = acTrans.GetObject(acCurDb.CurrentSpaceId,
                                            OpenMode.ForWrite) as BlockTableRecord;
        }

        // Create a line that starts at 2,5 and ends at 10,7
        using (Line acLine = new Line(new Point3d(2, 5, 0),
                                new Point3d(10, 7, 0)))
        {
            // Add the new object to the block table record and the transaction
            acBlkTblRec.AppendEntity(acLine);
            acTrans.AddNewlyCreatedDBObject(acLine, true);
        }

        // Save the new line to the database
        acTrans.Commit();
    }
}

Public Sub AccessSpace()
    ' Define the valid keywords
    Dim keywordList As String
    keywordList = "Model Paper Current"
 
    ' Call InitializeUserInput to setup the keywords
    ThisDrawing.Utility.InitializeUserInput 1, keywordList
 
    ' Get the user input
    Dim retVal As Variant
    retVal = ThisDrawing.Utility.GetKeyword(vbLf & _
                                   "Enter which space to create the line in " & _
                                   "[Model/Paper/Current]: ")
 
    ' Get the entered keyword
    Dim strVal As String
    strVal = ThisDrawing.Utility.GetInput
 
    Dim acSpaceObj As Object
 
    If strVal = "Model" Or _
      (strVal = "Current" And ThisDrawing.ActiveSpace = acModelSpace) Then
        '' Get the Model space object
        Set acSpaceObj = ThisDrawing.ModelSpace
    Else
        '' Get the Paper space object
        Set acSpaceObj = ThisDrawing.PaperSpace
    End If
 
    '' Create a line that starts at 2,5 and ends at 10,7
    Dim acLine As AcadLine
    Dim dPtStr(0 To 2) As Double
    dPtStr(0) = 2: dPtStr(1) = 5: dPtStr(2) = 0#
 
    Dim dPtEnd(0 To 2) As Double
    dPtEnd(0) = 10: dPtEnd(1) = 7: dPtEnd(2) = 0#
 
    Set acLine = acSpaceObj.AddLine(dPtStr, dPtEnd)
End Sub