--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/m/gui/ltpdv/callbacks/ltpdv_export_objects.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,33 @@
+function ltpdv_export_objects(varargin)
+
+% Handles
+myh     = varargin{1};
+mainfig = varargin{end};
+
+
+% check current workspace variables
+basename = 'ex_obj';
+ex = 0;
+n  = [];
+vars = evalin('base', 'who');
+for j=1:length(vars)
+  v = char(vars{j});
+  if strncmp(basename, v, length(basename)) == 1
+    % get the number
+    n = [n str2num(v(end-1:end))];
+  end
+end
+
+% Get selected objects
+objs = ltpdv_get_selected_objs(mainfig);
+
+% Loop over selected objects
+for j=1:numel(objs)
+  obj = objs{j};
+  ex = max([n ex])+1;
+  varname = sprintf('%s_%02d', basename, ex);
+  assignin('base', varname, obj);  
+end
+
+
+% END