Подключение типов линий и шрифтов

[ivantambov]

Здравствуйте!
Возможно ли реализовать подключение своих шрифтов (TTF) и стилей линий для чертежа, как это реализуется?
С Уважением Иван.

[support]

Здравствуйте.
CAD Import VCL работает с TTF шрифтами, находящимися в системной папке шрифтов Windows\Fonts. SHX шрифты могут быть подключены из любой доступной папки. Стили для линий могут быть заданы следующим образом:

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);

Александр.