24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

逍遥蚊鸟

木虫 (小有名气)

应助: 0 (幼儿园)
金币: 1648.1
散金: 50
帖子: 276
在线: 93.8小时
虫号: 3735697
注册: 2015-03-13
专业: 工程热物理与能源利用

[交流] ANSYS软件创建2个宏按钮，可是第2个后处理按钮没法应！谢谢了，下面附上2个宏命令流.已有2人参与

ANSYS软件创建2个宏按钮，可是第2个后处理宏运行没法应，但是将第2个宏的命令流复制到  命令输入窗口  就能出结果！谢谢了，下面附上2个宏命令流；
第一个宏：
/COM,ANSYS RELEASE 15.0 UP20131014    09:33:21 03/06/2016
! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES
/TITLE,small baby
/PREP7
!*
ET,1,PLANE183
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0

multipro,'start',2
*cset,1,3,Ex_mat,'Youngs modulus(Pa)',2.2e11
*cset,4,6,PRXY_mat,'Poissons rato',0.3
*cset,7,9,Dens_mat,'density(Kg/m^3)',7800
*cset,61,62,'Enter the Attributes of','Material'
*cset,63,64,'Note:Uint of Each Parameter!',''
multipro,'end'
*IF,_BUTTON,EQ,1,THEN
  /EOF
*ENDIF

MP,EX,1,Ex_mat
MP,PRXY,1,PRXY_mat
MP,DENS,1,Dens_mat
MPLIST,ALL,,EVLT

RECTNG,0,0.05,0,0.04,
PCIRC,0.009,0,0,360,
/PNUM,KP,0
/PNUM,LINE,0
/PNUM,AREA,1
/PNUM,VOLU,0
/PNUM,NODE,0
/PNUM,TABN,0
/PNUM,SVAL,0
/NUMBER,0
!*
/PNUM,ELEM,0
/REPLOT
!*
FINISH
/SOL
FINISH
/PREP7
FLST,3,1,5,ORDE,1
FITEM,3,2
AGEN, ,P51X, , , ,0.02, , , ,1
APLOT
ASBA,    1,    2
APLOT
/PNUM,KP,0
/PNUM,LINE,0
/PNUM,AREA,1
/PNUM,VOLU,0
/PNUM,NODE,0
/PNUM,TABN,0
/PNUM,SVAL,0
/NUMBER,0
!*
/PNUM,ELEM,0
/REPLOT
!*
NUMCMP,ALL
APLOT
/PNUM,KP,1
/PNUM,LINE,0
/PNUM,AREA,1
/PNUM,VOLU,0
/PNUM,NODE,0
/PNUM,TABN,0
/PNUM,SVAL,0
/NUMBER,0
!*
/PNUM,ELEM,0
/REPLOT
!*
LPLOT
FLST,5,5,4,ORDE,4
FITEM,5,1
FITEM,5,-3
FITEM,5,6
FITEM,5,-7
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,20, , , , ,1
!*
!*
AMAP,1,4,6,7,1
!*
EPLOT

FINISH
/SOL
!*
ANTYPE,0
LPLOT
FLST,5,2,4,ORDE,2
FITEM,5,6
FITEM,5,-7
LSEL,S, , ,P51X
NSLL,S,1
FLST,2,82,1,ORDE,7
FITEM,2,1
FITEM,2,82
FITEM,2,122
FITEM,2,-161
FITEM,2,222
FITEM,2,282
FITEM,2,-320
!*
/GO
D,P51X, ,0, , , ,UX, , , , ,
ALLSEL,ALL
LSEL,S, , ,    1
NSLL,S,1
LSEL,S, , ,    1
NSLL,S,1
FLST,2,41,1,ORDE,2
FITEM,2,1
FITEM,2,-41
!*
/GO
D,P51X, ,0, , , ,UX,UY, , , ,
ALLSEL,ALL
NSLL,S,1
FLST,2,320,1,ORDE,2
FITEM,2,1
FITEM,2,-320
/GO
!*

multipro,'start',1
*cset,1,3,PRES_mat,'PRES value',-1000
multipro,'end'
*IF,_BUTTON,EQ,1,THEN
  /EOF
*ENDIF
SF,P51X,PRES,PRES_mat
MPLIST,ALL,,EVLT

ALLSEL,ALL
EPLOT
!*
OUTPR,BASIC,ALL,
!*
OUTPR,BASIC,ALL,
!*
OUTPR,BASIC,ALL,
/STATUS,SOLU

SOLVE
FINISH
SAVE

第二个宏；
/POST1
set,last

FLST,5,4,1,ORDE,4
FITEM,5,10
FITEM,5,12
FITEM,5,100
FITEM,5,102
NSEL,S, , ,P51X
!*
PRNSOL,S,PRIN

FINISH

回复此楼