- 积分
- 26
- 注册时间
- 2005-4-1
- 仿真币
-
- 最后登录
- 1970-1-1
|
软件直接装换为 Ansys 输入格式。前处理状态下,选 Read Input From 菜单输入。
优点: 常用的非三维实体都能转换。由于转换Keypoint 初始值可选,你用AutoCAD建模时可以各部分单独建,在Ansys中单独输入!
缺点: 转换实体类型较少
(一)绘制计算结果图形,是我们都面临的问题,如何方便的绘制图形,用APDL生成DXF文件,再用AUTOCAD出图,是一种较好的办法.
下面,提供一个实例。
杆系结构非线性分析--结构变形图与AutoCAD的借口。
finish
/CLEAR,START
!这里定义何子步出图及变形放大比例.
!scalebx----变形放大或缩小系数,缺省为1
!zbcad------第几荷载步需要画出的定义,缺省为最后荷载步
!zbsub------该荷载步的第几子步,缺省为最后子步
!注:从post1中的results summary...中可以看到上述数值
!从对话框输入上述参数
multipro,'start',3 !对话框输入数值
*cset,1,3,zbcad,'loadsetp number for drawing'
*cset,4,6,zbsub, 'substep number for drawing'
*cset,7,9,scbx1, 'displacement scale factor'
multipro,'end'
scalebx=1
*if,scbx1,ne,0,then
scalebx=scbx1
*endif
allsel,all
!预处理过程---------------------------------------
/prep7
*get,sumelem,elem,0,count
*dim,elemno,,sumelem
*get,elem1,elem,0,num,min
elemno(1)=elem1
*do,i,2,sumelem
elemno(i)=elnext(elemno(i-1))
*enddo
/post26
nsol,8,1,u,y
!为AutoCAD的DXF文件写头文件-----------------------
*if,zbcad,eq,0,then
name2='zh'
*else
name2=chrval(zbcad)
*endif
*if,zbsub,eq,0,then
name3='zh'
*else
name3=chrval(zbsub)
*endif
name4=strcat(name2,name3)
name1=strcat('ac',name4)
/post1
/nopr
/out,name1,dxf
*vwrite,'0'
(a1)
*vwrite,'SECTION'
(a7)
*vwrite,'2'
(a1)
*vwrite,'HEADER'
(a6)
*vwrite,'0'
(a1)
*vwrite,'ENDSEC'
(a6)
*vwrite,'0'
(a1)
*vwrite,'SECTION'
(a7)
!以上写头
*vwrite,'2'
(a1)
*vwrite,'TABLES'
(a6)
*vwrite,'0'
(a1)
*vwrite,'TABLE'
(a5)
*vwrite,'2'
(a1)
*vwrite,'LAYER'
(a5)
*vwrite,'70'
(a2)
*vwrite,'16'
(a2)
*vwrite,'0'
(a1)
*vwrite,'LAYER'
(a5)
*vwrite,'2'
(a1)
*vwrite,'1'
(a1)
*vwrite,'70'
(a2)
*vwrite,'64'
(a2)
*vwrite,'62'
(a2)
*vwrite,'1'
(a1)
*vwrite,'6'
(a1)
*vwrite,'CONTIN','UOUS'
(a6,a4)
*vwrite,'0'
(a1)
*vwrite,'LAYER'
(a5)
*vwrite,'2'
(a1)
*vwrite,'2'
(a1)
*vwrite,'70'
(a2)
*vwrite,'64'
(a2)
*vwrite,'62'
(a2)
*vwrite,'3'
(a1)
*vwrite,'6'
(a1)
*vwrite,'CONTIN','UOUS'
(a6,a4)
*vwrite,'0'
(a1)
*vwrite,'ENDTAB'
(a6)
*vwrite,'0'
(a1)
*vwrite,'ENDSEC'
(a6)
*vwrite,'0'
(a1)
*vwrite,'SECTION'
(a7)
!以上创建两个层
*vwrite,'2'
(a1)
*vwrite,'ENTITIES'
(a8)
!进入画图过程-----------------
!画原图---------------
*do,i,1,sumelem
i1=nelem(elemno(i),1)
j1=nelem(elemno(i),2)
*vwrite,'0'
(a1)
*vwrite,'LINE'
(a4)
*vwrite,'8'
(a1)
*vwrite,'1'
(a1)
*vwrite,'10'
(a2)
*vwrite,nx(i1)
(f19.9)
*vwrite,'20'
(a2)
*vwrite,ny(i1)
(f19.9)
*vwrite,'30'
(a2)
*vwrite,nz(i1)
(f19.9)
*vwrite,'11'
(a2)
*vwrite,nx(j1)
(f19.9)
*vwrite,'21'
(a2)
*vwrite,ny(j1)
(f19.9)
*vwrite,'31'
(a2)
*vwrite,nz(j1)
(f19.9)
*enddo
!画变形图--------------------------
*if,zbcad,eq,0,then
*if,zbsub,eq,0,then
set,LAST
*else
set,LAST,zbsub
*endif
*else
*if,zbsub,eq,0,then
set,zbcad
*else
set,zbcad,zbsub
*endif
*endif
*do,i,1,sumelem
i1=nelem(elemno(i),1)
j1=nelem(elemno(i),2)
*vwrite,'0'
(a1)
*vwrite,'LINE'
(a4)
*vwrite,'8'
(a1)
*vwrite,'2'
(a1)
*vwrite,'10'
(a2)
*vwrite,nx(i1)+ux(i1)*scalebx
(f19.9)
*vwrite,'20'
(a2)
*vwrite,ny(i1)+uy(i1)*scalebx
(f19.9)
*vwrite,'30'
(a2)
*vwrite,nz(i1)+uz(i1)*scalebx
(f19.9)
*vwrite,'11'
(a2)
*vwrite,nx(j1)+ux(j1)*scalebx
(f19.9)
*vwrite,'21'
(a2)
*vwrite,ny(j1)+uy(j1)*scalebx
(f19.9)
*vwrite,'31'
(a2)
*vwrite,nz(j1)+uz(j1)*scalebx
(f19.9)
*enddo
!关闭DXF文件
*vwrite,'0'
(a1)
*vwrite,'ENDSEC'
(a6)
*vwrite,'0'
(a1)
*vwrite,'EOF'
(a3)
/com
/out
/go
scbx1=
zbcad=
scalebx=
sumelem=
elemno(1)=
elem1=
i1=
j1=
zbsub=
name1=
name2=
name3=
name4= |
评分
-
1
查看全部评分
-
|