print_axes.m

非常好的数字处理教程

%
function print_axes(axes)
	figure;
	a = axes;
	figprops = get(axes);
	rmfield(figprops, 'BeingDeleted');
	figprops
	%set(a,figprops);
	%printdlg(figobject);
    %orient landscape;
    %[file,path,filterindex] = uiputfile({...
    %    '*.png','PNG (*.png)';...
    %    '*.jpg','JPG (*jpg)';...
    %    '*.tif','TIFF (*.tif)';...
    %    '*.eps','EPS (*.eps)'},...
    %    'Save as');

    %if (filterindex == 1)
    %    print(gcf,'-dpng',[path file]);
    %elseif (filterindex == 2)
    %    print(gcf,'-djpeg',[path file]);
    %elseif (filterindex == 3)
    %    print(gcf,'-dtiff',[path file]);
    %elseif (filterindex == 4)
    %    print(gcf,'-depsc',[path file]);
    %else
    %    return;
    %end