You can only do this programatically. Here is some vba code I wrote to do that.
Usted puede hacer solamente esto programatically. Aquí está un cierto código del vba que escribí para hacer eso.
Code:
Public Sub ExplodeMinsert()
Dim oEnt As AcadEntity
Dim oEnts() As AcadEntity
Dim vCopies As Variant
Dim oMin As AcadMInsertBlock
Dim ss As AcadSelectionSet
Dim pp As Variant
Dim point1(0 To 2) As Double
Dim point2(0 To 2) As Double
point1(0) = 0#: point1(1) = 0#: point1(2) = 0#
GetEnt:
ThisDrawing.Utility.GetEntity oEnt, pp, "Select a MINSERT object: "
If TypeOf oEnt Is AcadMInsertBlock Then
'continue
Set oMin = oEnt
point2(0) = oMin.InsertionPoint(0)
point2(1) = oMin.InsertionPoint(1)
point2(2) = oMin.InsertionPoint(2)
Else
GoTo GetEnt
End If
GetBlockObjects oMin.Name, oEnts
vCopies = ThisDrawing.CopyObjects(oEnts, ThisDrawing.ActiveLayout.Block)
Set ss = ThisDrawing.ActiveSelectionSet
ss.Clear
ss.AddItems vCopies
For Each oEnt In ss
oEnt.Move point1, point2
oEnt.ScaleEntity point2, oMin.XScaleFactor
oEnt.Rotate point2, oMin.Rotation
Next oEnt
oMin.Delete
End Sub
Public Function GetBlockObjects(BlkName As String, oEntArray() As AcadEntity)
'Returns an array of objects from a block definition.
'We pass the block name rather than a block object so that it
'can work on MINSERT's too.
Dim oBlk As AcadBlock
Dim i As Integer
For Each oBlk In ThisDrawing.Blocks
If oBlk.Name = BlkName Then
ReDim oEntArray(oBlk.Count - 1)
For i = 0 To oBlk.Count - 1
Set oEntArray(i) = oBlk.Item(i)
Next i
End If
Next oBlk
End Function