loadcad.m

来自「航天工程工具箱」· M 代码 · 共 25 行

function rocket=loadcad(fname);
%LOADCAD  Load a Rocket CAD cad-file.
%   ROCKET = LOADCAD([FNAME])  loads the cad file named
%   FNAME or brings up a file selection menu.
%
%   See also RCKCAD.

% Copyright (c) 2003-06-26, B. Rasmus Anthin.
% Revision 2003-07-19, 2003-07-23.

godir(mfilename)
cd rocket
if nargin
   path=pwd;
   if ~any(fname=='.')
      fname=[fname '.cad'];
   end
else
   [fname,path]=uigetfile('*.cad','Load Rocket CAD file');
end
godir
if ~ischar(fname), rocket=[];return,end
file=fullfile(path,fname);
load(file,'rck','-mat');
rocket=rck;