0001 function ltpdv_save_objects(varargin)
0002
0003
0004 myh = varargin{1};
0005 mainfig = varargin{end};
0006
0007
0008 objs = ltpdv_get_selected_objs(mainfig);
0009
0010
0011 [filename, pathname] = uiputfile( ...
0012 {'*.mat','MAT-files (*.mat)'; ...
0013 '*.xml','LTPDA-XML-files (*.xml)'}, ...
0014 'Save as')
0015
0016
0017 if isequal(filename,0) || isequal(pathname,0)
0018 disp('Cancelled.')
0019 else
0020 fname = fullfile(pathname, filename);
0021
0022 [pathstr, name, ext, vers] = fileparts(fname);
0023
0024 switch ext
0025 case '.mat'
0026
0027 save(fname, 'objs');
0028
0029 case '.xml'
0030
0031
0032
0033 for j=1:numel(objs)
0034
0035 obj = objs{j};
0036
0037
0038 fname = fullfile(pathstr, sprintf('%s_%03d%s', name, j, ext));
0039
0040
0041 save(obj, fname)
0042
0043 end
0044
0045 otherwise
0046 error('### Unsupported file format.');
0047 end
0048
0049
0050
0051 end
0052
0053
0054
0055
0056
0057