Convert Program - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

Convert Program

tellmtellm Posts: 1Member
Hi. I have some code which creates a DXF of the files I have. however, the question is can the code be adapted to print an individual PDF of each of the files rather than create a DXF?

Thanks

[code]unit DXF_SAVER;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure OpenDialog1CanClose(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

PD : TData ;
PN : TSNPart ;
i,j : integer ;
Collection : TSNCollection;
ab,s,ss,px : string;
dxfpath,tempname : string;
IniFile : TIniFile;

implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);
begin
Form1.caption := ('DXF Saver 1.0');
label2.caption := ('DXF out path:');
Button1.caption := ('Create DXF Files');
IniFile := TIniFile.create(SystemPath+'Dxf Saver.ini');
edit1.text :=IncludeTrailingBackSlash(IniFile.ReadString('GENERAL','DXF_PATH',''));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//Test for empty workspace and exit gracefully.
if (Datalist.count-1 < 0) then begin
label1.caption:= ('Error, No Parts on WS.');
exit;
end; // if (Datalist.count-1 <= 0) then begin


//Process Parts on Workspace
for i := 0 to DataList.count-1 do begin
screen.cursor:=crhourglass;
button1.enabled := false;
PD := DataList.at_Object(i);
if IsSNPart(PD) then begin //Test for valid parts.
PN := DataList.at_Object(i) ;
If PN.Revno = '' then begin
PN.Revno := '#';
end;
dxfpath:= IncludeTrailingBackSlash(edit1.text);
tempname := PN.Partname;
PN.Partname := (PN.Partname);
DoBatchString(nil,DataList,'EXPORT,PART,'+ PN.Partname +',DXF,' + dxfpath) ;
PN.Partname := tempname;
end;//if IsSNPart(PD) then begin
end;// for i := 0 to DataList.count-1 do begin
screen.cursor:=crdefault;
IniFile := TIniFile.create(SystemPath+'Dxf Saver.ini');
Inifile.WriteString('GENERAL','DXF_PATH', + dxfpath) ;
button1.enabled := true;
label1.caption := ('Completed');
end;
Collection.Free ;
end.[/code]
Sign In or Register to comment.