TsgStyle.FontStyle has no effect...

[pascal07]

hello

i want drawing a underlined text ( or Bold, strike out...)

in your CadExportDemo exemple code, for test this, i add one line:

function TForm1.AddStyle: TsgDXFStyle;
begin
Result := TsgDXFStyle.Create;
Result.Name := cnstStyleChinese;
Result.PrimaryFont := 'SimSun';
Result.FontStyle := [fmUnderline]; --> i add this line
FCADFile.Converter.Sections[csStyles].AddEntity(Result);
end;

Problem : No effect.
How make a underlined text ?

thanks
Pascal 07

[support]

Hello Pascal.
TsgDXFStyle.FontName specified value required to underlining take effect:

Code: Select all

function TForm1.AddStyle: TsgDXFStyle;
begin
  Result := TsgDXFStyle.Create;
  Result.Name := cnstStyleChinese;
  Result.FontName := 'SimSun';
  Result.PrimaryFont := 'SimSun';
  Result.FontStyle := [fmUnderline];
  FCADFile.Converter.Sections[csStyles].AddEntity(Result);
end;

Alexander.

[pascal07]

Hello

ok, this new code is correct to screen ( the text is underlined ) but if a save in a DXF file, the text is not underlined. ( i use Autodesk DWG True View for read and see DXF files )

why ?

thanks
Pascal

[support]

Hello Pascal.
Unfortunately CAD Export VCL doesn't export text styles correctly when direct export. We have already fixed this problem partially, but current release doesn't include this fix. The solution will be provided with the next release.

Alexander.

[pascal07]

Hello

1 - When will this release be it available?
2 - This release will be it free for me ( one years of free support = one year of free release ? )

Thanks & Cordialy
Pascal Ey.

[support]

Hello Pascal.
Unfortunately I can't give any date, the release expected soon. Yes, release will be free of any charges. One year of support provides free updates during this period. We'll inform you about the release.

Alexander.