MATLAB+GUI编程中几个有用的程序段

MATLABGUI编程中几个有用的程序段1、启动%获取当前文件所在路径currPath=fileparts(mfilename('fullpath'));%切换工作路径到当前位置cd(currPath);%判断所用操作系统ifcomputer=='PCWIN'%MATLAB版本号v=version;ifv(1)~='7'warndlg('Onlyruninmatlab7.x(R14.x)');returnelse%添加当前路径下的所有子目录addpath(genpath(pwd));addpath(genpath(currPath));endend2、在GUI中使用Axes控件%1.删除所有画线及对应图例%查找Axes控件中的画线sameLines=findobj('type','line');%逐一删除这些画线fori=1:length(sameLines)delete(sameLines(i))end%获取Axes控件中的图例（由于画线全部被删除，因此为空）lgStr=get(legend(handles.ResultsAxes),'String');%重新设置图例（为空）legend(handles.ResultsAxes,lgStr);%2.添加画线%获取原来的图例lgStr=get(handles.hLegend,'String');%设置下一个画线为添加方式set(handles.ResultsAxes,'Nextplot','add');%指定要画线的Axesaxes(handles.ResultsAxes);%画线plot(distance_target,'-r')%添加图例handles.hLegend=legend(handles.ResultsAxes,lgStr,'目标距离');%3.删除某一画线%所删除画线对应的数据为distance_target，获取它的句柄sameLines=findobj('type','line','YData',distance_target);%删除画线if~isempty(sameLines)delete(sameLines);end%获取原有的图例lgStr=get(legend(handles.ResultsAxes),'String');%从原有图例中删除对应图例legend(handles.ResultsAxes,setdiff(lgStr,{'目标距离'}));3、在GUI中使用Excel表格（Activex控件MicrosoftOfficeSpreedsheet）%获取现在使用的spreedsheet的句柄ActiveSheet=get(handles.activex1,'ActiveSheet');%现在使用的spreedsheet的现在使用工作薄ActiveWorkbook=get(handles.activex1,'ActiveWorkbook');%现在使用的表eSheets=handles.activex1.ActiveWorkbook.Sheets;%使用表的第一个子表eSheet1=eSheets.get('Item',1);%激活该表eSheet1.Activate;%获取当前单元格的句柄ActiveCell=get(handles.activex1,'ActiveCell');%选择坐标为A1的单元格Select(Range(ActiveSheet,'A1'));%获取当前单元格的句柄ActiveCell=get(handles.activex1,'ActiveCell');%设置当前单元格中的内容set(ActiveCell,'Value','仿真结果报告');4、为Axes控件设置图片%所有设置的Axes控件axe