delete.m

来自「有关matlab的电子书籍有一定的帮助希望有用」· M 代码 · 共 27 行

function delete(obj)

%   Author: T. Krauss
%   Copyright (c) 1988-98 by The MathWorks, Inc.
%   $Revision: 1.2 $

obj = struct(obj);
for i = 1:length(obj)
    ax = get(obj(i).h,'parent');
    fig = get(ax,'parent');
    ud = get(fig,'userdata');
    
    ind = find(obj(i).h == [ud.Objects.fdline.h]);
    if isempty(ind)
        error('Not a valid object')
    end
        
    objud = get(obj(i).h,'userdata');
    
    delete(obj(i).h)
    
    ud.Objects.fdline(ind) = [];
    
    set(fig,'userdata',ud)
end