ansys螺旋线画法的几个例子Word格式.docx

ansys螺旋线画法的几个例子Word格式.docx

《ansys螺旋线画法的几个例子Word格式.docx》由会员分享，可在线阅读，更多相关《ansys螺旋线画法的几个例子Word格式.docx（10页珍藏版）》请在冰豆网上搜索。

VDRAG,i,,,,,,i,,,,,

vglue,all

TYPE,1

vmesh,all

过程图：

2.EXAMPLE_2

/PREP7

wpoff,-10

CYL4,,,1

ET,1,MESH200

ET,2,SOLID45

KEYOPT,1,1,6

KEYOPT,1,2,0

LESIZE,ALL,,,10,,,,,1

MSHAPE,0,2D

MSHKEY,1

AMESH,ALL

CSYS,0

WPAVE,0,0,0

!

*

KBETW,3,1,0,RATI,0.5,！

Createsakeypointbetweentwoexistingkeypoints

*do,i,1,72

k,5+i,10,180-i*10,i

lstr,5+i,4+i

VDRAG,1+（i-1）*5,,,,,,4+i

eplot

*enddo

3.EXAMPLE_3

finish

/clear

/prep7

*AFUN,RAD

pi=2*ASIN

（1）!

获得pi常数

*afun,deg

R1=6.3!

轴外半径

rs=1.65!

丝半径

R2=R1+rs!

螺旋外半径

h0=64!

螺距

H=h0!

螺旋总高度

K,1,R2,0,0

theta=90-Atan（64/（2*pi*R2））!

获得旋转角

wprota,0,-theta,0

KWPAVE,1！

Movestheworkingplaneorigintotheaveragelocationofkeypoints.

rad1=rs!

圆半径

rad2=rad1*0.6!

四边形半径

*get,knum,kp,,num,max

CYL4,,,rad1

CSYS,1!

选择柱坐标系

circle_p=10

*get,knum,kp,,num,max

K,knum+1,R2,0,0

nn=NINT（h*circle_p/h0）

*DO,i,1,nn-1,1

xx=R2

yy=i*360/circle_p

zz=i*h0/circle_p

K,knum+i+1,xx,yy,zz

*ENDDO

K,knum+nn+1,xx,h/h0*360,h

LSEL,U,,,ALL

*DO,i,1,nn,1

L,knum+i,knum+i+1

LCOMB,ALL,,0

*GET,lnum,LINE,0,NUM,MAX!

获得最大线条号

ET,2,SOLID45

TYPE,2

LESIZE,lnum,,,40,,,,,1

VDRAG,ALL,,,,,,lnum

4.EXAMPLE_4

钢丝软轴的模型

*do,i,1,500

k,i,2,10*（i-1）,0.01*（i-1）

*do,i,1,499

l,i,i+1

FLST,2,499,4,ORDE,2

FITEM,2,1

FITEM,2,-499

LCOMB,P51X,,0

KWPAVE,1

wprot,0,90

PCIRC,0.18,0,0,360,

VDRAG,1,,,,,,1

FINISH

5.EXAMPLE_5

近来算了一个螺旋形的钢桥,以下是一段用APDL建立螺旋线的代码,主要使用"

BSPLIN"

命令来绘制空间曲线,然后再进行网格划分。

适当修改一下可以用做各种螺旋形模型的建立。

/PREP7

PI=3.1415926

R=18.100!

螺旋线半径

H=24.836!

螺旋线单圈高

N=6!

曲线关键点数量

ANG1=45.18!

曲线起始角度

ANG2=135.71!

曲线终止角度

HH=H*（ANG2-ANG1）/360!

曲线段高度

DH=HH/（N-1）!

每个关键点的高度增量

DA=（ANG2-ANG1）/（N-1）!

每个关键点的角度增量

*DO,I,0,N-1

XX=R*COS（（ANG1+I*DA）*PI/180）

YY=R*SIN（（ANG1+I*DA）*PI/180）

ZZ=I*DH

K,I+1,XX,YY,ZZ

BSPLIN,1,2,3,4,5,6

*GET,LENG,LINE,1,LENG!

得到螺旋线的长度

6.EXAMPLE_6

Ansys生成螺旋线模型

/title,helixheater

/units,user,1e-3,,,,273

Rh=2.5!

螺“线”半径

H=20!

总长

dis=0.8!

rs=0.5!

丝径

theta=90-atan（dis/Rh）

k,1,0,0,0

k,2,0,0,H

k,3,Rh,0,0

k,4,Rh,0,H

l,3,4!

可为曲线,但要修改参考柱面的编号

arotat,1,,,,,,1,2!

生成面上两点间最短线的参考面

wprota,0,-theta,0!

旋转工作平面

xc=Rh

yc=0

cyl4,xc,yc,rs!

丝截面,用于拉伸成线

wpcsys,,0

KPstr=500

k,KPstr,Rh,0,0

num=H/dis

*dim,C,array,num,3,,Number_i,Coordinate_i

csys,1

*do,i,1,num

C（i,1）=Rh

C（i,2）=ky（i+KPstr-1）+90

C（i,3）=kz（i+KPstr-1）+dis

k,i+KPstr,C（i,1）,C（i,2）,C（i,3）!

生成下一个关键点

NSarea=mod（（i-1）,4）+1

*get,Narea,area,0,num,max

larea,i+KPstr-1,i+KPstr,NSarea!

由关键点生成拉伸路径

*get,Nline,line,0,num,max

vdrag,Narea,,,,,,Nline!

拉伸成体

csys,0

adele,1,4

vadd,all

numcmp,all