hfssexecutescript.m

用matlab调用HFSS代码hfssapi.rar

% ----------------------------------------------------------------------------
% function hfssExecuteScript(hfssExePath, ScriptFile, [iconOpt = true], 
%                            [runAndExit = true])
% 
% Description :
% -------------
% Runs Ansoft HFSS from within MATLAB with the '/RunScriptAndExit' (and the 
% optional '/Iconic') options to execute a given VB Script file and then exit.
%
% Parameters :
% ------------
% hfssExePath - the complete HFSS Executable path (see note for more info).
% ScriptFile  - the complete path of the VB Script file to be executed by
%               HFSS.
% [iconOpt]   - (optional) if set to false, HFSS will run in the normal mode,
%               else it will run in the "iconized" mode.
% [runAndExit] - (optional) if set to true, HFSS will run the given script
%                and exit, else if set to false, HFSS will run and script
%                and wait for user input.
% 
% Note :
% ------
% 1. The hfssExePath must contain the PROPER and COMPLETE executable path of
%    the HFSS program. If you followed the usual installation instructions for
%    installing HFSS, then this will be:
%    'C:\"Program Files"\Ansoft\HFSS9\hfss.exe' 
%    (The quotes (" ... ") are required for directory names that have spaces 
%    in them.
% 2. Don't forget to specify the complete path for the script file either. 
%    Also, make sure that the script file is "closed" (using fclose()) before
%    calling this function for proper results.
% 3. Another important thing, make sure you run the script once with
%    runAndExit set to false, so that you are completely sure that the
%    script does not have any errors before running the [runAndExit =
%    false] mode. If there are any errors in the script HFSS will silently
%    exit and there will be no way to figure out if the script ran properly
%    or not.
%
% Example :
% ---------
% fid = fopen('C:\temp\myAntenna.vbs', 'wt');
% ... 
% % Close the script prior to calling ExecuteScript.
% fclose(fid);
% % Execute the script.
% hfssExecuteScript('C:\"Program Files"\Ansoft\HFSS9\hfss.exe',  ...
%                   'C:\temp\myAntenna.vbs', ...
%                    false);
%
% ----------------------------------------------------------------------------

% ----------------------------------------------------------------------------
% This file is part of HFSS-MATLAB-API.
%
% HFSS-MATLAB-API is free software; you can redistribute it and/or modify it 
% under the terms of the GNU General Public License as published by the Free 
% Software Foundation; either version 2 of the License, or (at your option) 
% any later version.
%
% HFSS-MATLAB-API is distributed in the hope that it will be useful, but 
% WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 
% or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License 
% for more details.
%
% You should have received a copy of the GNU General Public License along with
% Foobar; if not, write to the Free Software Foundation, Inc., 59 Temple 
% Place, Suite 330, Boston, MA  02111-1307  USA
%
% Copyright 2004, Vijay Ramasami ([e-mail])
% ----------------------------------------------------------------------------

function hfssExecuteScript(hfssExePath, ScriptFile, iconMode, runAndExit)

% arguments processor.
if (nargin < 2)
	error('Insufficient number of arguments !');
elseif (nargin < 3)
	iconMode = [];
    runAndExit = [];
end;

% default arguments.
if isempty(iconMode)
	iconMode = true;
end;
if isempty(runAndExit)
    runAndExit = true;
end;

% Setup Iconic Mode.
if (iconMode == true)
	iconStr = '/Iconic';
else
	iconStr = '';
end;

% Setup Run and Exit Mode.
if (runAndExit)
    runStr = '/RunScriptAndExit';
else
    runStr = '/RunScript';
end;

% Create the Command Path.
cmdHFSS = [hfssExePath, ' ', iconStr, ' ', runStr, ' ' ,  ...
           ScriptFile];

% Execute the Command.
disp(sprintf('    Running HFSS using %s ...\n', cmdHFSS));
[Status, Result] = system(cmdHFSS);
if (Status ~= 0)
	warning('HFSS Execution returned an error status !');
end;