The problem is that the file is corrupted. When I bind it, I get a fatal
error...
I think the only way to recover my drawing is to find a method to export
each entity of my XRef, one by one, to the modelspace...
You maybe have another idea...
Thanks
"Brian D."
a écrit dans le
message de news: [email protected]...
> When you insert it, all you have in modelspace to copy is the insert
itself.
> Try to bind, then explode it. Not even a need for VB.
>
> Brian D.
>
>
> "AM4D" wrote in message
> news:[email protected]...
> > Hello, everybody...
> > I'm trying actually to recover a file wich couldn't be opened in a
normal
> > way (fatal error, internal error ...)
> >
> > I can insert it as XRef in a new drawing. To recover the drawing, I
would
> > like to copy all the entities from the XRef to the empty modelspace.
> >
> > I use this code :
> >
> > Sub xrefcopy()
> > Dim objSS As AcadSelectionSet
> > Dim entity As AcadEntity
> > Dim xref As AcadBlock
> > Dim NewEntity As AcadEntity
> >
> > Set objSS = ThisDrawing.SelectionSets.Add("all")
> > objSS.Select acSelectionSetAll
> >
> > For Each entity In objSS
> > If entity.ObjectName = "AcDbBlockReference" Then
> > Set xref = ThisDrawing.Blocks(entity.Name)
> > End If
> > Next entity
> >
> > For Each entity In xref
> > Set NewEntity = entity.Copy
> > NewEntity.Layer = "0"
> > Next entity
> >
> > If Not objSS Is Nothing Then
> > objSS.Delete
> > End If
> >
> > ThisDrawing.Regen acAllViewports
> > End Sub
> >
> > It works... But not as I would like... Every entity is copied, but
INSIDE
> > the XRef !
> > When I remove it, nothing stays on the screen. So it doesn't help me...
> > I've thought it was maybe because I send the entities on the "0" layer.
> But
> > it doesn't work. If I try to send an entity on a new layer from the
> > modelspace, it makes an error;
> >
> > What can I do? Thanks for your help...
> >
> > Alexis Perdaen
> > AM4D
> > Brussels, Belgium
> >
> >
>
>
