Konverter til 3D formatet dxf eller ipt Filer
Når man kan gemme Image1.Picture som jpgFile,så kan man vel også gemme den som dxf File til (Autocad) eller ipt File til (Inventoer 6), lige til at importer.
Min Procedure herunder kan gemme Image1 som jpg file
procedure TfrmProfil.btnGemJpegClick(Sender: TObject);
var
jpgFile: TJpegImage;
begin
// Hvis der ikke er tegnet i Image1, saa...
// hmmm... ved ikke om det virker ??
if Image1.Picture.Bitmap = nil then
begin
ShowMessage( 'Der er ikke noget at gemme !');
Exit;
end;
// Vis gem-dialog. Afslut hvis bruger trykker "annuller".
if not SavePictureDialog1.Execute then Exit;
// brug altid try...finally obj.free
// efter var := obj.Create.
// Så er du sikker på at det bliver frigivet, selvom noget skulle
// gå galt undervejs !
// Opret et JPG-billede.
jpgFile := TJpegImage.Create;
try
// hvor meget skal der komprimeres.
jpgFile.CompressionQuality := 85;
// tildel bitmap fra image1.
jpgFile.Assign( Image1.Picture.Bitmap);
// lav bitmap om til jpeg format.
jpgFile.JPEGNeeded;
// comprimer billedet.
jpgFile.Compress;
// gem den på disk.
jpgFile.SaveToFile( SavePictureDialog1.FileName);
finally
jpgFile.Free;
end;
end;
Har du et forslag konveteringen?
Mvh