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
...
FillChar(Data, SizeOf(Data), 0);
Data.Color := ColorToDXF(TColor($224AF5));
Data.GlobalWidth := 5;// Constant width DXF code 43
Data.Points := TList.Create;
Data.Points.Add(TList.Create);
New(Pt);
Pt^ := MakeExpPoint(310, -190, 0);
TList(Data.Points[0]).Add(Pt);
New(Pt);
Pt^ := MakeExpPoint(-60, -100, 0);
TList(Data.Points[0]).Add(Pt);
New(Pt);
Pt^ := MakeExpPoint(-60, 100, 0);
TList(Data.Points[0]).Add(Pt);
New(Pt);
Pt^ := MakeExpPoint(20, 170, 0);
TList(Data.Points[0]).Add(Pt);
New(Pt);
Pt^ := MakeExpPoint(600, 170, 0);
TList(Data.Points[0]).Add(Pt);
New(Pt);
Pt^ := MakeExpPoint(680, 100, 0);
TList(Data.Points[0]).Add(Pt);
New(Pt);
Pt^ := MakeExpPoint(680, -100, 0);
TList(Data.Points[0]).Add(Pt);
Data.Count := Data.Points.Count;
Data.Flags := 1; // closed
vDXF.AddPolyLine(Data, 0);// one boundary
FreeDataPoints;
...