易截截图软件、单文件、免安装、纯绿色、仅160KB

VB如何提取ANSYS的计算结果

我用VB调用ANSYS的命令如下
Private Sub Command1_Click()
x = Shell("C:\Program Files\Ansys Inc\v100\ANSYS\bin\intel\ansys100.exe -b -p ane3fl -i c:\X.mac -o c:\output.txt", vbMinimizedFocus) '调用ANSYS的Multiphsics模块进行仿真计算
Timer1.Enabled = True '激活Timer1控件
End Sub
调用结果是成功的。生成了output.txt的结果。现在面临一个问题。(VB操作文本还不是很熟悉)。怎么提取生成文本里的位移值,应力值和内力值。
还有一个问题,我用VB做一个显示窗口,让ANSYS的图形显示界面出现在VB的窗口中,(比如显示位移,内力图等等),这个该如何实现。恳请会的朋友帮帮忙!
同时欢迎会的朋友一起讨论!万分感激!
生成的结果文件:
//**********
***************************************************************
*                      ANSYS 10.0 LEGAL NOTICES              *
***************************************************************
*                                                            *
* Copyright 2005 SAS IP, Inc.  All rights reserved.          *
* Unpublished rights reserved under the Copyright Laws of    *
* the United States.                 


相关问答:

【急求】VB中使用WScript调用外部命令 - VB / 基础类

在下是vb的新手,想写段程序,在vb中,使用wscript调用一些外部的命令,但是程序执行一直有错误,请各位高手帮忙解答下,谢谢。
代码如下:
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

为什么用VB改变不了工具栏按扭的宽度 - VB / 控件

为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了

大胡子真厉害,回答基本都是爆料级的
大胡子升级真快啊,这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。

回复 ......

有关vb的问题 - VB / 基础类

数据库貌似已经连接上了vb,,可是为什么数据库上的数据不能显示在框表中捏???
具体的代码?

无码无真相!

你把篮球抱在怀里,就能远投得3分?

麻烦各位大虾了啊。。。
Private Sub Comm1_Click()
& ......

vb自动发送邮件 - VB / 基础类

为什么我想循环自动发送邮件的时候,就只有第一封能自动发送,其它后面的邮件都只能创建,不能自动发送
Private Sub send_mail_Click() '发送邮件通知
  Do While Not TDBG_Dept.EOF
  If A> ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号