. NET块例程

      [CommandMethod("AppendAttributeToBlock","appatt", CommandFlags.Session | CommandFlags.Modal | CommandFlags.UsePickSet | CommandFlags.Redraw)]
        public static void AppendAttributeTest()
           {          
            Document doc = acadApp.DocumentManager.MdiActiveDocument;
            Editor ed = doc.Editor;
            Database db = doc.Database;
            try
            {
                using (doc.LockDocument())
                {
                    using (Transaction tr = db.TransactionManager.StartTransaction())
                    {
                        BlockTable bt = tr.GetObject(db.BlockTableId, OpenMode.ForRead) as BlockTable;
                        BlockTableRecord currSp = tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite) as BlockTableRecord;
                       
                        PromptNestedEntityOptions pno =
                         new PromptNestedEntityOptions("\nSelect source attribute to append new attribute below this one >>");
                        PromptNestedEntityResult nres =
                                                ed.GetNestedEntity(pno);
                        if (nres.Status != PromptStatus.OK)
                            return;
                        ObjectId id = nres.ObjectId;
                        Entity ent = (Entity)tr.GetObject(id, OpenMode.ForRead);
                        Point3d pnt = nres.PickedPoint;
                        ObjectId owId = ent.OwnerId;
                        AttributeReference attref = null;
                        if (id.ObjectClass.IsDerivedFrom(RXClass.GetClass(typeof(AttributeReference))))
                        {
                            attref = tr.GetObject(id,OpenMode.ForWrite) as AttributeReference;
                        }
                     
                        BlockTableRecord btr = null;
                        BlockReference bref = null;
                        if (owId.ObjectClass.IsDerivedFrom(RXClass.GetClass(typeof(BlockReference))))
                        {
                            bref = tr.GetObject(owId,OpenMode.ForWrite) as BlockReference;
                            if (bref.IsDynamicBlock)
                            {
                                btr = tr.GetObject(bref.DynamicBlockTableRecord,OpenMode.ForRead) as BlockTableRecord;
                            }
                            else
                            {
                                btr = tr.GetObject(bref.BlockTableRecord,OpenMode.ForRead) as BlockTableRecord;
                            }
                        }
                        
                        Point3d insPt = attref.Position.TransformBy(bref.BlockTransform);
                        btr.UpgradeOpen();
                        ObjectIdCollection bids = new ObjectIdCollection();
                        AttributeDefinition def = null;
                        foreach (ObjectId defid in btr)
                        {
                            if (defid.ObjectClass.IsDerivedFrom(RXClass.GetClass(typeof(AttributeDefinition))))
                            {
                                def = tr.GetObject(defid, OpenMode.ForRead) as AttributeDefinition;
                                if (def.Tag == attref.Tag)
                                {
                                    def.UpgradeOpen();
                                    bids.Add(defid);
                                    break;
                                }
                            }
                        }
                     
                        IdMapping map = new IdMapping();
                        db.DeepCloneObjects(bids, btr.ObjectId, map,true);
                        ObjectIdCollection coll = new ObjectIdCollection();
                        AttributeDefinition attDef = null;
                        foreach (IdPair pair in map)
                        {
                            if (pair.IsPrimary)
                            {
                                Entity oent = (Entity)tr.GetObject(pair.Value, OpenMode.ForWrite);
                                if (oent != null)
                                {
                                    if (pair.Value.ObjectClass.IsDerivedFrom(RXClass.GetClass(typeof(AttributeDefinition))))
                                    {
                                         attDef = oent as AttributeDefinition;
                                        attDef.UpgradeOpen();
                                        attDef.SetPropertiesFrom(def as Entity);
                                        // add other properties from source attribute definition to suit here:
                                        attDef.Justify = def.Justify;
                                        attDef.Position = btr.Origin.Add(
                                            new Vector3d(attDef.Position.X, attDef.Position.Y - attDef.Height * 1.25, attDef.Position.Z)).TransformBy(Matrix3d.Identity
                                            );
                                        attDef.Tag = "NEW_TAG";
                                        attDef.TextString = "New Prompt";
                                        attDef.TextString = "New Textstring";
                                        coll.Add(oent.ObjectId);
                                    }
                                }
                            }
                        }
                        btr.AssumeOwnershipOf(coll);
                        btr.DowngradeOpen();
                        attDef.Dispose();//optional
                        bref.RecordGraphicsModified(true);
                        tr.TransactionManager.QueueForGraphicsFlush();
                        doc.TransactionManager.FlushGraphics();//optional
                        ed.UpdateScreen();
                        tr.Commit();
                    }
                }
            }
               
            catch (System.Exception ex)
            {
                ed.WriteMessage(ex.Message + "\n" + ex.StackTrace);
            }
            finally
            {
                acadApp.ShowAlertDialog("Call command "ATTSYNC" manually");
            }
        }

    '/**
    '* Pedir al usuario donde y con que angulo, para insertar el bloque indicado en el plano abierto en ese momento.
    '*/
    Public Shared Sub InsertarBloque(ByVal archivoDWG As String)
        Dim acadDoc As Document
        acadDoc = Application.DocumentManager.MdiActiveDocument
        Using acadLockDoc As DocumentLock = acadDoc.LockDocument()
            Dim dbTemporal As Database
            dbTemporal = New Database(buildDefaultDrawing:=False, noDocument:=True)
            dbTemporal.ReadDwgFile(fileName:=archivoDWG, _
                                    fileSharing:=IO.FileShare.Read, _
                                    allowCPConversion:=False, _
                                    password:="")
            Dim nombreBloque As String
            nombreBloque = IO.Path.GetFileNameWithoutExtension(archivoDWG)
            SymbolUtilityServices.ValidateSymbolName(name:=nombreBloque, allowVerticalBar:=False)
            Dim acadDB As Database
            acadDB = acadDoc.Database
            Dim idBloque As ObjectId
            idBloque = acadDB.Insert(blockName:=nombreBloque, dataBase:=dbTemporal, preserveSourceDatabase:=False)
            Dim bloqueAInsertar As BlockReference
            bloqueAInsertar = New BlockReference(position:=Point3d.Origin, BlockTableRecord:=idBloque)
            Dim acadEditor As Editor
            acadEditor = acadDoc.Editor
            bloqueAInsertar.TransformBy(acadEditor.CurrentUserCoordinateSystem)
            Dim unaPlantilla As PlantillaBloque_PedirPuntoDeInserccion
            unaPlantilla = New PlantillaBloque_PedirPuntoDeInserccion(bloqueAInsertar)
            Dim resultadoPedirPunto As PromptResult
            resultadoPedirPunto = acadEditor.Drag(unaPlantilla)
            If resultadoPedirPunto.Status.Equals(PromptStatus.OK) Then
                Dim otraPlantilla As PlantillaBloque_PedirAnguloDeRotacion
                otraPlantilla = New PlantillaBloque_PedirAnguloDeRotacion(bloqueAInsertar, _
                                                                          anguloBase:=bloqueAInsertar.Rotation, _
                                                                          sistemaCoordenadas:=acadEditor.CurrentUserCoordinateSystem.CoordinateSystem3d, _
                                                                          puntoBase:=unaPlantilla.getPuntoDeInsercion)
                Dim resultadoPedirAngulo As PromptResult
                resultadoPedirAngulo = acadEditor.Drag(otraPlantilla)
                If resultadoPedirAngulo.Status.Equals(PromptStatus.OK) Then
                    otraPlantilla.ActualizarRotacion()
                Else
                    bloqueAInsertar.Rotation = 0.0
                End If
                Using acadTrans As Transaction = acadDoc.TransactionManager.StartTransaction
                    Dim espacioActual As BlockTableRecord
                    espacioActual = CType(acadTrans.GetObject(acadDoc.Database.CurrentSpaceId, OpenMode.ForWrite), BlockTableRecord)
                    espacioActual.AppendEntity(entity:=bloqueAInsertar)
                    acadTrans.AddNewlyCreatedDBObject(obj:=bloqueAInsertar, add:=True)
                    Dim bloque As BlockTableRecord
                    bloque = CType(acadTrans.GetObject(idBloque, OpenMode.ForWrite), BlockTableRecord)
                    If bloque.HasAttributeDefinitions Then
                        Dim idElemento As ObjectId
                        For Each idElemento In bloque
                            Dim elemento As DBObject
                            elemento = acadTrans.GetObject(idElemento, OpenMode.ForRead)
                            If elemento.GetType.Name.Equals("AttributeDefinition") Then
                                Dim definicionDeAtributo As AttributeDefinition
                                definicionDeAtributo = CType(acadTrans.GetObject(idElemento, OpenMode.ForRead), AttributeDefinition)
                                Dim referenciaAAtributo As AttributeReference
                                referenciaAAtributo = New AttributeReference
                                referenciaAAtributo.SetAttributeFromBlock(definicionDeAtributo, bloqueAInsertar.BlockTransform)
                                bloqueAInsertar.AttributeCollection.AppendAttribute(referenciaAAtributo)
                                acadTrans.AddNewlyCreatedDBObject(obj:=referenciaAAtributo, add:=True)
                            End If
                        Next
                   End If
                   acadTrans.Commit()
                End Using '//acadTrans
            End If
        End Using '//acadLockDoc
        Application.UpdateScreen()
    End Sub

Friend Class PlantillaBloque_PedirPuntoDeInserccion 
Inherits Autodesk.Autocad.EditorInput.EntityJig
    Dim mPuntoDeInsercion, mPuntoActivo As Point3d
    Public Sub New(bloqueAInsertar as BlockReference)
        MyBase.New(bloqueAInsertar)
        mPuntoDeInsercion = bloqueAInsertar.Position
    End Sub
    Protected Overrides Function Sampler(ByVal prompts As Autodesk.AutoCAD.EditorInput.JigPrompts) As Autodesk.AutoCAD.EditorInput.SamplerStatus
        Dim opciones As New JigPromptPointOptions
        opciones.UserInputControls = UserInputControls.Accept3dCoordinates or _
                                     UserInputControls.NoZeroResponseAccepted or _
                                     UserInputControls.NoNegativeResponseAccepted
        opciones.Message = environment.NewLine & "Punto de insercion: "
        Dim resultado As PromptPointResult
        resultado = prompts.AcquirePoint(opciones)
        If mPuntoActivo = resultado.Value Then
            Return SamplerStatus.NoChange
        Else
            mPuntoActivo = resultado.Value
            Return SamplerStatus.OK
        End If
    End Function
    Protected Overrides Function Update() As Boolean
        mPuntoDeInsercion = mPuntoActivo
        Try
            CType(Entity, BlockReference).Position = mPuntoDeInsercion
        Catch ex As Exception
            Return False
        End Try
        Return True
    End Function
    Public Function getEntity As Entity
        Return Entity
    End Function
    Public Function getPuntoDeInsercion As Point3d
        Return mPuntoDeInsercion
    End Function
    
End Class

Friend Class PlantillaBloque_PedirAnguloDeRotacion 
Inherits Autodesk.Autocad.EditorInput.EntityJig
    Dim mEntidadARotar As BlockReference
    Dim mAnguloBase, mVariacionAngulo As Double
    Dim mSistemaDeCoordenadas As CoordinateSystem3d
    Dim mPuntoBase As Point3d
    Dim mResultado As string
    Public Sub New(bloqueAInsertar as BlockReference, _
                   anguloBase As Double, _
                   sistemaCoordenadas As CoordinateSystem3d, _
                   puntoBase As Point3d)
        MyBase.New(bloqueAInsertar)
        mEntidadARotar = bloqueAInsertar
        mAnguloBase = anguloBase
        mSistemaDeCoordenadas = sistemaCoordenadas
        mPuntoBase = puntoBase
    End Sub
    Protected Overrides Function Sampler(ByVal prompts As Autodesk.AutoCAD.EditorInput.JigPrompts) As Autodesk.AutoCAD.EditorInput.SamplerStatus
        Dim opciones As New JigPromptAngleOptions
        opciones.Message = environment.NewLine & "Angulo a rotar: "
        opciones.DefaultValue = 0
        opciones.BasePoint = mPuntoBase
        opciones.UseBasePoint = True
        opciones.UserInputControls=UserInputControls.Accept3dCoordinates or UserInputControls.NullResponseAccepted
        Dim resultado As PromptDoubleResult
        resultado = prompts.AcquireAngle(opciones)
        If resultado.Status = PromptStatus.OK Then
            mResultado = resultado.StringResult
            If mVariacionAngulo = resultado.Value Then
                Return SamplerStatus.NoChange
            Else
                mVariacionAngulo = resultado.Value
                Return SamplerStatus.OK
            End If
        End If
        Return SamplerStatus.Cancel
    End Function
    Protected Overrides Function Update() As Boolean
        mEntidadARotar.Rotation = mVariacionAngulo + mAnguloBase
        Return True
    End Function
    Public Sub ActualizarRotacion
        mEntidadARotar.Rotation = mVariacionAngulo + mAnguloBase
    End Sub
    Public Function getEntity As Entity
        Return Entity
    End Function
    Public Function getAnguloDeRotacion As Double
        Return mAnguloBase
    End Function
    Public Function getResultado As String
        Return mResultado
    End Function
    
End Class

public ObjectIdCollection GetModelSpaceBlockReferenceOIDCByBlockName(string blockReferenceName) 
        {
            ObjectIdCollection returnOIDs = new ObjectIdCollection();
            using (Database db = AcadApp.DocumentManager.MdiActiveDocument.Database)
            {
                using (Transaction trans = db.TransactionManager.StartTransaction())
                {
                    BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForRead);
                    BlockTableRecord btrModel = (BlockTableRecord)trans.GetObject(bt[BlockTableRecord.ModelSpace], OpenMode.ForRead);
                    foreach (ObjectId thisOid in btrModel)
                    {
                        Entity blk = (Entity)trans.GetObject(thisOid, OpenMode.ForRead);
                        if (blk.GetType().ToString() == "Autodesk.AutoCAD.DatabaseServices.BlockReference")
                        {
                            BlockReference thisBlockRef = (BlockReference)trans.GetObject(thisOid, OpenMode.ForRead);
                            if(string.Compare(thisBlockRef.Name, blockReferenceName, true) == 0)
                            {
                                returnOIDs.Add(thisOid);
                            }
                        }
                    }
                    return returnOIDs;
                }
            }
        }