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. *
* *
* 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