VBA. Mirror mehhod block properties help

Dim kanalblok As AcadBlockReference

Dim secim As AcadSelectionSet

For Each kanalblok In secim

aynanokta3 = ThisDrawing.Utility.PolarPoint(inspoint, kanalblokrad, uzunluk / 2)

aynanokta4 = ThisDrawing.Utility.PolarPoint(aynanokta3, kanalblokradartı90, bkanalen)

kanalblok.Mirror aynanokta3, aynanokta4

kanalblok.Delete

Next

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

in this code;

I am using the mirror method

I mirrored the block than delete the original block in my code. (the mirrored one is still there) But I can not access the properties of deleted block. Is there any way to recover the deleted block's properties or what can do else?

Thank You,

Have you tried collecting the properties before deleting the block?

I can use new block properties ( mirrored)

Yes. Many of the properties of the new (mirrored) block reference will be the same. Some (Rotation, X-,Y-,ZScaleFactors) may have been modified with the Mirror method.