rotating region

Hi
I am trying to rotate a region I created but keep getting an error 'object
required ' #424. If I extrude the region then I can rotate it. I want to
rotate before I extrude. I am fairly new to VBA and would appreciate any
help.

Thanks
Bob Vetrano

 

usually i get that error if i didnt use the "set" command
like

set objRegion = however you get the region
instead of just
objRegion=however you get it

hope that helps

jm

 

John
I tried that. I declared the region as variant and when I use Set I get an
error type mismatch.

thanks
Bob v

 

my book here has a program to add revolved solid from a rotated region
dont know if this is what you are tryin to do
but their program does use a variant variable to hold the region
in which case you wouldnt use set

must just be something about the syntax

JM

ps the book is called acad2000vba by joe sutphin

 

Hi Bob

From the VBA Reference:

Object.Rotate BasePoint, RotationAngle

Object
All Drawing Objects, AttributeReference
The object or objects this method applies to.
(...)

Therefore the Rotate method requires an object not a variant:
<snip>
Dim TmpObj As AcadEntity
Dim TmpPnt As Variant

ThisDrawing.Utility.GetEntity TmpObj, TmpPnt, vbCrLf & "Select Region: "
TmpObj.Rotate TmpPnt, 0.7853981 '45 degrees
<snip>

Cheers

 

I would suggest that, instead of using a variant, you use an object; i.e.:

Dim objRegion As AcadObject
Set objRegion = ...

 

Thanks for everyones help.

bob Vetrano