DXFExportVCL
Posted: 03 Dec 2008, 13:28
Hi,
i just DXFExportVCL compoment to create a dxf file dirtectly from my drawing. ( i use the 6.1 version of CadImport and DxfExport with source).
I use this code to export :
procedure TForm_FaceAvant.CreateDXF;
var
vExp: TsgCADtoDXF;
Nom_dxf: string;
Version: TsgDWGVersion;
begin
SaveDialogDXF.Filter := 'Fichier DXF|*.dxf';
if not SaveDialogDXF.Execute then
Exit;
Version := acR2004;
Form_Choix_DXF_Version := TForm_Choix_DXF_Version.Create(self);
Form_Choix_DXF_Version.ShowModal;
vExp := TsgCADtoDXF.Create(TsgDXFImage(sgPaintBox.Picture.Graphic));
case Form_Choix_DXF_Version.ComboBox1.ItemIndex of
0: Version := acR2000;
1: Version := acR2004;
2: Version := acR2007;
end;
if pos('.dxf', SaveDialogDXF.FileName) = 0 then Nom_dxf := SaveDialogDXF.FileName + '.dxf'
else Nom_dxf := SaveDialogDXF.FileName;
FreeAndNil(Form_Choix_DXF_Version);
vExp.Version := Version;
vExp.SaveToFile(Nom_Dxf);
vExp.Free;
end;
The dxf is correctly create and i can open it with a little homemade program.
But under AutoCad 2008 i got this error message :
Error at reading LINE at line 1480:
Type's name of line DASHDOT incorrect
DXF input incomplet.....
There is a update for DXFExport or Does AutoCad2008 have some problems to read it ?
Can i send to you the dxf file ?
Best regard
E.Jourde
i just DXFExportVCL compoment to create a dxf file dirtectly from my drawing. ( i use the 6.1 version of CadImport and DxfExport with source).
I use this code to export :
procedure TForm_FaceAvant.CreateDXF;
var
vExp: TsgCADtoDXF;
Nom_dxf: string;
Version: TsgDWGVersion;
begin
SaveDialogDXF.Filter := 'Fichier DXF|*.dxf';
if not SaveDialogDXF.Execute then
Exit;
Version := acR2004;
Form_Choix_DXF_Version := TForm_Choix_DXF_Version.Create(self);
Form_Choix_DXF_Version.ShowModal;
vExp := TsgCADtoDXF.Create(TsgDXFImage(sgPaintBox.Picture.Graphic));
case Form_Choix_DXF_Version.ComboBox1.ItemIndex of
0: Version := acR2000;
1: Version := acR2004;
2: Version := acR2007;
end;
if pos('.dxf', SaveDialogDXF.FileName) = 0 then Nom_dxf := SaveDialogDXF.FileName + '.dxf'
else Nom_dxf := SaveDialogDXF.FileName;
FreeAndNil(Form_Choix_DXF_Version);
vExp.Version := Version;
vExp.SaveToFile(Nom_Dxf);
vExp.Free;
end;
The dxf is correctly create and i can open it with a little homemade program.
But under AutoCad 2008 i got this error message :
Error at reading LINE at line 1480:
Type's name of line DASHDOT incorrect
DXF input incomplet.....
There is a update for DXFExport or Does AutoCad2008 have some problems to read it ?
Can i send to you the dxf file ?
Best regard
E.Jourde