原创：本人刚学APDL，编写的龙门起重机的模型的程序

ydyz

/BATCH
/TITLE, My MODEL

!*********建立参数化模型***********

/PREP7
/TRIAD,OFF   
!定义单元，材料特性，实常数

ET,1,SHELL63         

MP,EX,1,2E5
MP,PRXY,1,0.3
MP,DENSITY,1,7.8E-6
R,1,8
R,2,10
R,3,12
R,4,14
R,5,16

/VIEW,1,1,1,1

!****生成主梁跟支腿****
K,1,0,0,0
K,2,0,-300,0
K,3,0,-500,1200
K,4,0,0,1200
K,5,0,-500,5200
K,6,0,0,5200
K,7,0,0,6400
K,8,0,-300,6400
K,9,0,-500,1600
K,10,0,-500,2000
K,11,0,-550,1600
K,12,0,-550,2000
K,13,0,-2400,1650
K,14,0,-2400,1950
k,15,300,-2400,1650
k,16,300,-2400,1950

A,1,4,6,7,8,5,3,2
A,9,11,13,14,12,10
VEXT,1,,,200
VGEN,2,1,,,1200
VEXT,2,,,200
KWPAVE,43
WPOFFS,,350,
WPROTA,,90,
V***W,3,,,

A,50,44,16
A,49,43,15
A,49,50,16,15
A,43,44,16,15
VA,30,2,22,26,24
BOPTN,KEEP,NO
VADD,3,4
AADD,25,26
AADD,32,2
AADD,31,22
LCOMB,64,10
LCOMB,63,56
VGEN,2,5,6,1,,,2800
VGEN,2,3,5,2,1200
VSYMM,X,4,6,2
VGEN,2,9,10,1,1400
VDELE,9,10,,1
NUMMRG,ALL
NUMCMP,ALL

!****生成上横梁****
KWPAVE,1
WPROTA,,-90,
K,,0,0,-200
K,,0,-300,-200
A,1,2,98,97
VEXT,73,,,1400
VGEN,2,11,,,,,6600

!****生成下横梁****
KWPAVE,13
CSYS,4
K,,-50,0,0
K,,-50,0,300
K,,-50,-300,0
K,,-50,-300,300
A,111,112,114,113
VEXT,85,,,1500
VGEN,2,13,,,,,2800
NUMMRG,ALL
NUMCMP,ALL

!****生成主梁横隔板****
KWPAVE,1
WPOFFS,,,400
V***W,1,,,
V***W,2,,,
*DO,i,16,38,2
WPOFFS,,,400
V***W,i,,,
V***W,i+1,,,
*ENDDO
WPOFFS,,,400
V***W,37,,,
V***W,38,,,
WPOFFS,,,400
V***W,37,,,
V***W,39,,,

!****生成上横梁的横隔板****
KWPAVE,1
WPROTA,,,90
WPOFFS,,,200
V***W,11,,,
V***W,12,,,
WPOFFS,,,300
V***W,47,,,
V***W,46,,,
WPOFFS,,,400
V***W,47,,,
V***W,12,,,
WPOFFS,,,300
V***W,47,,,
V***W,46,,,
NUMMRG,ALL
NUMCMP,ALL

!****生成支腿的横隔板****
KWPAVE,75
WPROTA,,90
V***W,3,,,
V***W,5,,,
V***W,7,,,
V***W,8,,,
WPOFFS,,,300
V***W,5,,,
V***W,7,,,
V***W,53,,,
V***W,55,,,
WPOFFS,,,300
V***W,5,,,
V***W,7,,,
V***W,8,,,
V***W,53,,,
WPOFFS,,,300
V***W,5,,,
V***W,7,,,
V***W,8,,,
V***W,55,,,
WPOFFS,,,300
V***W,5,,,
V***W,7,,,
V***W,8,,,
V***W,53,,,
NUMMRG,ALL
NUMCMP,ALL

!****生成下横梁的横隔板****
WPROTA,,90
KWPAVE,92
V***W,13,,,
V***W,14,,,
KWPAVE,89
V***W,13,,,
V***W,73,,,
KWPAVE,64
V***W,13,,,
V***W,14,,,
KWPAVE,61
V***W,78,,,
V***W,79,,,
WPOFFS,,,-400
V***W,78,,,
V***W,14,,,
NUMMRG,ALL
NUMCMP,ALL

VDELE,ALL
APLOT,ALL

!**********赋属性**********

!****主梁上盖板属性****
KWPAVE,1
ASEL,S,LOC,Y,0
ASEL,R,LOC,X,-6400,0
APLOT,ALL
AATT,1,5,1,0
ASEL,ALL
APLOT,ALL

!****主梁下盖板属性****
ASEL,S,LOC,X,-6400,0
ASEL,R,LOC,Y,300,500
APLOT,ALL
AATT,1,4,1,0
ASEL,ALL
APLOT,ALL

!****主梁外侧腹板属性****
ASEL,S,LOC,X,-6400,0
ASEL,R,LOC,Z,0
ASEL,R,LOC,Y,0,500
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL
ASEL,S,LOC,X,-6400,0
ASEL,R,LOC,Z,-1400
ASEL,R,LOC,Y,0,500
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL

!****主梁内侧腹板属性****
ASEL,S,LOC,X,-6400,0
ASEL,R,LOC,Z,-200
ASEL,R,LOC,Y,0,500
APLOT,ALL
AATT,1,4,1,0
ASEL,ALL
APLOT,ALL
ASEL,S,LOC,X,-6400,0
ASEL,R,LOC,Z,-1200
ASEL,R,LOC,Y,0,500
APLOT,ALL
AATT,1,4,1,0
ASEL,ALL
APLOT,ALL

!****上横梁上盖板属性****
ASEL,S,LOC,X,0,200
ASEL,R,LOC,Y,0
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL
ASEL,S,LOC,X,-6400,-6600
ASEL,R,LOC,Y,0
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL

!****上横梁下盖板属性****
ASEL,S,LOC,X,0,200
ASEL,R,LOC,Y,300
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL
ASEL,S,LOC,X,-6400,-6600
ASEL,R,LOC,Y,300
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL

!****上横梁四块端板属性****
ASEL,S,LOC,X,0,200
ASEL,R,LOC,Y,0,300
ASEL,R,LOC,Z,0
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
ASEL,S,LOC,X,0,200
ASEL,R,LOC,Y,0,300
ASEL,R,LOC,Z,-1400
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL
ASEL,S,LOC,X,-6400,-6600
ASEL,R,LOC,Y,0,300
ASEL,R,LOC,Z,0
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
ASEL,S,LOC,X,-6400,-6600
ASEL,R,LOC,Y,0,300
ASEL,R,LOC,Z,-1400
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL

!****上横梁侧板属性****
ASEL,S,LOC,X,0
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL
ASEL,S,LOC,X,200
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL
ASEL,S,LOC,X,-6400
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL
ASEL,S,LOC,X,-6600
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL

!****支腿外板属性****
ASEL,S,LOC,X,-1600,-2000
ASEL,R,LOC,Y,300,2400
ASEL,R,LOC,Z,0
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL
ASEL,S,LOC,X,-1600,-2000
ASEL,R,LOC,Y,300,2400
ASEL,R,LOC,Z,-1400
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL

ASEL,S,LOC,X,-4400,-4800
ASEL,R,LOC,Y,300,2400
ASEL,R,LOC,Z,0
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL
ASEL,S,LOC,X,-4400,-4800
ASEL,R,LOC,Y,300,2400
ASEL,R,LOC,Z,-1400
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL

!****支腿内板属性****
ASEL,S,LOC,X,-1600,-2000
ASEL,R,LOC,Y,300,2400
ASEL,R,LOC,Z,-200,-300
APLOT,ALL
AATT,1,4,1,0
ASEL,ALL
APLOT,ALL
ASEL,S,LOC,X,-1600,-2000
ASEL,R,LOC,Y,300,2400
ASEL,R,LOC,Z,-1200,-1100
APLOT,ALL
AATT,1,4,1,0
ASEL,ALL
APLOT,ALL

ASEL,S,LOC,X,-4400,-4800
ASEL,R,LOC,Y,300,2400
ASEL,R,LOC,Z,-200,-300
APLOT,ALL
AATT,1,4,1,0
ASEL,ALL
APLOT,ALL
ASEL,S,LOC,X,-4400,-4800
ASEL,R,LOC,Y,300,2400
ASEL,R,LOC,Z,-1200,-1100
APLOT,ALL
AATT,1,4,1,0
ASEL,ALL
APLOT,ALL

!****支腿侧板属性****
ASEL,S,LOC,X,-1600,-1650
ASEL,R,LOC,Y,500,2400
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL
ASEL,S,LOC,X,-2000,-1950
ASEL,R,LOC,Y,500,2400
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL

ASEL,S,LOC,X,-4400,-4450
ASEL,R,LOC,Y,500,2400
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL
ASEL,S,LOC,X,-4800,-4750
ASEL,R,LOC,Y,500,2400
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL
APLOT,ALL

!****下横梁上盖板属性****
ASEL,S,LOC,Y,2400
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL

!****下横梁下盖板属性****
ASEL,S,LOC,Y,2700
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL

!****下横梁侧板属性****
ASEL,S,LOC,X,-1650
ASEL,R,LOC,Y,2400,2700
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL
ASEL,S,LOC,X,-1950,-1950
ASEL,R,LOC,Y,2400,2700
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL

ASEL,S,LOC,X,-4450
ASEL,R,LOC,Y,2400,2700
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL
ASEL,S,LOC,X,-4750
ASEL,R,LOC,Y,2400,2700
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL
APLOT,ALL

!****下横梁四块端板属性****

ASEL,S,LOC,Z,50
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL
ASEL,S,LOC,Z,-1450
APLOT,ALL
AATT,1,3,1,0
ASEL,ALL
APLOT,ALL

!****隔板属性****
ASEL,S,LOC,X,0,-6400
ASEL,R,TYPE,,,
APLOT,ALL
AATT,1,2,1,0
ASEL,ALL
APLOT,ALL
ASEL,S,TYPE,,,
APLOT,ALL
AATT,1,1,1,0
ASEL,ALL
APLOT,ALL
NUMMRG,ALL
NUMCMP,ALL

!**********建立有限元模型**********

ESIZE,100
AMESH,ALL
MSHAPE,0,2D
MSHKEY,0
SAVE
FINISH

luanyongxian

好，我也刚开始学习，可惜没有资料编写界面

ydyz

编写什么界面，你是说跟其他软件的接口？

ydyz

你在试试。我这可以的，我运行了好多变的