Multiples figures of 4x2 subplots....

Hello dudes: I'm preparing a code to create mutiples figures, each one consisting of subplots. because this will be part of a GUI i created the script with loops. This is the script:

a)the total number of figures is variable and defined as (nim) b) each figure is opened and their axis copied and pasted inside each of the subplots c) beacuse each figure is diferent i preceed to define the xlim and y lim for each subplot d) i defined a standar size for the subplots, is 4x2

%%%%%%%%%%%%%%%%DONT close any figure %%%%%%%%%%%%%%%%%%%%%
%%copying and pasting active objects & creating of multiple pages

ps=8;% plots per page
np=nim; %number of plots

for it=1:np
  xt=rem(it-1,ps)+1;
if xt==1
  figure;
end

    ax1=subplot(4,2,xt);
    %title(sprintf('plot #%-1d',it));
    xlim(Xll(it,:)); %xlimits, come from figure structure
    ylim(Yll(it,:)); %ylimits, come from figure structure 
    copyobj(allchild(get(h1(it),'CurrentAxes')),ax1);

    %check this
    fout = sprintf('%s_DR.pdf',station);
    saveas(gcf,fout,'pdf');

end

however, the script is not working it all, instead of produce new figures produces identical figures in pdf.

What is missing to do what i want???? thanx in advance

[Jules Ray]

Here is the complete code in case u need more information: (this is an example of each of the figure names opened (CONT_1_1_fit)

clear

if true

station='CONT'; %handles comes from stationlist1
end

load(sprintf ('%s_fits.mat',station));

fields = (fieldnames(Fits));
nim=numel(fields); %number of figures in directory

%decompose names using textscan & detect profnum and shorenum values
for i=1:nim
    str=fields{i,1};
    all(i,:)=textscan(str,'%s','delimiter','_');
    all(i,:)=textscan(str,'%s','delimiter','_');
    profnum=str2double(all{i,1}{2,1});
    shorenum=str2double(all{i,1}{3,1});

% define the values station profnum y shorenum for next eq

myFigstruct=Fits.(sprintf('%s_%u_%u_fit',station,profnum,shorenum));

% The line below converts the struct "this_fig"  back to a figure handle and displays it.
h1(i) = struct2handle(myFigstruct,0);
Xll(i,:)=myFigstruct.children(1,1).properties.XLim;
Yll(i,:)=myFigstruct.children(1,1).properties.YLim;

findobj(h1,'Type','line');

end

%%%%%%%%%%%%%%%%DONT close any figure %%%%%%%%%%%%%%%%%%%%%
%%copying and pasting active objects & creating of multiple pages

ps=8;% plots per page
np=nim; %number of plots

for it=1:np
  xt=rem(it-1,ps)+1;
if xt==1
  figure;
end

    ax1=subplot(4,2,xt);
    %title(sprintf('plot #%-1d',it));
    xlim(Xll(it,:)); %xlimits, come from figure structure
    ylim(Yll(it,:)); %ylimits, come from figure structure 
    copyobj(allchild(get(h1(it),'CurrentAxes')),ax1);

    %check this
    fout = sprintf('%s_DR.pdf',station);
    saveas(gcf,fout,'pdf');

end

[Image Analyst]

What is the purpose of the copyobj() call? And please attach CONT_fits.mat so we can run the code.

[Jules Ray]

here the .mat file.... i would like aslo save each figure as a pdf, but i dont know how...