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的新手,想写段程序,在vb中,使用wscript调用一些外部的命令,但是程序执行一直有错误,请各位高手帮忙解答下,谢谢。
代码如下:
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害,回答基本都是爆料级的
大胡子升级真快啊,这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
数据库貌似已经连接上了vb,,可是为什么数据库上的数据不能显示在框表中捏???
具体的代码?
无码无真相!
你把篮球抱在怀里,就能远投得3分?
麻烦各位大虾了啊。。。
Private Sub Comm1_Click()
& ......
为什么我想循环自动发送邮件的时候,就只有第一封能自动发送,其它后面的邮件都只能创建,不能自动发送
Private Sub send_mail_Click() '发送邮件通知
Do While Not TDBG_Dept.EOF
If A> ......