请教VB和ANSYS
本人是ANSYS初学者,正在做VB调用ANSYS的设计,我找了一个用记事本写的弹簧建模的语句如下:N+O9Pi3F
finiwY5n&t`h!A
/cle3A f?4S'RF^h
/filname,ring,1\iwWW9oS!I3o4N
/prep7
*AFUN,DEGH5\t"Ft
TOT=12 !一个螺距上沿圆周分割的点数
N_num=5 !螺距数
p_dis=0.8 !螺距
N=TOT*n_num !整个弹簧的点数
cic=360
et,1,45 !弹簧采用的单元Go\^-]2Bq1m
et,2,200 !给面划网格的MESH200单元
keyopt,2,1,61fAq m\*iLH!Y1X
DIV=cic/TOT !两点将的圆心角
DIS=p_dis/TOT !螺距0Bk2S]&}w
rid=1 !弹簧主半径.q5Jf+Ix?|
rid2=0.1 !弹簧截面半径| Z[ `"P'y0~S |
csys,1 W4Cl3@%l:xs~c
*DO,I,1,N+1
k,I,rid,(I-1)*DIV,(I-1)*DIS