這是命令

finish 
/clear /prep7 
!定義單元屬性和實常數
!定義單元屬性
et,1,164
!定義材料類型，后期在K文件里修改
!隨意輸入，后期需要修改 
!!!
MP,DENS,1,2.5  
MP,EX,1,0.3
MP,NUXY,1,0.28 
!!!!
MP,DENS,2,110e-3
MP,EX,2,2.08
MP,NUXY,2,0.3  
!!!!!! 
MP,DENS,3,2.5  
MP,EX,3,0.3
MP,NUXY,3,0.28 
!!!
MP,DENS,4,2.5  
MP,EX,4,0.3
MP,NUXY,4,0.28 
!!!
MP,DENS,5,2.5  
MP,EX,5,0.3
/REPLOT,RESIZE 
! 關鍵點建立  
K, ,,,,
K, ,7000,,,
K, ,7000,5700,,
K, ,4000,5700,,
K, ,4000,7000,,
K, ,0,7000,,
K, ,3687.78,1200,, 
K, ,3743.78,1200,, 
K, ,4953.78,1200,, 
K, ,5010.78,1200,, 
K, ,3687.78,2700,, 
K, ,3743.78,2700,, 
K, ,4953.78,2700,, 
K, ,5010.78,2700,, 
K, ,4000,3262.67,, 
K, ,4000,3194.35,, 
K, ,4697.78,3262.53,,  
K, ,4697.78,3194.19,,  
K, ,4348.78,3362,, 
K, ,4348.78,3305,, 
! 連線
LSTR,       1,       2 
LSTR,       2,       3 
LSTR,       3,       4 
LSTR,       4,       5 
LSTR,       5,       6 
LSTR,       6,       1 
LSTR,       7,       8 
LSTR,       8,       9 
LSTR,       9,      10 
LSTR,       7,      11 
LSTR,       8,      12 
LSTR,       9,      13 
LSTR,      10,      14 
LARC,      11,      19,      15
LARC,      12,      20,      16
LARC,      14,      19,      17
LARC,      13,      20,      18
!建立硐室  
FLST,2,5,4 
FITEM,2,8  
FITEM,2,12 
FITEM,2,17 
FITEM,2,15 
FITEM,2,11 
AL,P51X
FLST,2,10,4
FITEM,2,9  
FITEM,2,13 
FITEM,2,16 
FITEM,2,14 
FITEM,2,10 
FITEM,2,7  
FITEM,2,11 
FITEM,2,15 
FITEM,2,17 
FITEM,2,12 
AL,P51X
! 建立巖體 
FLST,2,6,3 
FITEM,2,1  
FITEM,2,2  
FITEM,2,3  
FITEM,2,4  
FITEM,2,5  
FITEM,2,6  
A,P51X 
! 生成局部矩形
RECTNG,3600,5097.56,1150,3400, 
aptn,all