Home > m > gui > ltpdv > callbacks > ltpdv_export_objects.m

ltpdv_export_objects

PURPOSE ^

Handles

SYNOPSIS ^

function ltpdv_export_objects(varargin)

DESCRIPTION ^

 Handles

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function ltpdv_export_objects(varargin)
0002 
0003 % Handles
0004 myh     = varargin{1};
0005 mainfig = varargin{end};
0006 
0007 
0008 % check current workspace variables
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     % get the number
0017     n = [n str2num(v(end-1:end))];
0018   end
0019 end
0020 
0021 % Get selected objects
0022 objs = ltpdv_get_selected_objs(mainfig);
0023 
0024 % Loop over selected objects
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 % END

Generated on Mon 08-Sep-2008 13:18:47 by m2html © 2003