CADSoftTools - AutoCAD DWG DXF HPGL (PLT) SVG CGM STEP IGES STL SAT viewers, converters and developer tools. Delphi and C# source code.
https://cadsofttools.com/forum/
Code: Select all
var
lineType: TsgDXFLineType;
arc: TsgDXFArc;
begin lineType := TsgDXFLineType.Create;
lineType.Name := 'dash triple dot';
lineType.Lines.AddTick(5.0);
lineType.Lines.AddTick(-0.5);
lineType.Lines.AddTick(0);
lineType.Lines.AddTick(-0.5);
lineType.Lines.AddTick(0);
lineType.Lines.AddTick(-0.5);
lineType.Lines.AddTick(0);
lineType.Lines.AddTick(-0.5);
lineType.LineTypeScale := 5;
Img.Converter.Loads(lineType);
Img.Converter.Sections[csLTypes].AddEntity(lineType);
arc := TsgDXFArc.Create();
arc.Point := MakeFpoint(100, 100, 0);
arc.Radius := 100;
arc.StartAngle := 0;
arc.EndAngle := 145;
arc.Color := clRed;
arc.LineType := lineType;
Img.Converter.Loads(arc);
Img.Converter.OnCreate(arc);
Img.CurrentLayout.AddEntity(arc);