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
DXFExport vDXF = new DXFExport();
DXFData Data = new DXFData();
Data.Clear();
Data.color = DXFExport.ColorToDXF(Color.Yellow);
Data.count = 1;
Data.points = <font color="blue">new</font id="blue"> ArrayList();
Data.points.Add(<font color="blue">new</font id="blue"> ArrayList()); // hatch can consist of more that one bound
DXFPoint Pt = <font color="blue">new</font id="blue"> DXFPoint();
Pt.X = 0;
Pt.Y = 0;
Pt.Z = 0;
((ArrayList)Data.points[0]).Add(Pt);
Pt = <font color="blue">new</font id="blue"> DXFPoint();
Pt.X = 10;
Pt.Y = 0;
Pt.Z = 0;
((ArrayList)Data.points[0]).Add(Pt);
Pt = <font color="blue">new</font id="blue"> DXFPoint();
Pt.X = 10;
Pt.Y = 5;
Pt.Z = 0;
((ArrayList)Data.points[0]).Add(Pt);
Pt = <font color="blue">new</font id="blue"> DXFPoint();
Pt.X = 0;
Pt.Y = 5;
Pt.Z = 0;
((ArrayList)Data.points[0]).Add(Pt);
Data.style = ((<font color="blue">byte</font id="blue">)DXF.HatchStyle.hsSolid);
vDXF.fOffset = 50;
vDXF.AddHatch(Data);
Data.Clear();
Data.height = 2;
Data.text = "Block";
Data.point.X = 0;
Data.point.Y = 0;
Data.color = ((int)DXFIntConst.DXF_RED);
vDXF.AddText(Data);
vDXF.Insert(Data);
vDXF.SaveToFile(dlgSaveDXF.FileName);