隧道开挖(三维)的命令流

发布日期:[08-12-04 12:33:13] 浏览人次:[]

_YS=1
MAT_GXW=2
MAT_MG=3
MAT_DB=4
MAT_SD=5
MAT_MGKW=6
MAT_TXYS=1
KBEGIN=0
*DO,I,1,9-1
*DO,J,1,(Y_YJMAX-Y_YJMIN)/PJ_MG+3-1
K,KBEGIN+1,DBKZDX(I,1),H_JS,DBKZDZ(J,1)
K,KBEGIN+2,DBKZDX(I,1),DBKZDGC(I,J),DBKZDZ(J,1)
K,KBEGIN+3,DBKZDX(I,1),DBKZDGC(I,J+1),DBKZDZ(J+1,1)
K,KBEGIN+4,DBKZDX(I,1),H_JS,DBKZDZ(J+1,1)

K,KBEGIN+5,DBKZDX(I+1,1),H_JS,DBKZDZ(J,1)
K,KBEGIN+6,DBKZDX(I+1,1),DBKZDGC(I+1,J),DBKZDZ(J,1)
K,KBEGIN+7,DBKZDX(I+1,1),DBKZDGC(I+1,J+1),DBKZDZ(J+1,1)
K,KBEGIN+8,DBKZDX(I+1,1),H_JS,DBKZDZ(J+1,1)
V,KBEGIN+1,KBEGIN+2,KBEGIN+3,KBEGIN+4,KBEGIN+5,KBEGIN+6,KBEGIN+7,KBEGIN+8

KBEGIN=KBEGIN+8
*ENDDO
*ENDDO
ALLS
VGLUE,ALL
NUMCMP,ALL
VATT,MAT_YS
!*
CYL4,CEN_ZSD(1,1),CEN_ZSD(2,1),R_HJ+L_MG,180,,,L_ZTZ+L_YTZ+Y_YJMAX-Y_YJMIN
CYL4,CEN_YSD(1,1),CEN_YSD(2,1),R_HJ+L_MG,180,,,L_ZTZ+L_YTZ+Y_YJMAX-Y_YJMIN
BLOCK,CEN_ZSD(1,1)-R_HJ-L_MG,CEN_ZSD(1,1)+R_HJ+L_MG,CEN_ZSD(2,1)-H_ZQ,CEN_ZSD(2,1),DBKZDZ(1,1),DBKZDZ((Y_YJMAX-Y_YJMIN)/PJ_MG+3,1)
BLOCK,CEN_YSD(1,1)-R_HJ-L_MG,CEN_YSD(1,1)+R_HJ+L_MG,CEN_YSD(2,1)-H_ZQ,CEN_YSD(2,1),DBKZDZ(1,1),DBKZDZ((Y_YJMAX-Y_YJMIN)/PJ_MG+3,1)
!*
VSEL,ALL
VSEL,S,MAT,,MAT_YS
CM,V_BSUB,VOLU
VSEL,INVE
CM,V_SUB,VOLU
ALLS
VSBV,V_BSUB,V_SUB
CMDEL,V_BSUB
CMDEL,V_SUB
ALLS
NUMCMP,ALL
VATT,MAT_YS
!*
*DO,I,1,(Y_YJMAX-Y_YJMIN)/PJ_MG+3-1
WPAVE,CEN_ZSD(1,1),CEN_ZSD(2,1),DBKZDZ(I,1)
CYL4,0,0,R_HJ+L_MG,180,R_HJ,,DBKZDZ(I+1,1)-DBKZDZ(I,1)
CYL4,0,0,R_HJ,180,,,DBKZDZ(I+1,1)-DBKZDZ(I,1)
BLOCK,-R_HJ,R_HJ,-H_CTOB,0,0,DBKZDZ(I+1,1)-DBKZDZ(I,1)
BLOCK,-R_HJ,R_HJ,-H_ZQ,-H_CTOB,0,DBKZDZ(I+1,1)-DBKZDZ(I,1)
BLOCK,-R_HJ-L_MG,-R_HJ,-H_ZQ,0,0,DBKZDZ(I+1,1)-DBKZDZ(I,1)
BLOCK,R_HJ,R_HJ+L_MG,-H_ZQ,0,0,DBKZDZ(I+1,1)-DBKZDZ(I,1)
WPAVE,CEN_YSD(1,1),CEN_YSD(2,1),DBKZDZ(I,1)
CYL4,0,0,R_HJ+L_MG,180,R_HJ,,DBKZDZ(I+1,1)-DBKZDZ(I,1)
CYL4,0,0,R_HJ,180,,,DBKZDZ(I+1,1)-DBKZDZ(I,1)
BLOCK,-R_HJ,R_HJ,-H_CTOB,0,0,DBKZDZ(I+1,1)-DBKZDZ(I,1)
BLOCK,-R_HJ,R_HJ,-H_ZQ,-H_CTOB,0,DBKZDZ(I+1,1)-DBKZDZ(I,1)
BLOCK,-R_HJ-L_MG,-R_HJ,-H_ZQ,0,0,DBKZDZ(I+1,1)-DBKZDZ(I,1)
BLOCK,R_HJ,R_HJ+L_MG,-H_ZQ,0,0,DBKZDZ(I+1,1)-DBKZDZ(I,1)
*ENDDO

ALLS
VGLUE,ALL
NUMCMP,ALL
CM,ROCK,VOLU

WPAVE,0,0,0
*IF,FLAG_RD,EQ,-1,OR,FLAG_RD,EQ,2,THEN
VSTART=1000
NUMSTR,VOLU,VSTART
BLOCK,Z_RDCC(1,2)-Z_RDCC(1,1)/2,Z_RDCC(1,2)+Z_RDCC(1,1)/2,Z_RDCC(2,2)-Z_RDCC(2,1)/2,Z_RDCC(2,2)+Z_RDCC(2,1)/2,Z_RDCC(3,2)-Z_RDCC(3,1)/2,Z_RDCC(3,2)+Z_RDCC(3,1)/2
VSBV,ROCK,VSTART
NUMCMP,VOLU
ALLS
CMDEL,ROCK
CM,ROCK,VOLU
*ENDIF
*IF,FLAG_RD,EQ,1,OR,FLAG_RD,EQ,2,THEN
VSTART=1000
NUMSTR,VOLU,VSTART
BLOCK,Y_RDCC(1,2)-Y_RDCC(1,1)/2,Y_RDCC(1,2)+Y_RDCC(1,1)/2,Y_RDCC(2,2)-Y_RDCC(2,1)/2,Y_RDCC(2,2)+Y_RDCC(2,1)/2,Y_RDCC(3,2)-Y_RDCC(3,1)/2,Y_RDCC(3,2)+Y_RDCC(3,1)/2
VSBV,ROCK,VSTART
NUMCMP,VOLU
ALLS
CMDEL,ROCK
CM,ROCK,VOLU
*ENDIF
ALLS
NUMCMP,ALL
!*
!----------------------------------------------------------------------------------------------------------------------!
!*
A
|<< << < 1 2 3 4 5 6 > >> >>|
www.mapeng.net 马棚网
www.mapeng.net
文章作者:未知 | 文章来源:网络 | 责任编辑:admin | 发送至邮箱: | 加入收藏:
本文关键字:隧道  开挖  三维  命令流
相关资讯
热点资讯
推荐资讯

关于我们 | 站点导航 | 使用帮助 | 友情链接 | 广告服务 | 免责声明 | 新手上路
设为首页 | 加入收藏 | 在线留言 | 马棚网QQ群:{92562572}{102901272}{333259257} | 交流QQ: 客户服务 客户服务 客户服务