Delphi - OleVariant from AddRegion

Hello all,

I have a rectangle with fillets.
First I put it in an array and use the array to create a region with
AddRegion.
AddRegion returns an OleVariant. The code compiles ok, byut at runtime I get
an EOleError: Variant doe not reference an automation object.
When I try ReturnObj as AcadRegion there is a type mismatch: Incompatible
types: 'OleVariant' and 'IAcadRegion'

Wats the correct approach for this? See code below...

ReturnObj: OleVariant;
Outside: OleVariant;
Inside: OleVariant;
Result: OleVariant;

RectArray:=VarArrayCreate([0,0],varDispatch);
....
-> draw a rounded rectangle
....
// put entlast in the array
RectArray[0] := MSpace.Item(MSpace.Count-1);
ReturnObj:=MSpace.AddRegion(RectArray); <-- Incompatible type when using
AcadRegion
OutSide:=ReturnObj;
....
-> the same again for another, smaller rectangle
....
InSide:=ReturnObj;
....
// subtract Inside from Outside
Result:=Outside.Boolean(acSubtraction,Inside); <-- EOleError when using
OleVariants


Thanks in advance,
Jack

 

When a variant array of AutoCAD entities is
the result, you can get an element from it
like this:

var
Region: AcadRegion;

ResultArray: OleVariant;

begin

ResultArray := MSpace.AddRegion(...);

Region := IDispatch(ResultArray[0]) As AcadRegion;





AutoCAD based Security Planning Solutions:
http://www.caddzone.com/securityplanning

 

Thanks Tony,

Works fine!


Jack