-1

当我放大缩小时,我应该如何在图中添加文本以便自动缩放?

两个FontUnits选项,normalized放大或缩小时pixels重新缩放。

figure(1);
text(0.5,0.5,'test',...
    'FontUnits','Normalized',...
    'FontSize',0.25,...
    'HorizontalAlignment','center',...
    'Color',color...
    );
figure(2);
set(gcf,'Position',[935   428   672   504])
text(50,50,'test',...
    'FontUnits','pixels',...
    'FontSize',100,...
    'HorizontalAlignment','center',...
    'Color',color...
    );
axis([0 100 0 100])

这个函数,包括对 zoomCallBack 函数的进一步修改:

function drawtext(p,s,f,color)
    % get axes size
    ax = axis;
    % add some text
    ax0=ax(4)-ax(3);
    txt = text(p(1),p(2),s,...
        'FontSize',f,...
        'HorizontalAlignment','center',...
        'Color',color);
    h = zoom; % get handle to zoom utility
    set(h,'ActionPostCallback',@zoomCallBack);
    set(h,'Enable','on');
    % everytime you zoom in, this function is executed
    function zoomCallBack(obj, evd)      
        % Since i expect to zoom in ax(4)-ax(3) gets smaller, so fontsize
        % gets bigger.
        ax = axis(evd.Axes); % get axis size
        % get all texts in figure
        htxt = findobj(gcf,'Type','text');
        axi=ax(4)-ax(3);
        for i=1:length(htxt)
            % change font size accordingly
            set(htxt(i),'FontSize',str2num(get(htxt(i),'Tag'))*ax0/axi);
        end
    end
end

这是一个可行的解决方案,但是非常棘手并且有时会失败。欢迎任何更好的解决方案。

4

1 回答 1

2

文本对象具有属性FontUnits。如果设置为Normalized,文本将随轴重新缩放。

text(0.4, 0.5, 'test', 'FontUnits', 'Normalized', 'FontSize', 0.2);

然后尝试更改轴大小。

于 2017-07-11T01:08:31.257 回答