0001 function ltpdv_export_objects(varargin)
0002
0003
0004 myh = varargin{1};
0005 mainfig = varargin{end};
0006
0007
0008
0009 basename = 'ex_obj';
0010 ex = 0;
0011 n = [];
0012 vars = evalin('base', 'who');
0013 for j=1:length(vars)
0014 v = char(vars{j});
0015 if strncmp(basename, v, length(basename)) == 1
0016
0017 n = [n str2num(v(end-1:end))];
0018 end
0019 end
0020
0021
0022 objs = ltpdv_get_selected_objs(mainfig);
0023
0024
0025 for j=1:numel(objs)
0026 obj = objs{j};
0027 ex = max([n ex])+1;
0028 varname = sprintf('%s_%02d', basename, ex);
0029 assignin('base', varname, obj);
0030 end
0031
0032
0033