How to add AcadEntity to an AcadBlockReference

[Anonymous]

I have an image (AcadRasterImage) that is already existing in the drawing
and stored in the variable ImageName (of type AcadRasterImage)

How do I add this to AcadBlockReference make a block out of the image?

The AddRaster method that I see allows only a new image to be created and
added to a AcadBlockReference but what I need it to add an existing image
(or for that matter, any object) to a Blockreference.

Any pointers?

Any help is apperciated.

Thanks in advance
Rakesh

[Bryco]

.AddRaster works for blocks, an image is a bit like an xref, it needs a path imagefile property will give you that. Now if you are trying to add a wipeout that is a different thing, you need to use asdkunsupp2000.arx or asdkunsupp2004.arx, they are available from this site.

[Anonymous]

To add to an entity to an existing block
use the "CopyObjects" method.

[code]
Dim image As AcadRasterImage
Dim pp, min, max
ThisDrawing.Utility.GetEntity image, pp
image.GetBoundingBox min, max

Dim blk As AcadBlock
Set blk = ThisDrawing.Blocks.Add(min, image.Handle)

Dim ent(0) As AcadEntity
Set ent(0) = image
Dim ret
ret = ThisDrawing.CopyObjects(ent, ThisDrawing.Blocks(image.Handle))

Dim blkRef As AcadBlockReference
Set blkRef = ThisDrawing.ModelSpace.InsertBlock(min, image.Handle, 1, 1,
1, 0)
image.Delete
[/code]

--
gl - Paul
"Rakesh Rao" wrote in message
news:5188477@discussion.autodesk.com...
I have an image (AcadRasterImage) that is already existing in the drawing
and stored in the variable ImageName (of type AcadRasterImage)

How do I add this to AcadBlockReference make a block out of the image?

The AddRaster method that I see allows only a new image to be created and
added to a AcadBlockReference but what I need it to add an existing image
(or for that matter, any object) to a Blockreference.

Any pointers?

Any help is apperciated.

Thanks in advance
Rakesh

[Anonymous]

Thanks, will try that.


"Paul Richardson" wrote in message
news:5188545@discussion.autodesk.com...
To add to an entity to an existing block
use the "CopyObjects" method.

[code]
Dim image As AcadRasterImage
Dim pp, min, max
ThisDrawing.Utility.GetEntity image, pp
image.GetBoundingBox min, max

Dim blk As AcadBlock
Set blk = ThisDrawing.Blocks.Add(min, image.Handle)

Dim ent(0) As AcadEntity
Set ent(0) = image
Dim ret
ret = ThisDrawing.CopyObjects(ent, ThisDrawing.Blocks(image.Handle))

Dim blkRef As AcadBlockReference
Set blkRef = ThisDrawing.ModelSpace.InsertBlock(min, image.Handle, 1, 1,
1, 0)
image.Delete
[/code]

--
gl - Paul
"Rakesh Rao" wrote in message
news:5188477@discussion.autodesk.com...
I have an image (AcadRasterImage) that is already existing in the drawing
and stored in the variable ImageName (of type AcadRasterImage)

How do I add this to AcadBlockReference make a block out of the image?

The AddRaster method that I see allows only a new image to be created and
added to a AcadBlockReference but what I need it to add an existing image
(or for that matter, any object) to a Blockreference.

Any pointers?

Any help is apperciated.

Thanks in advance
Rakesh

[Bryco]

Both .addraster and CopyObjects work but only copyobjects can add the wipeout, thanks for that Paul, nice trick

[Bryco]

On another note, manually it seems in acad 2006 you can't add a raster to an existing block. You can make a block of the raster or the raster and other objects. In these 2 conditions and in both vba conditions the block cannot be refedited. Manually, I found the best way was to make a block of the raster then insert that into the block. Below is the error message displayed when refediting. Perhaps there is a patch for this?
Errors found in references to other objects:
** Object reference missing: AcDbRasterImage, to AcDbRasterImageDef.

[Anonymous]

I just tried that...strange..

[Cad_Monkey]

> {quote:title=brycewalmsley8287 wrote:}{quote}
> Manually, I found the best way was to make a block of the raster then insert that into the block. Below is the error message displayed when refediting.

That was great advice, worked like a charm for me