function shim_file_load

% function used with shim_thickess GUI. Reads selections in the GUI and
% loads the appropriate shim corner points from the excel file selected.
% created by Mark Smith
% 11/22/07
%

% Revised 2/28/08: changes to accomodate new shim labels.

s3 =' ';

jaa = get(findobj('tag','cb1'),'value');
jab = get(findobj('tag','cb2'),'value');
jbc = get(findobj('tag','cb3'),'value');
jcc = get(findobj('tag','cb4'),'value');

if jaa == 1
    s3='AA';   
elseif jab == 1
    s3='AB';  
elseif jbc == 1
     s3='BC';
elseif jcc == 1
    s3='CC';
end

if s3 ==' '
    msgbox('Joint Type Check Box Not Selected');
    return
else
    shim_data=0;
    [s1 s2]=uigetfile('*.*');
    shim_data = xlsread(strcat(s2,s1),s3);
    assignin('base','shim_pts',shim_data);
    assignin('base','joint_type',s3);
% Revision 2/28/08 **************************************** Revised 2/28/08
    if strcmp(s3,'AB')
AB_labels={'E1';'E2';'E3';'E4';'E4.1';'E4.2';'E5';'E6';'E7';'E8';'E9';'E10';'E10.1';...
    'E11';'E12';'E13';'E14';'E14.1';'E15';'E16';'E16.1';'E17';'E18';'E18.1';'E19';'E20';...
    'E21';'E22';'E23';'E24';'E24.1';'E24.2';'E25';'E26';'temp'};
     assignin('base','labels',AB_labels);    
    end
    if strcmp(s3,'BC')
BC_labels={'E1';'E2';'E3';'E3.1';'E4';'E5';'E6';'E7';'E8';'E9';'E10';'E11';'E12';...
    'E13';'E14';'E15';'E16';'E17';'E17.1';'E18';'E18.1';'E19';'E20';'E21';'E22';'E23';...
    'E24';'E25';'E26';'E26.1';'E27';'E28';'E29';'temp'};
    assignin('base','labels',BC_labels);       
    end
% End of Revision ********************************************** End of Revision 

    set(findobj('tag','tx200'),'string',' ')
    set(findobj('tag','tx200'),'string',strcat(s2,s1))
end



