Public Function Explode1CopyObjectInTemp(solidObj As Acad3DSolid, layerObj As AcadLayer) As Boolean
'On Error GoTo ERRfun
Dim copyObj As AcadEntity
Set copyObj = solidObj.Copy() ' создаем копию триде тела
copyObj.layer = layerObj.Name
Dim forExGroup As AcadGroup
Dim todos(0 To 0) As AcadEntity
' If ThisDrawing.Groups.Count > 0 Then ThisDrawing.Groups.Delete
Set forExGroup = ThisDrawing.Groups.Add("EXPLOD_SOLID")
Set todos(0) = copyObj
forExGroup.AppendItems todos
ThisDrawing.SendCommand "_EXPLODE" & vbCr & "Г" & vbCr & forExGroup.Name & vbCr & vbCr
forExGroup.Delete
Explode1CopyObjectInTemp = True
Exit Function
'ERRfun:
' Explode1CopyObjectInTemp = False
' forExGroup.Delete
End Function