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
style := TsgMLineStyle.Create();
style.Name := 'my_style';
M := TsgMLineEntry.Create;
M.Offset := 5;
M.Color := clBlue;
style.AddEntity(M);
M := TsgMLineEntry.Create;
M.Offset := 15;
M.Color := clRed;
style.AddEntity(M);
Img.Converter.Loads(style);
Img.Converter.OnCreate(style);
Img.Converter.Sections[csMLineStyles].AddEntity(style);
mline := TsgCADMLine.Create();
mline.Scale := MakeFPoint(1, 1, 1);
mline.Style := style;
mline.Flags := 1;
mline.Justify := 0;
mvert := TsgMVertex.Create();
mvert.Point := MakeFPoint(500, 0, 0);
mvert.Direction := MakeFPoint(100, 100, 0);
mvert.Miter := MakeFPoint(0.0, 20.0, 0.0);
mvert.NewList();
mvert.NewList();
mvert.NewList();
mvert.Params[0, 0] := 0.0;
mvert.Params[0, 1] := 1.0;
mvert.Params[1, 0] := 1.0;
mvert.Params[1, 1] := 1.0;
mline.AddEntity(mvert);
mvert := TsgMVertex.Create();
mvert.Point := MakeFPoint(0, 500, 0);
mvert.Direction := MakeFPoint(100, 100, 0);
mvert.Miter := MakeFPoint(0.0, 20.0, 0.0);
mvert.NewList();
mvert.NewList();
mvert.NewList();
mvert.Params[0, 0] := 0.0;
mvert.Params[0, 1] := 1.0;
mvert.Params[1, 0] := 1.0;
mvert.Params[1, 1] := 1.0;
mline.AddEntity(mvert);
mvert := TsgMVertex.Create();
mvert.Point := MakeFPoint(-300, 100, 0);
mvert.Direction := MakeFPoint(100, 200, 0);
mvert.Miter := MakeFPoint(0.0, 20.0, 0.0);
mvert.NewList();
mvert.NewList();
mvert.NewList();
mvert.Params[0, 0] := 0.0;
mvert.Params[0, 1] := 1.0;
mvert.Params[1, 0] := 1.0;
mvert.Params[1, 1] := 1.0;
mline.AddEntity(mvert);
Img.Converter.Loads(mline);
Img.Converter.OnCreate(mline);
Img.CurrentLayout.AddEntity(mline);
Img.GetExtents();