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

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

LLS
VATT,MAT_YS
ALLS
VSEL,S,LOC,X,CEN_ZSD(1,1)-1E-7,CEN_ZSD(1,1)+1E-7
CM,CM_TEMPV,VOLU
ASLV,R
ASEL,R,LOC,Y,CEN_ZSD(2,1)-H_ZQ-1E-7,CEN_ZSD(2,1)-H_ZQ+1E-7
VSLA,R
CM,CM_ZDB,VOLU
CMSEL,S,CM_TEMPV
ASLV,S
ASEL,R,LOC,Y,CEN_ZSD(2,1)-1E-7,CEN_ZSD(2,1)+1E-7
ASEL,U,LOC,X,CEN_ZSD(1,1)-R_HJ,CEN_ZSD(1,1)-R_HJ-L_MG
ASEL,U,LOC,X,CEN_ZSD(1,1)+R_HJ,CEN_ZSD(1,1)+R_HJ+L_MG
VSLA,R
CM,CM_ZSD,VOLU
CMSEL,S,CM_ZSD
CMSEL,A,CM_ZDB
VATT,MAT_SD
CM,CM_ZSDKW,VOLU
ALLS
CMSEL,S,CM_TEMPV
VSEL,U,MAT,,MAT_SD
ASLV,R
ASEL,R,LOC,Y,CEN_ZSD(2,1)
VSEL,ALL
VSLA,R
VATT,MAT_MGKW
CM,CM_ZMG,VOLU
!右隧道
ALLS
VSEL,S,LOC,X,CEN_YSD(1,1)-1E-7,CEN_YSD(1,1)+1E-7
CM,CM_TEMPV,VOLU
ASLV,R
ASEL,R,LOC,Y,CEN_YSD(2,1)-H_ZQ-1E-7,CEN_YSD(2,1)-H_ZQ+1E-7
VSLA,R
CM,CM_YDB,VOLU
CMSEL,S,CM_TEMPV
ASLV,S
ASEL,R,LOC,Y,CEN_YSD(2,1)-1E-7,CEN_YSD(2,1)+1E-7
ASEL,U,LOC,X,CEN_YSD(1,1)-R_HJ,CEN_YSD(1,1)-R_HJ-L_MG
ASEL,U,LOC,X,CEN_YSD(1,1)+R_HJ,CEN_YSD(1,1)+R_HJ+L_MG
VSLA,R
CM,CM_YSD,VOLU
CMSEL,S,CM_YSD
CMSEL,A,CM_YDB
VATT,MAT_SD
CM,CM_YSDKW,VOLU
ALLS
CMSEL,S,CM_TEMPV
VSEL,U,MAT,,MAT_SD
ASLV,R
ASEL,R,LOC,Y,CEN_YSD(2,1)
VSEL,ALL
VSLA,R
VATT,MAT_MGKW
CM,CM_YMG,VOLU

ALLS

CMDEL,CM_TEMPV
ALLS
ASEL,S,LOC,X,DBKZDX(1,1)
ASEL,A,LOC,X,DBKZDX(9,1)
DA,ALL,UX,0
ALLS
ASEL,S,LOC,Z,DBKZDZ(1,1)
ASEL,A,LOC,Z,DBKZDZ((Y_YJMAX-Y_YJMIN)/PJ_MG+3,1)
DA,ALL,UZ,0
ALLS
ASEL,S,LOC,Y,H_JS
DA,ALL,ALL
ALLS

LTS_ZD=2
LTS_YD=2
*DIM,ZLT_HFX,ARRAY,LTS_ZD,1
ZLT_HFX(1,1)=5,3 !4,2
*DIM,YLT_HFX,ARRAY,LTS_YD,1
YLT_HFX(1,1)=5,3 !4,2
*DIM,LT_HFZ,ARRAY,(Y_YJMAX-Y_YJMIN)/PJ_MG+2
LT_HFZ(1,1)=4
*DO,I,2,(Y_YJMAX-Y_YJMIN)/PJ_MG+1
LT_HFZ(I,1)=2 !PJ_MG
*ENDDO
LT_HFZ((Y_YJMAX-Y_YJMIN)/PJ_MG+2,1)=4 !10

*DO,J,1,LTS_ZD
*DO,I,1,(Y_YJMAX-Y_YJMIN)/PJ_MG+3-1
X_VCEN=(DBKZDX(J,1)+DBKZDX(J+1,1))/2
Z_VCEN=(DBKZDZ(I,1)+DBKZDZ(I+1,1))/2
VSEL,S,LOC,X,X_VCEN-1E-7,X_VCEN+1E-7
VSEL,R,LOC,Z,Z_VCEN-1E-7,Z_VCEN+1E-7
ASLV,R
LSLA,R
CM,CM_HFX,LINE
LSEL,R,LOC,X,X_VCEN
LESIZE,ALL,,,ZLT_HFX(J,1),,1
CMSEL,S,CM_HFX
LSEL,R,LOC,Z,Z_VCEN
LESIZE,ALL,,,LT_HFZ(I,1),,1
CMSEL,S,CM_HFX
LSEL,U,LOC,X,X_VCEN
LSEL,U,LOC,Z,Z_VCEN
LESIZE,ALL,,,9,,1
CMSEL,S,CM_HFX
MSHAPE,0,3D
MSHKEY,1
VMESH,ALL
ALLS
*ENDDO
!右端
*DO,I,1,(Y_YJMAX-Y_YJMIN)/PJ_MG+3-1
X_VCEN=(DBKZDX(9-J+1,1)+DBKZDX(9-J,1))/2
Z_VCEN=(DBKZDZ(I,1)+DBKZDZ(I+1,1))/2
VSEL,S,LOC,X,X_VCEN-1E-7,X_VCEN+1E-7
VSEL,R,LOC,Z,Z_VCEN-1E-7,Z_VCEN+1E-7
ASLV,R
LSLA,R
CM,CM_HFX,LINE
LSEL,R,LOC,X,X_VCEN
LESIZE,ALL,,,YLT_HFX(J,1),,1
CMSEL,S,CM_HFX
LSEL,R,LOC,Z,Z_VCEN
LESIZE,ALL,,,LT_HFZ(I,1),,1
CMSEL,S,CM_HFX
LSEL,U,LOC,X,X_VCEN
LSEL,U,LOC,Z,Z_VCEN
LESIZE,ALL,,,10,,1
CMSEL,S,CM_HFX
MSHAPE,0,3D
MSHKEY,1
VMESH,ALL
ALLS
*ENDDO

*ENDDO
*DO,I,1,(Y_YJMAX-Y_YJMIN)/PJ_MG+3-1
CMSEL,S,CM_ZSDKW
ASLV,R
LSLA,R

X_VCEN=CEN_ZSD(1,1)
Z_VCEN=(DBKZDZ(I,1)+DBKZDZ(I+1,1))/2
VSEL,R,LOC,Z,Z_V
|<< << < 1 2 3 4 5 6 > >> >>|
www.mapeng.net 马棚网
www.mapeng.net
文章作者:未知 | 文章来源:网络 | 责任编辑:admin | 发送至邮箱: | 加入收藏:
本文关键字:隧道  开挖  三维  命令流
相关资讯
热点资讯
推荐资讯

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