《命令流共享-FLAC3D模型导入ANSYS中》由会员分享，可在线阅读，更多相关《命令流共享-FLAC3D模型导入ANSYS中（4页珍藏版）》请在装配图网上搜索。
1、;* get nodetotal & zone total *; Initialization def initializationIO_READ = 0 IO_WRITE = 1 IO_FISH = 0 IO_ASCII = 1 SuferFile=FLAC-ANSYS_MODEL.dat array message(1)end initializationdef writeheadpnt1=zone_headpnt2=gp_headZ_total=0P_total=0loop while pnt1 # nullZ_total=Z_total+1pnt1=z_next(pnt1)endloo
2、ploop while pnt2 # nullP_total=P_total+1pnt2=gp_next(pnt2)endloopmessage(1)=!- nmessage(1)=!Thisisa freesoftforconvertingthe model from Flac3d to Ansys!nmessage(1)=!Code by haitang 2006-05-30 nmessage(1)=!- nmessage(1)=!The Number of Nodes and Elements n message(1)=message(1)+!+string(P_total)+ , +s
3、tring(Z_total)+n message(1)=message(1)+/prep7 n message(1)=message(1)+ET,1,SOLID45status = write(message,1)enddefine GetElementsZ1_p=zone_headloop n (1,Z_total)Z1_code=z_code(Z1_p)Z1_No=z_id(Z1_p)Z1_Group=z_group(Z1_p)if Z1_code=0 thenmessage(1)=MAT, +string(Z1_Group)+nmessage(1)=message(1)+E, +stri
4、ng(gp_id(z_gp(Z1_p,1)message(1)=message(1)+,+ string(gp_id(z_gp(Z1_p,2)message(1)=message(1)+,+ string(gp_id(z_gp(Z1_p,5)message(1)=message(1)+,+ string(gp_id(z_gp(Z1_p,3)message(1)=message(1)+,+ string(gp_id(z_gp(Z1_p,4)message(1)=message(1)+,+ string(gp_id(z_gp(Z1_p,7)message(1)=message(1)+,+ stri
5、ng(gp_id(z_gp(Z1_p,8)message(1)=message(1)+,+ string(gp_id(z_gp(Z1_p,6)status = write(message,1)Z1_p=z_next(Z1_p)endifif Z1_code=1 thenmessage(1)=MAT, +string(Z1_Group)+nmessage(1)=message(1)+E, +string(gp_id(z_gp(Z1_p,1)message(1)=message(1)+,+string(gp_id(z_gp(Z1_p,2)message(1)=message(1)+,+string
6、(gp_id(z_gp(Z1_p,4)message(1)=message(1)+,+string(gp_id(z_gp(Z1_p,4)message(1)=message(1)+,+string(gp_id(z_gp(Z1_p,3)message(1)=message(1)+,+string(gp_id(z_gp(Z1_p,5)message(1)=message(1)+,+string(gp_id(z_gp(Z1_p,6)message(1)=message(1)+,+string(gp_id(z_gp(Z1_p,6)status = write(message,1)Z1_p=z_next
7、(Z1_p)endifif Z1_code=4 thenmessage(1)=MAT, +string(Z1_Group)+nmessage(1)=message(1)+E, +string(gp_id(z_gp(Z1_p,1)message(1)=message(1)+,+string(gp_id(z_gp(Z1_p,2)message(1)=message(1)+,+string(gp_id(z_gp(Z1_p,3)message(1)=message(1)+,+string(gp_id(z_gp(Z1_p,3)message(1)=message(1)+,+string(gp_id(z_
8、gp(Z1_p,4)message(1)=message(1)+,+string(gp_id(z_gp(Z1_p,4)message(1)=message(1)+,+string(gp_id(z_gp(Z1_p,4)message(1)=message(1)+,+string(gp_id(z_gp(Z1_p,4)status = write(message,1)Z1_p=z_next(Z1_p)endifif Z1_code=2 thenmessage(1)=MAT, +string(Z1_Group)+nmessage(1)=message(1)+E, +string(gp_id(z_gp(
9、Z1_p,1)message(1)=message(1)+,+string(gp_id(z_gp(Z1_p,2)message(1)=message(1)+,+string(gp_id(z_gp(Z1_p,5)message(1)=message(1)+,+string(gp_id(z_gp(Z1_p,3)message(1)=message(1)+,+string(gp_id(z_gp(Z1_p,4)message(1)=message(1)+,+string(gp_id(z_gp(Z1_p,4)message(1)=message(1)+,+string(gp_id(z_gp(Z1_p,4
10、)message(1)=message(1)+,+string(gp_id(z_gp(Z1_p,4)status = write(message,1)Z1_p=z_next(Z1_p)endifendloopENDDEFINE GetNodesmessage(1)=P1_p=gp_headloop n (1,P_total)node_id=gp_id(p1_p)message(1)=N, +string(node_id)message(1)=message(1)+,+string(gp_xpos(p1_p)message(1)=message(1)+,+string(gp_ypos(p1_p)
11、message(1)=message(1)+,+string(gp_zpos(p1_p)status = write(message,1)P1_p=gp_next(P1_p)endloopEND; Main Function def haitangstatus = closestatus = open(SuferFile,IO_WRITE,IO_ASCII) if status = 0 thenwriteheadmessage(1)=The Node coordination of X Y Z nGetNodesmessage(1)=!The Nodes id nums of Elements. nGetElementsmessage(1)=/PNUM,MAT,1 nmessage(1)=message(1)+ /REPLOT status = write(message,1)status = closeii = out(Successfully Write Data Into File + SuferFile)elseii=out(Open File Error! Status = + string(status) endifendhaitang
命令流共享-FLAC3D模型导入ANSYS中
