RESUME,rail_2Dmesh,db ! 重新开始,导入二维网格划分后的模型
/prep7 ! 进入前处理
NUMMRG,ALL, , , ,LOW ! 合并重节点,保留低编号
NUMCMP,ALL ! 压缩编号
EXTOPT,ESIZE,30,-0.3 ! 拖拉设置,在拖拉方向产生30个单元,
! 最小的单元是最大单元的0.3,
! 负号表示中间的单元小,两头的单元大
EXTOPT,ACLEAR,0 ! 拖拉后不删除原来的面
EXTOPT,ATTR,0,0,0
MAT,1 ! 拖拉后,体的材料特性
REAL,_Z4 ! 拖拉后,体的实常数(默认)
ESYS,0 ! 单元坐标系(默认)
VOFFST,1,568, ! 将面1向正法线方向拖拉568个单位
VOFFST,2,568, ! 将面2向正法线方向拖拉568个单位
VOFFST,3,568, ! 将面3向正法线方向拖拉568个单位
NUMMRG,ALL, , , ,LOW
NUMCMP,ALL
EXTOPT,ESIZE,20, ! 拖拉设置,在拖拉方向产生20个单元,
! 各个单元大小相等
EXTOPT,ACLEAR,0
EXTOPT,ATTR,0,0,0
MAT,1
REAL,_Z4
ESYS,0
VOFFST,1,-568, ! 将面1向负法线方向拖拉568个单位
VOFFST,2,-568, ! 将面2向负法线方向拖拉568个单位
VOFFST,3,-568, ! 将面3向负法线方向拖拉568个单位
NUMMRG,ALL, , , ,LOW
NUMCMP,ALL
VGEN,2,4, , ,1136 ! 体复制,将4号体复制一份到沿正法线方向
! 1136单位处(以现在位置为起点的相对距离)
VGEN,2,5, , ,1136 ! 体复制,将5号体复制一份到沿正法线方向
! 1136单位处(以现在位置为起点的相对距离)
VGEN,2,6, , ,1136 ! 体复制,将6号体复制一份到沿正法线方向
! 1136单位处(以现在位置为起点的相对距离)
NUMMRG,ALL, , , ,LOW
NUMCMP,ALL
VGEN,2,4, , ,-568 ! 体复制,将4号体复制一份到沿负法线方向
! 568单位处(以现在位置为起点的相对距离)
VGEN,2,5, , ,-568 ! 体复制,将5号体复制一份到沿负法线方向
! 568单位处(以现在位置为起点的相对距离)
VGEN,2,6, , ,-568 ! 体复制,将6号体复制一份到沿负法线方向
! 568单位处(以现在位置为起点的相对距离)
NUMMRG,ALL, , , ,LOW
NUMCMP,ALL
VGEN,2,4, , ,1704
VGEN,2,5, , ,1704
VGEN,2,6, , ,1704
NUMMRG,ALL, , , ,LOW
NUMCMP,ALL
VGEN, ,ALL, , ,-284, , , , ,1 ! 体平移,将所有体沿负法线方向平移
! 284个单位(以现在位置为起点的相对距离)
NUMMRG,ALL, , , ,LOW
NUMCMP,ALL
NSEL,S,LOC,X,199,369 ! 轨枕处的约束
NSEL,R,LOC,Y,-79
D,ALL,ALL
ALLSEL,ALL
NSEL,S,LOC,X,767,937
NSEL,R,LOC,Y,-79
D,ALL,ALL
ALLSEL,ALL
NSEL,S,LOC,X,1335,1420
NSEL,R,LOC,Y,-79
D,ALL,ALL
ALLSEL,ALL
NSEL,S,LOC,X,-369,-199
NSEL,R,LOC,Y,-79
D,ALL,ALL
ALLSEL,ALL
NSEL,S,LOC,X,-937,-767
NSEL,R,LOC,Y,-79
D,ALL,ALL
ALLSEL,ALL
NSEL,S,LOC,X,-1420,-1335
NSEL,R,LOC,Y,-79
D,ALL,ALL
ALLSEL,ALL
SAVE,rail_3Dmesh_withoutLoad,db ! 保存数据库为文件格式
FINISH
RESUME,rail_3Dmesh_withoutLoad,db ! 重新开始分析,恢复rail_3Dmesh_withoutLoad.db
NSEL,S,LOC,X,0 ! 选择中跨跨中位置
NSEL,R,LOC,Y,94,100 ! 选择中跨跨中位置的轨头节点
NSEL,R,LOC,Z,-25.330,0 ! 选择中跨跨中位置的一侧轨头节点
/PNUM,NODE,1 ! 显示节点编号
/VIEW,1,-1 ! 视图方向控制
/ANG,1
/REPLOT ! 图形重画
NPLOT ! 节点重画
ALLSEL,ALL ! 选择所有
评论1