Drawing Donuts

[aby]

Hi,

Is it posible to create donuts with this library?

If yes could you post an example .

Thanks

Aby

[support]

Hello Aby.

Code: Select all

var
  Im: TsgCADImage;
  Poly: TsgDXFLWPolyLine;
  Vertex: TsgDXFVertex;

begin
  Im := TsgCADImage(sgPaintBox.Picture.Graphic);

  Poly := TsgDXFLWPolyLine.Create;
  Poly.Closed := true;
  Poly.GlobalWidth := 200;
  Poly.Color := clGreen;

  Vertex := TsgDXFVertex.Create;
  Vertex.Point := MakeFPoint(0, 0, 0);
  Vertex.Bulge := 1;
  Poly.AddEntity(Vertex);

  Vertex := TsgDXFVertex.Create;
  Vertex.Point := MakeFPoint(500, 500, 0);
  Vertex.Bulge := 1;
  Poly.AddEntity(Vertex);
  AddEntity(Im.Converter, Poly);

  Im.GetExtents;
  sgPaintBox.Refresh;

Alexander.

[aby]

What is sgPaintBox ?

Thanks

Aby

[support]

sgPaintBox is the object of TsgDrawingNavigator class. Please pay attention to sgPaintBox and TsgCADImage must be initialized before. Please see our demo source code.

Alexander.

[aby]

"sgPaintBox is the object of TsgDrawingNavigator class. Please pay attention to sgPaintBox and TsgCADImage must be initialized before. Please see our demo source code."

How on earth can you pay attention on sgPaintBox if you don't have any information about it, unless you have super natural powers.

Is there any new documentation or notifying on what's new that there is a new sgPaintBox Control on the shelf you can use it.

I've searched the old documentation and demo source code. I can't find anything that refers to sgPaintBox.

Any way from what I examine your new source code there is plenty methods related to sgPaintBox. Please document this control on your help file.

Thanks

Aby

[support]

How on earth can you pay attention on sgPaintBox if you don't have any information about it, unless you have super natural powers.
Is there any new documentation or notifying on what's new that there is a new sgPaintBox Control on the shelf you can use it

may be I have super natural powers, wow . No, of cause, because

sgPaintBox is the object of TsgDrawingNavigator class

Rename sgPaintBox in your code to any name you like. It's only a name. And it can't have any documentation because documentation related to TsgDrawingNavigator class (but not object of the class).
You don't need to rename or modify anything in the "creation donut" sample if you will use it within the AddEntity demo.

Alexander