用APDL生成DXF文件.docVIP

用APDL生成DXF文件 dxfTOansys:用APDL生成DXF文件，再用AUTOCAD出图 dxfTOansys:用APDL生成DXF文件，再用AUTOCAD出图 软件直接装换为 Ansys 输入格式。前处理状态下，选 Read Input From 菜单输入。 优点： 常用的非三维实体都能转换。由于转换Keypoint 初始值可选，你用AutoCAD建模时可以各部分单独建，在Ansys中单独输入! 缺点： 转换实体类型较少 （一）绘制计算结果图形，是我们都面临的问题，如何方便的绘制图形，用APDL生成DXF文件，再用AUTOCAD出图，是一种较好的办法. 下面，提供一个实例。 杆系结构非线性分析--结构变形图与AutoCAD的借口。 finish /CLEAR,START !这里定义何子步出图及变形放大比例. !scalebx----变形放大或缩小系数，缺省为1 !zbcad------第几荷载步需要画出的定义,缺省为最后荷载步 !zbsub------该荷载步的第几子步,缺省为最后子步 !注：从post1中的results summary...中可以看到上述数值 !从对话框输入上述参数 multipro,#39;start#39;,3 !对话框输入数值 *cset,1,3,zbcad,#39;loadsetp number for drawing#39; *cset,4,6,zbsub, #39;substep number for drawing#39; *cset,7,9,scbx1, #39;displacement scale factor#39; multipro,#39;end#39; 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=#39;zh#39; *else name2=chrval(zbcad) *endif *if,zbsub,eq,0,then name3=#39;zh#39; *else name3=chrval(zbsub) *endif name4=strcat(name2,name3) name1=strcat(#39;ac#39;,name4) /post1 /nopr /out,name1,dxf *vwrite,#39;0#39; (a1) *vwrite,#39;SECTION#39; (a7) *vwrite,#39;2#39; (a1) *vwrite,#39;HEADER#39; (a6) *vwrite,#39;0#39; (a1) *vwrite,#39;ENDSEC#39; (a6) *vwrite,#39;0#39; (a1) *vwrite,#39;SECTION#39; (a7) !以上写头 *vwrite,#39;2#39; (a1) *vwrite,#39;TABLES#39; (a6) *vwrite,#39;0#39; (a1) *vwrite,#39;TABLE#39; (a5) *vwrite,#39;2#39; (a1) *vwrite,#39;LAYER#39; (a5) *vwrite,#39;70#39; (a2) *vwrite,#39;16#39; (a2) *vwrite,#39;0#39; (a1) *vwrite,#39;LAYER#39; (a5) *vwrite,#39;2#39; (a1) *vwrite,#39;1#39; (a1) *vwrite,#39;70#39; (a2) *vwrite,#39;64#39; (a2) *vwrite,#39;62#39; (a2) *vwrite,#39;1#39; (a1) *vwrite,#39;6#39; (a1) *vwrite,#3