Hatch with Delphi

[Anonymous]

Hello Everybody

Does anyone have any example showing how to use the appendouterloop in hatch objects using delphi. My problem is the array of objects.

Thank you for any help

Danilo Santos

[Anonymous]

Here it is:

procedure CreateFilledLWPoly(Obj:
OleVariant);
Var
  HatchObj : AcadHatch;
  OuterLoop :
OleVariant;
begin
    OuterLoop := VarArrayCreate([0,0],
VarDispatch);
    if Obj.Closed
then
     
begin
        HatchObj :=
AcadApp.ActiveDocument.ModelSpace.AddHatch(0,'SOLID',True);
       
OuterLoop[0] := IDispatch(Obj);
       
Try
         
hatchObj.AppendOuterLoop(OuterLoop);
         
HatchObj.Color :=
Obj.Color;
         
HatchObj.Elevation :=
Obj.Elevation;
       
except
         
Hatchobj.Delete;
       
end;
      end;
   
end;
end;

Luc Morrissette,

Flairbase inc.