声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 2048|回复: 5

求助:如何用vc来封装ansys

[复制链接]
发表于 2006-6-30 16:02 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
请教大家,有用vc来封装ansys的方法和资料吗?拜托大家帮帮忙啊.急求.
回复
分享到:

使用道具 举报

发表于 2006-7-2 02:04 | 显示全部楼层

回复:(katherien)求助:如何用vc来封装ansys

本帖最后由 wdhd 于 2016-3-2 14:32 编辑

  不知道你说得是否是下面的意思

  首先定义变量:

  PROCESS_INFORMATION pi; //记录进程初始状态

  DWORD dwExitCode; //退出代码

  CString m_strInputFile; //命令流输入文件名

  CString m_strOutFile; //结果输出文件名

  之后是调用和终止ANSYS的代码:

  void CZTDlg::OnOK()

  {

  // TOD Add extra validation here

  CDialog::OnOK();

  m_strInputFile = "E:\\parameterAnalysis\\GantryCrane\\zt.mac";

  m_strOutFile = "E:\\parameterAnalysis\\GantryCrane\\zt.out";

  //存储ANSYS路径的变量

  CString sCommandLine;

  char cCommandLine[MAX_PATH];

  //初始化变量si

  //设置变量si的字节大小

  STARTUPINFO si = {sizeof(si)};

  //设置ANSYS批处理程序以窗口方式运行

  si.dwFlags=STARTF_USESHOWWINDOW;

  //设置ANSYS批处理程序以最大化方式运行

  si.wShowWindow=SW_SHOWMAXIMIZED;

  //获得ANSYS的路径及批处理时所带的参数

  sCommandLine ="d:\\Program Files\\Ansys Inc\\v80\\ANSYS\\bin\\intel\\ ansys80.exe -b -i "+m_strInputFile+"-o "+m_strOutFile;

  ::strcpy(cCommandLine, sCommandLine);

  //创建"ANSYS"子进程

  BOOL ret = CreateProcess(NULL, cCommandLine, NULL, NULL, FALSE, 0, NULL, NULL, &si, &pi);

  if (ret) {

  //释放程序控制权

  return; }

  else //创建子进程出错

  {

  AfxMessageBox( "CreateProcess错误:"+GetLastError() );

  return;

  }

  }

  void CZTDlg::TerminateAnsys()

  {

  //获取子进程的退出码

  if(GetExitCodeProcess(pi.hProcess,&dwExitCode))

  {

  //如果子进程还未结束

  if (dwExitCode==STILL_ACTIVE)

  {

  //终结该进程

  if (TerminateProcess(pi.hProcess,dwExitCode)) // 关闭子进程句柄

  CloseHandle(pi.hProcess);

  }

  }

  }
发表于 2006-7-2 02:05 | 显示全部楼层
 楼主| 发表于 2006-7-4 16:49 | 显示全部楼层
:)太感谢了:'(
发表于 2006-8-14 17:25 | 显示全部楼层
我怎么还是进不去啊
发表于 2006-8-14 21:52 | 显示全部楼层
学习了
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-12 12:54 , Processed in 0.065226 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表