ANSYS工程结构数值分析命令流2.pdfVIP

!e1.2--平面桁架分析

!前处理

/filname,truss,1

!定义工作标题

/title,TheAnalysisofPlanetruss

/prep7

et,1,link1

r,1,0.01

r,2,0.005

r,3,0.0125

mp,ex,1,2.1e11

mp,prxy,1,0.3

n,1

n,2,6

n,3,12

n,4,18

n,5,24

n,6,6,8

n,7,12,8

n,8,18,8

type,1

mat,1

real,1

e,1,2

e,2,3

e,3,4

e,4,5

e,6,7

e,7,8

real,2

e,2,6

e,3,7

e,4,8

e,6,3

e,3,8

real,3

e,1,6

e,8,5

finish

/solu

antype,0

d,1,ux,,,,,uy

d,5,uy

f,6,fy,-200000

f,8,fy,-200000

f,2,fy,-400000

f,3,fy,-400000

f,4,fy,-400000

solve

finish

/post1

pldisp

etable,mforce,smisc,1

etable,mstress,ls,1

plls,mforce,mforce,1

plls,mstress,mstress,1

prrsol

finish

!/exit,nosav

!EX2.1B-任意圈数圆柱形螺旋弹簧的几何建模

FINISH

/CLEAR

/PREP7

!1.定义弹簧参数（同上）

D=4

C=8

DZ=C*D

T=DZ/6

N=4.7

*IF,T,LT,D,THEN

T=D

*ENDIF

TKPD=90

!2.创建全部螺旋线

CSYS,1

TDEG=N*360

TDEG1=MOD(TDEG,TKPD)

N0=(TDEG-TDEG1)/TKPD+1

*AFUN,DEG

*DO,I,1,N0

CTA=(I-1)*TKPD

Z=T/360*CTA

K,I,DZ/2,CTA,Z

*ENDDO

*IF,TDEG1,LT,1.0E-2,THEN

*ELSE

N0=N0+1

CTA=CTA+TDEG1

Z=T/360*CTA

K,N0,DZ/2,CTA,Z

*ENDIF

*DO,I,1,N0-1

L,I,I+1

*ENDDO

CM,L1,LINE

!3.在螺旋线端部创建簧丝截面

CSYS,0

WPOFF,DZ/2

WPROTA,,90

CYL4,,,D/2

VDRAG,1,,,,,,L1

CMSEL,S,L1

LDELE,ALL,,,1

ALLSEL

WPCSYS

!EX2.2螺栓杆建模命令流

FINISH

/CLEAR

/PREP7

!1.定义几何参数

D=20

L=60

B=46

P=2.5

DW=28.2

SMAX=30

KGC=12.5

C=0.8

REFA=60

*AFUN,DEG

H=0.5*P*COS(REFA/2)/SIN(REFA/2)

D1=D-2*5/8*H

D2=D-2*3/8*H

DBANGL=30

TKPD=30

!2.创建螺旋线（采用分段螺旋线）

CSYS,1

N=(B-3*P/4)/P

TDEG=N*360

TDEG1=MOD(TDEG,TKPD)

N0=(TDEG-TDEG1)/TKPD+1

*DO,I,1,N0

CTA=(I-1)*TKPD

Z=P/360*CTA

K,I,D1/2,CTA,Z

*ENDDO

*IF,TDEG1,LT,1.0E-2,THEN

*ELSE

N0=N0+1

CTA=CTA+TDEG1

Z=P/360*CTA

K,N0,D1/2,CTA,Z

*ENDIF

*DO,I,1,N0-1

L,I,I+1

*ENDDO

CM,L1CM,LINE

!3.在螺旋线端部创建齿截面

CSYS,0

KM=KPINQR(0,14)

K,KM+1,D1/2,,-3*P/8

K,KM+2,D1/2,,3*P/8

K,KM+3,D/2,,P/16

K,KM+4,D/2,,-P/16

A,KM+1,KM+2,KM+3,KM+4

VDRAG,1,,,,,,L1CM

NUMCMP,ALL

!4.创建圆柱体（未考虑退刀槽）

WPOFF,0,0,-3*P/8

CYL4,,,D1/2,,,,B

V1=VLINQR(0,14)

!5.创建部分螺杆的圆柱体及头部圆柱体

WPOFF,,,B

CYL