CADSoftTools

Posted: **06 Dec 2009, 14:04**

Hi,

How can I create a leader in CadSoft Tools.

Thanks

Aby

Posted: **09 Dec 2009, 11:25**

Hello.
Leader, like a Spline can be created by Fits or Controls, that define its approximation:

var
      Im: TsgCADImage;
      Leader : TsgDXFLeader;
      pt : PFPoint;
      I : integer;
begin
      Leader := TsgDXFLeader.Create;
      Leader.Color := ClRed;
      for I := 0 to 4 do
      begin
          New(pt);
          pt^ := (MakeFPoint(50*I, 200-10*I*I, 0));
          Leader.Fit.Add(pt);        // creation by Fit points
//        Leader.Controls.Add(pt);   // or Control points
      end;

      AddEntity(Im.Converter, Leader);
      Im.GetExtents;
      sgPaintBox.Refresh;
end;

Alexander.

CADSoftTools

Creating a new TsgDXFLeader

Creating a new TsgDXFLeader

Re: Creating a new TsgDXFLeader