metozade Posted September 16, 2015 Share Posted September 16, 2015 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, Quote Link to comment Share on other sites More sharing options...
SEANT Posted September 16, 2015 Share Posted September 16, 2015 Have you tried collecting the properties before deleting the block? Quote Link to comment Share on other sites More sharing options...
metozade Posted September 16, 2015 Author Share Posted September 16, 2015 (edited) I can use new block properties ( mirrored) Edited September 16, 2015 by metozade Quote Link to comment Share on other sites More sharing options...
SEANT Posted September 16, 2015 Share Posted September 16, 2015 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. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.