将 ANSYS 作为子程序调用

对于优化或参数化设计，可以在 VC 或 Fortran 中将 ANSYS 作为子程序调用。具体调用方法如下：

1. 在 VC 中调用 ANSYS

::WinExec("d:/ANSYS57/BIN/Intel/ANSYS57 -b -p ANSYS_product_feature -i input_file -o output_file",SW_SHOWNORMAL);

2. 在 Fortran 中调用 ANSYS

LOGICAL(4) result
RESULT=SYSTEMQQ(‘d:\ANSYS57\BIN\Intel\ANSYS57 -b -p 
ANSYS_product_feature -i input_file -o output_file‘)

3. 说明

1 和 2 中，input_file 为用 APDL 语言编写的 ANSYS 输入文件。ANSYS_product_feature 为你的 ANSYS 产品特征代码。需要注意的是，在 VC 中调用 ANSYS 时，需要加一条判断语句，以确定 ANSYS 已经执行完毕。
在 Fortran 中不需要判断，Fortran 会等 ANSYS 执行完毕才继续执行下一条语句。在 VC 中，我没有找到与 Fortran 类似的函数，只好加一条循环判断语句。如果谁能找着这样的函数，请告诉我，谢谢！判断方法很简单，只需判断错误文件 file.err 是否可写就可以了。因为当 ANSYS 在运行时，file.err 是不可写的，只有当它运行完毕，此文件才可写。数据文件（假设输出的数据文件名为 opt.out):

*dim,out1,,2,1
out1(1)=dmax ! 目标函数 
out1(2)=1-eymax ! 约束条件 1 
*cfopen,opt,out
*vwrite,out1(1),out1(2)
(2f10.6)
*cfclos
 在 VC 中相应的显示数据文件命令为：
result=system("notepad opt.out");
图形文件（假设 ANSYS 工作文件名为 test, 输出 jpg 图形文件，具体信息请参考命令 /show）：
/SHOW,JPEG 
JPEG,QUAL,75,
JPEG,ORIENT,HORIZ 
JPEG,COLOR,2
JPEG,TMOD,1
/GFILE,600,
!*
plns,uy
/SHOW,TERM 
在 VC 中相应的显示图形文件命令为：
result=system("mspaint test001.jpg");
**************************************************************************************
VC 调用 ANSYS 的示例程序。
//Test.cpp
#include"stdio.h"
#include"process.h"
void main()
{
int result;
printf("Solving……");
result=system("d:/ANSYS57/BIN/Intel/ANSYS57 -b -p ansysul -i test.txt -o test.out");
// 不用：:WinExec，就用不着等待语句，可以实现用 Fortran 调用一样的效果。
printf("Solution finished……");
}

怎么还不知道？那个特征表找着没有？