注册 登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

火星号

new world,new start,new life

 
 
 

日志

 
 

APDL二次开发实例  

2010-10-14 16:03:30|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

 

finish
/clear
!包含以下9个宏文件
!frame-model.mac
!frame-pres.mac
!frame-plot-usum.mac
!frame-axis-force.mac
!frame-mx.mac
!frame-my.mac
!frame-mz.mac
!frame-AVI-seqv.mac
*create,frame_model,mac
/pmacro
multipro,'start',2
*cset,1,3,height,'height of frame:',10
*cset,4,6,width,'width of frame:',8
multipro,'end'
*if,_button,eq,1,then
/eof
*endif
!材料
*ask,N_mat,the material type of frame(1/2),1
*if,N_mat,NE,1,and,N_mat,NE,2,then
/eof
*endif
!截面形式
*ask,N_section,the section type of frame(1/2),1
*if,N_section,NE,1,and,N_section,NE,2,then
/eof
*endif
!根据参数创建有限元模型
*dim,Lxyz,,3,3
*if,N_section,eq,1,then
  lxyz(1,1)=1,0,-1
  lxyz(1,2)=0,0,0
  lxyz(1,3)=0,1,0
*else
  lxyz(1,1)=0,0,0
  lxyz(1,2)=1,1,-1
  lxyz(1,3)=0,0,0
*endif

/prep7
et,1,beam189
sectype,1,beam,I,H-sect,1
secoffset,cent
secdata,1,1,1,0.1,0.1,0.1,0,0,0,0,

sectype,2,beam,chan,U-sect,1
secoffset,cent
secdata,1,1,1,0.1,0.1,0.1,0,0,0,0,

MP,ex,1,1.96e11
mp,nuxy,1,0.32
mp,dens,1,7500
MP,ex,2,1e11
mp,nuxy,2,0.29
mp,dens,2,7800
!定义模型关键点
k,1,-width/2,,,
k,2,-width/2,0,height
k,3,width/2,0,height
k,4,width/2,,,
lstr,1,2
lstr,2,3
lstr,4,3
/pnum,kp,1
/pnum,line,1
/number,0
Gplot
k,11,kx(1)+lxyz(1,1),ky(1)+lxyz(1,2),kz(1)+lxyz(1,3)
k,12,kx(2)+lxyz(2,1),ky(2)+lxyz(2,2),kz(1)+lxyz(2,3)
k,13,kx(4)+lxyz(3,1),ky(4)+lxyz(3,2),kz(1)+lxyz(3,3)
lsel,s,,,1
latt,n_mat,,1,,11,,N_section
lsel,s,,,2
latt,N_mat,,1,,12,,N_section
lsel,s,,,3
latt,N_mat,,1,,13,,N_section
lsel,all
*if,width,gt,height,then
lesize,all,height/10,,,,,,,1
*else
lesize,all,width/10,,,,,,,1
*endif
/eshape,1
lmesh,all
save,model,db
*end
!2加载宏
finish
/clear,nostart
*create,frame_pres,mac
/pmacro
/filname,frame_pressure
resume,model,db
eplot
finish

/sol
dk,1,,,,0,all
dk,4,,,,0,all
!

multipro,'start',1
*cset,1,3,pres_top,'the pressure on top beam:',1000
multipro,'end'
*if,_button,eq,1,then
/eof
*endif
lsel,s,loc,z,height
allsel,below,line
*if,N_section,eq,1,then
sfbeam,all,1,pres,pres_top,pres_top
*else
sfbeam,all,2,pres,-pres_top,-pres_top
*endif
alls
solve
finish
*end
!3个宏
*create,frame_plot_usum,mac
/view,1,-0.5,-0.83,0.25
/ang,1,66
/post1
set,last
plnsol,u,sum,0,1
finish
*end
!4个宏
*create,frame_plot_seqv,mac
/view,1,,-1
/ang,1
/post1
set,last
etable,fx-I,smisc,1
etable,fx-J,smisc,14
plls,fx-I,fx-J,1,0
finish
*end
!将以下文件放在ANSYS的安装目录ANSYS inc/v120/ansys/apdl/start120.ans,注意该文件在ANSYS12.0以上版本在win7系统下正常显示,xp部分

!显示
!/psearch,F:\cc!将上述宏文件存到F盘aa文件夹下
!*abbr,frame_model,frame_model
!*abbr,frame_pres,frame_pres
!*abbr,frame_usum,frame_plot_usum
!*abbr,frame_seqv,frame_plot_seqv

  评论这张
 
阅读(595)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018