function [Hza,Hzr]=mmzoom(arg)
% 用法：
% [Hza,Hzr] = MMZOOM 返回创建的放大坐标系和方法框的句柄
% MMZOOM DRAG 使能放大框的拖放功能
% MMZOOM RESET 取消放大框的拖放功能
% MMZOOM OFF 删除放大框
% 常用用法：画好图片后输入mmzoom，圈图片放大，可以拖动放大框到理想位置，点击figure的非主坐标
% 系区域确定;还想拖动，输入mmzoom drag；删除放大框，输入mmzoom off删除
if nargin==0%无输入参数，则为无参数
arg = [];
end
if isempty(arg) %无参数表示放大
Hzoom = findobj(0,'Tag','MMZOOM'); % 找之前的放大窗口，有的话删掉
if ~isempty(Hzoom)
delete(Hzoom)
end
[xlim,ylim,prect] = getbox;% 获得一个矩形框
if ~isempty(prect) % 区域不能为空
Haxes = gca;
Hzr = rectangle('Position',prect,...%画矩形框
'Linestyle',':',...
'Tag','MMZOOM');
Hfig = gcf;
Hzoom = copyobj(Haxes,Hfig); %复制一个坐标系到当前窗口
OldUnits = get(Haxes,'Units');%得到坐标系的单位
set(Haxes,'Units','normalized') %设置坐标系的单位
Pvect = get(Haxes,'Position');
set(Haxes,'Units',OldUnits)
alpha = 1/3; %放大窗口缩放比例
beta = 98/100; %放大窗口偏移
Zwidth = alpha*Pvect(3);
Zheight = alpha*Pvect(4);
Zleft = Pvect(1)+beta*Pvect(3)-Zwidth;
Zbottom = Pvect(2)+beta*Pvect(4)-Zheight;
set(Hzoom,'units','Normalized',... % make units normalized
'Position',[Zleft Zbottom Zwidth Zheight],...% axes position
'Xlim',xlim,'Ylim',ylim,...% axis data limits
'Box','on',... % axis box on
'Xgrid','off','Ygrid','off',... % grid lines off
'FontUnits','points',...
'FontSize',8,... % shrink font size
'ButtonDownFcn','selectmoveresize',... % 设置放大坐标系可拖动和缩放
'Tag','MMZOOM',... % tag zoomed axes
'UserData',Haxes) % store original axes
[Htx,Hty,Htt] = getn(Hzoom,'Xlabel','Ylabel','Title');%得到多个属性的句柄
set([Htx,Hty,Htt],'String','')%设置相应的句柄string属性为空
set(Haxes,'DeleteFcn',... % 设置原坐标系的删除函数
'delete(findobj(0,''Type'',''axes'',''Tag'',''MMZOOM''))')
Hchild = findobj(Hfig,'type','axes');
Hchild(Hchild==Hzoom) = [];
set(Hfig,'Children',[Hzoom;Hchild],...%将放大的坐标系放在栈顶
'CurrentAxes',Haxes,... %使原坐标系为当前坐标系，如果再画图将在当前坐标系绘图
'ButtonDownFcn','mmzoom reset') %点击figure空白区域响应此函数
if nargout>=1
Hza = Hzoom;
end
end
elseif strncmpi(arg,'d',1) %使能拖动放大框
Hzoom = findobj(0,'Type','axes','Tag','MMZOOM');
if ~isempty(Hzoom)
set(Hzoom,'ButtonDownFcn','selectmoveresize')%设置放大框可拖动
end
elseif strncmpi(arg,'r',1) %使放大框不能再被拖动
Hzoom = findobj(0,'Type','axes','Tag','MMZOOM');
if ~isempty(Hzoom)
[Hfig,Haxes] = getn(Hzoom,'Parent','UserData');
set(Hzoom,'ButtonDownFcn','','Selected','off')
set(Hfig,'CurrentAxes',Haxes)
end
elseif strncmpi(arg,'o',1)%删除放大框
Hzoom = findobj(0,'Tag','MMZOOM');
if ~isempty(Hzoom)
delete(Hzoom)
end
else
error('Unknown Input Argument.')
end
%%%%%%%%%%%%%%%%
function [xbox,ybox,prect]=getbox
if waitforbuttonpress %等待鼠标按下,按下鼠标返回False，按下按键返回True
return
end
Hf = gcf; % 得到鼠标点击的窗口
Ha = gca(Hf);% 得到鼠标点击的坐标系
AxesPt = get(Ha,'CurrentPoint'); % 得到第一个鼠标点击数据点在坐标系中的位置
FigPt = get(Hf,'CurrentPoint');% 坐标轴的CurrentPoint值为一个2*3的矩阵，第一行为离观察者最
%近的点的三维坐标，第2行为离观察者最远的点的三维坐标。默认的视角View = 90度的情况下，这两行的
%x和y坐标是相同的。一般情况下，只需要取pos第1行的前两个元素，第3个元素为z轴坐标，一般不用。
rbbox([FigPt 0 0],FigPt) % 用鼠标圈出矩形框，鼠标松开时返回
AxesPt = [AxesPt;get(Ha,'CurrentPoint')];%组合起始点和终止点
[Xlim,Ylim] = getn(Ha,'Xlim','Ylim');%得到一个对象的多个属性的句柄
xbox = [min(AxesPt(:,1)) max(AxesPt(:,1))]; %得到所画矩形框两角点的横坐标
xbox = [max(xbox(1),Xlim(1)) min(xbox(2),Xlim(2))]; %点不能在边界外
ybox = [min(AxesPt(:,2)) max(AxesPt(:,2))];
ybox = [max(ybox(1),Ylim(1)) min(ybox(2),Ylim(2))];
prect = [xbox(1) ybox(1) diff(xbox) diff(ybox)];
%%%%%%%%%%%%%%%%
function varargout=getn(H,varargin)%一般varargin和varargout是隐藏的，但可像这里作为传入参数用，
%注意为元胞类型
% 得到一个对象的多个属性
if max(size(H))~=1 || ~ishandle(H)
error('Scalar Object Handle Required.')
end
varargout=get(H,varargin);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
学到的知识：
findobj
rectangle
copyobj
'ButtonDownFcn','selectmoveresize'
'CurrentAxes'
'Children'
waitforbuttonpress
%%%%%%%%%%%%%%%%matlab示例：
w = waitforbuttonpress;
if w == 0
disp('Button click')
else
disp('Key press')
end
%%%%%%%%%%%%%%%%
'CurrentPoint'
rbbox
%%%%%%%%%%%%%%%%matlab示例：
k = waitforbuttonpress;
point1 = get(gca,'CurrentPoint'); % button down detected
finalRect = rbbox; % return figure units
point2 = get(gca,'CurrentPoint'); % button up detected
point1 = point1(1,1:2); % extract x and y
point2 = point2(1,1:2);
p1 = min(point1,point2);% calculate locations
offset = abs(point1-point2); % and dimensions
x = [p1(1) p1(1)+offset(1) p1(1)+offset(1) p1(1) p1(1)];
y = [p1(2) p1(2) p1(2)+offset(2) p1(2)+offset(2) p1(2)];
hold on
axis manual
plot(x,y)% redraw in dataspace units
%%%%%%%%%%%%%%%%
varargin、varargout
6163bdeb486111e0b58ae&690.jpg
