Insert block at Centroid of Region

I am trying to get a block inserted at the centroid of a region I have
created but can't seem to get it to work.

What I have is:

Set Bucket(0) = ent.Copy
Set entR = ThisDrawing.ModelSpace.AddRegion(Bucket)
cent = entR.Centroid
Set blockRef = ThisDrawing.ModelSpace.InsertBlock(cent, "PID1", 1,
1, 1, 0)

but cent keeps coming up empty, how do I get the centroid for entR into the
insertion point slot? The region gets created in the drawing okay but
nothing seems to be getting returned to entR, I can't use this variable to
do anything with the region after it is created.

 

hint
per help on addregion:
RetVal
Variant
This method outputs an array of the newly created Region objects

an array won't have a centroid


you must have had an 'on error resume next' in there somewhere or you'd have
seen where your error was occuring


what would
cent = entR(0).Centroid do?
and of course drop the Set from

hth
Mark

 

Thanks for your help Mark, I've got it now.

Dale

 

cool!
You're welcome.