找回密码
 注册会员
查看: 2157|回复: 1

[Ansys] 请教VB和ANSYS

[复制链接]
发表于 2008-5-28 22:38:31 |Error| 显示全部楼层 |阅读模式

我们不再是孤独的探索者;让我们的手紧紧相连,一起成长。

您需要 登录 才可以下载或查看,没有账号?注册会员

×
本人是ANSYS初学者,正在做VB调用ANSYS的设计,我找了一个用记事本写的弹簧建模的语句如下:

fini
/cle
/filname,ring,1
/prep7
*AFUN,DEG
TOT=12      !一个螺距上沿圆周分割的点数
N_num=5    !螺距数
p_dis=0.8  !螺距
N=TOT*n_num !整个弹簧的点数
cic=360

et,1,45    !弹簧采用的单元
et,2,200    !给面划网格的MESH200单元
keyopt,2,1,6

DIV=cic/TOT !两点将的圆心角
DIS=p_dis/TOT !螺距
rid=1      !弹簧主半径
rid2=0.1    !弹簧截面半径
csys,1

*DO,I,1,N+1
k,I,rid,(I-1)*DIV,(I-1)*DIS
*ENDDO

flst,3,N+1,3
*do,i,1,N+1
fitem,3,i
*enddo
bsplin,,p51x

csys,0
wprot,,90
wpoff,rid
pcirc,rid2,,0,360

asel,all
lsla,s
lesi,all,,,4
type,2
mshkey,0
amesh,all
eplot


type,1
extopt,esize,300
vdrag,1,,,,,,1
eplot



在很多相关的帖子里看到VB调用ANSYS的关键语句是:
Private Sub Command1_Click()
Dim x
x = Shell("D:\ANSYS\v81\ANSYS\bin\intel\ansys81.exe - g - i E:\test\&ex1.txt& - o E:\test\&ex1.out&")
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Dir("E:\test\file.err") <> "" Then
MsgBox ("Finish")
Timer1.Enabled = False
End If
End Sub


疑问是:接下来该怎么做?在ANSYS中怎样打开刚才写的语句;输入和输出文件&ex1.txt&、&ex1.out&是怎样生成的?里面包括什么内容;file.err又是怎么生成的.

希望大家多多指教,谢谢.
发表于 2008-6-12 07:47:52 |Error| 显示全部楼层

你好

你有联系方式么 我也是做这方面的 不过我也不懂能不能交流交流  QQ335763889
回复 顶 踩

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

闭关者|手机版|© 2005-2026|Cncad.Net ( 苏ICP备2026083443号 )|网站地图

GMT+8, 2026-11-4 04:18 , Processed in 0.214208 second(s), 23 queries .

Powered by Discuz! X5.0

© 2001-2026 Discuz! Team.

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