procedure TForm1.BitBtn1Click(Sender: TObject);
var i:integer;
f:textfile;
s,ss:string;
begin
assignfile(f,'d:/1111.scr'); //与文件关联
rewrite(f); //写入方式
writeln(f,'PROXYNOTICE 0');
OpenDialog1.Title := '请选择您所需要打印的文件';
if opendialog1.Execute then //获取文件列表
for i := 0 to openDialog1.Files.Count-1 do
begin
s:='open '+openDialog1.Files;
ss:=StringReplace(openDialog1.Files,'dwg','dxf',[rfReplaceAll]);
writeln(f, s);
writeln(f,'zoom e');
writeln(f,'_qsave');
writeln(f,'_plot');
writeln(f);
writeln(f);
writeln(f,'上一次打印');
writeln(f);
writeln(f,'n');
writeln(f,'n');
writeln(f,'y');
writeln(f,'_close');
writeln(f,'n');
end;
closefile(f);
form1.close;
end;
end.
