deletelntag.m

来自「物流分析工具包。Facility location: Continuous mi」· M 代码 · 共 21 行

function deletelinetag()
%DELETELNTAG Delete last tagged line objects from plot.
% deletelntag()
%
% Executes commands:
%    s = get(gca,'UserData');
%    delete(findobj(s.LastLineTag))
%    projtick

% Copyright (c) 1994-2006 by Michael G. Kay
% Matlog Version 9 13-Jan-2006 (http://www.ie.ncsu.edu/kay/matlog)

% Input Error Checking ****************************************************
% End (Input Error Checking) **********************************************

s = get(gca,'UserData');
if isstruct(s) && isfield(s,'LastLineTag')
   delete(findobj('Tag',s.LastLineTag))
   projtick
end