VB如何提取ANSYS的计算结果

lovessll 2010-01-26 01:48:28
我用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. *
* *
* ANSYS, Inc. is a UL registered ISO 9001: 2000 Company *
* *
* See the ANSYS, Inc. online documentation or the ANSYS, Inc. *
* documentation CD for the complete Legal Notice. *
* *
***************************************************************
……………………
……………………
Completing ANSYS Load Process.



***** ANSYS COMMAND LINE ARGUMENTS *****
BATCH MODE REQUESTED = LIST

00265621 VERSION=INTEL NT RELEASE= 10.0 UP20050718
CURRENT JOBNAME=file 13:09:12 JAN 26, 2010 CP= 0.719

1 !1.2 人字形屋架的静力分析
2 ! 本程序来源于邢静忠等编著的《ANSYS分析实例与工程应用》,机械工业出版社(2004年) 
3 FINISH
4 /CLEAR, START
5 ! (1) 设置工程的选项
6 /FILNAME,EX1.2
7 /UNITS, SI
8 /TITLE, EX1.2, Plane Roof Tuss Model.
9 ! (2) 进入前处理模块, 定义节点
10 /PREP7
11 N, 1, 0, 0
12 N, 2, 2, 0
13 N, 3, 4, 0
14 N, 4, 6, 0
15 N, 5, 8, 0
16 N, 6, 2, 1
17 N, 7, 4, 2
18 N, 8, 6, 1
…………………………
…………………………
RUN SETUP PROCEDURE FROM FILE= C:\Program Files\Ansys Inc\v100\ANSYS\apdl\start100.ans

/INPUT FILE= C:\Program Files\Ansys Inc\v100\ANSYS\apdl\start100.ans LINE= 0

CLEAR DATABASE AND RERUN START.ANS

RUN SETUP PROCEDURE FROM FILE= C:\Program Files\Ansys Inc\v100\ANSYS\apdl\start100.ans

ANSYS Multiphysics

/INPUT FILE= C:\Program Files\Ansys Inc\v100\ANSYS\apdl\start100.ans LINE= 0

CURRENT JOBNAME REDEFINED AS EX1.2
………………………………………………………………
…………………………………………
***** ANSYS ANALYSIS DEFINITION (PREP7) *****

NODE 1 KCS= 0 X,Y,Z= 0.0000 0.0000 0.0000

NODE 2 KCS= 0 X,Y,Z= 2.0000 0.0000 0.0000

NODE 3 KCS= 0 X,Y,Z= 4.0000 0.0000 0.0000

NODE 4 KCS= 0 X,Y,Z= 6.0000 0.0000 0.0000

NODE 5 KCS= 0 X,Y,Z= 8.0000 0.0000 0.0000

NODE 6 KCS= 0 X,Y,Z= 2.0000 1.0000 0.0000

NODE 7 KCS= 0 X,Y,Z= 4.0000 2.0000 0.0000

NODE 8 KCS= 0 X,Y,Z= 6.0000 1.0000 0.0000
…………………………
…………………………
***** DEGREE OF FREEDOM SOLUTION ***** TIME = 1.0000
LOAD STEP= 1 SUBSTEP = 1 CUM. ITER.= 1

NOTE - ALL VECTOR DOFS ARE IN NODAL COORDINATE SYSTEMS.

NODE UX UY
1 0.00000 0.00000
2 0.289855E-05 -0.266656E-04
3 0.483092E-05 -0.258652E-04
4 0.676329E-05 -0.266656E-04
5 0.966184E-05 0.00000
6 0.952352E-05 -0.271487E-04
7 0.483092E-05 -0.258652E-04
8 0.138318E-06 -0.271487E-04
………………………………
………………………………
MAXIMUMS
NODE 5 8
VALUE 0.966184E-05 -0.271487E-04
1

***** ANSYS - ENGINEERING ANALYSIS SYSTEM RELEASE 10.0 *****
ANSYS Multiphysics
00265621 VERSION=INTEL NT 13:09:13 JAN 26, 2010 CP= 0.938

EX1.2, Plane Roof Tuss Model.



***** ELEMENT SOLUTION ***** TIME = 1.0000
LOAD STEP= 1 SUBSTEP = 1 CUM. ITER.= 1

EL= 1 NODES= 1 2 MAT= 1 LINK1
MFORX= 3000.0
SAXL= 0.30000E+06 EPELAXL= 0.000001 EPTHAXL= 0.000000 EPSWAXL= 0.000000 EPINAXL= 0.000000

EL= 5 NODES= 1 6 MAT= 1 LINK1
MFORX= -3354.1
SAXL=-0.33541E+06 EPELAXL=-0.000002 EPTHAXL= 0.000000 EPSWAXL= 0.000000 EPINAXL= 0.000000

EL= 7 NODES= 2 6 MAT= 1 LINK1
MFORX= -1000.0
SAXL=-0.10000E+06 EPELAXL= 0.000000 EPTHAXL= 0.000000 EPSWAXL= 0.000000 EPINAXL= 0.000000

EL= 2 NODES= 2 3 MAT= 1
...全文
592 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhangyu0222071 2010-10-17
  • 打赏
  • 举报
回复
[Quote=引用 2 楼 ddldarren 的回复:]
刚刚弄出来了,有需要可以一起讨论。
[/Quote]
希望能交流一下,我也做这一块的,Q:546238013
ddldarren 2010-04-30
  • 打赏
  • 举报
回复
刚刚弄出来了,有需要可以一起讨论。
ddldarren 2010-04-28
  • 打赏
  • 举报
回复
您好!我在好多论坛和和网页看到你的留贴,看来弄的很辛苦,不知道你弄好了没有,我现在也是在做这块的,可以交流一下,我的QQ:397896302 注明VB+ANSYS 。

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧