function ltpdv_plot(varargin)

% Handles
myh     = varargin{1};
mainfig = varargin{end};

% Get selected objects
objs = ltpdv_get_selected_objs(mainfig);

% Pass AOs to iplot
as = [];
for j=1:length(objs)
   obj = objs{j}
   if isa(obj, 'ao')
      as = [as obj];
   else
      warning('!!! Skipping object %s - it''s not an AO.', obj.name);
   end
end

if ~isempty(as)
   iplot(as)
end