Динамическая вставка блока

 UserInputControls.NoZeroResponseAccepted

UserInputControls.Accept3dCoordinates Or UserInputControls.AcceptOtherInputString

Public Class Commands
  Public Shared Sub BlockJigCmd(ByVal bnam, ByVal attr_arr, ByVal ub)
    Dim doc As Document = Application.DocumentManager.MdiActiveDocument
    Dim db As Database = doc.Database
    Dim ed As Editor = doc.Editor
    Dim promptResult As PromptResult
    'Dim attr_arr() As String = attr_arro 'Dim cnt As Integer
    Do
      Dim tr As Transaction = doc.TransactionManager.StartTransaction()
      Using tr
        Dim bt As BlockTable = DirectCast(tr.GetObject(db.BlockTableId, OpenMode.ForRead), BlockTable)
        If Not bt.Has(bnam) Then
          ed.WriteMessage(vbLf & "Block " & bnam & " not found.")
          Return
        End If

        Dim space As BlockTableRecord = _
          DirectCast(tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite), BlockTableRecord)
        Dim btr As BlockTableRecord = _
          DirectCast(tr.GetObject(bt(bnam), OpenMode.ForRead), BlockTableRecord)
        ' Block needs to be inserted to current space before being able to append attribute to it
        Dim br As New BlockReference(New Point3d(), btr.ObjectId)
        space.AppendEntity(br)
        tr.AddNewlyCreatedDBObject(br, True)                    
        Dim attInfo As New Dictionary(Of ObjectId, AttInfo)()

        If btr.HasAttributeDefinitions Then
          For Each id As ObjectId In btr
            Dim obj As DBObject = tr.GetObject(id, OpenMode.ForRead)
            Dim ad As AttributeDefinition = TryCast(obj, AttributeDefinition)
            If ad IsNot Nothing AndAlso Not ad.Constant Then
              Dim ar As New AttributeReference()
              ar.SetAttributeFromBlock(ad, br.BlockTransform)
              ar.Position = ad.Position.TransformBy(br.BlockTransform)
              If ad.Justify <> AttachmentPoint.BaseLeft Then _
                  ar.AlignmentPoint = ad.AlignmentPoint.TransformBy(br.BlockTransform)
              If ar.IsMTextAttribute Then ar.UpdateMTextAttribute()
              For i = 0 To ub
                If ar.Tag = attr_arr(0, i) Then ar.TextString = attr_arr(1, i) : Exit For 
              Next

              Dim arId As ObjectId = br.AttributeCollection.AppendAttribute(ar)
              tr.AddNewlyCreatedDBObject(ar, True)
              ' Initialize our dictionary with the ObjectId of the attribute reference + attribute definition info
              attInfo.Add(arId, New AttInfo(ad.Position, ad.AlignmentPoint, ad.Justify <> AttachmentPoint.BaseLeft))
            End If
          Next
        End If
        ' Run the jig
        Dim myJig As New BlockJig(tr, br, attInfo)
        promptResult = ed.Drag(myJig)
        If promptResult.Status <> PromptStatus.OK Then Return
        tr.Commit() ' Commit changes
      End Using
    Loop
  End Sub
End Class

Public Class main_class
    <CommandMethod("BJ")> _
    Public Sub main()
    Dim bnam = "myblockname"
    Dim ub As Integer = 1 ' UBound of the array
    'массив: тэги аттрибутов / значения аттрибутов 
    Dim attr_arr(1, ub) As String
    attr_arr(0, 0) = "Tag1" : attr_arr(0, 1) = "Tag2"
    attr_arr(1, 0) = "xx" : attr_arr(1, 1) = "yy"
    Commands.BlockJigCmd(bnam, attr_arr, ub)
  End Sub
End Class