求助，用命令流怎么删除筒体内的接管？

adidas04

fini
/cle
/prep7
P=2.0    ！压力
Dis=1350       !筒体内径
Ts=21.75        ！筒体壁厚
Ls=1000         ！接管距筒体端面的长度
Ld=1000         ！！接管距筒体端面的长度
Dot=200        ！接管外径
Tt=6           ！接管厚度
Le=1000         ！接管长度
Rist=10
Rost=20
a=90           ！接管与筒体角度   
C=0.25
yangs=2e5
ET,1,solid95
UIMP,1,ex,prxy,,yangs,0.3,,
Tdiv=2
Gdiv=0
IsSolu=0

!*****************************
!beginning
!/title,Stress Analysis in Ellipse head
*afun,deg
!*
TOLL=1e-5
diff=0.1
!*
Ris=Dis/2
Ros=Ris+Ts
Rot=Dot/2
Rit=Rot-Tt
Hc=Ros/sin(a)+Le
Pes=P*Ris*Ris/(Ros*Ros-Ris*Ris)
Pet=P*Rit*Rit/(Rot*Rot-Rit*Rit)
!!!以上为参数输入
k,101                 !坐标原点建立关键点
k,102,0,0,Ls-10       ！
k,1,0,Ris,-Ld         ！筒体底面内半径关键点              
k,2,0,Ros,-Ld          ！外半径关键点
k,3,0,Ris,Ls           ！同上
k,4,0,Ros,Ls            ！同上
l,1,2
l,1,3
l,2,4
l,3,4
al,all             ！连成线
vrota,1,,,,,,101,102,180,,        ！旋转成体180°
DRed_=Ros                    !被切分筒体的外半径
DRedi_=Ris                   !被切分筒体的内半径
Dt_=Rot                      !筒体上接管的外半径
Dkids_=5                     !被切分筒体建立时(通过截面建立)的开始节点号
Dkide_=8                     !被切分筒体建立时(通过截面建立)的结束节点号
Dh_=2*Dt_                    !用来切分筒体的圆环柱总高的一半
Da_=180*Dh_/3.1415926/DRed_  !圆环柱半角
CYLIND,1.3*DRed_,0,-Dh_,Dh_,90-Da_,90+Da_,
ksel,s,,,Dkids_,Dkide_         
lslk,s,1                           ！选择与关键点相关的点
asll,s,1             ！选择相关的面
vsla,s        ！选择相关的体
csys,1          ！转到柱坐标下
asel,s,loc,y,90-Da_-diff,90-Da_+diff    !asel,s,loc,x,4,6   
                                       
asel,a,loc,y,90+Da_-diff,90+Da_+diff  !
asel,a,loc,z,-Dh_-diff,-Dh_+diff
asel,a,loc,z,Dh_-diff,Dh_+diff
vsba,all,all,,,keep                     
vsel,s,loc,y,90-Da_-diff,90+Da_+diff
vsel,r,loc,z,-Dh_-diff,Dh_+diff           ！
asel,s,loc,x,DRedi_-diff,DRed_+diff ！
lsla,s asll,s,1
vsla,u,1
vdele,all,,,1   
DRed_=
DRedi_=
Dt_=
Dh_=
Dkids_=
Dkide_=
!************
NUMCMP,VOLU        
wpoff,0,Ros,0     
wprota,0,-180+a,0
wpstyle,0.05,0.1,-1,1,0.003,1,2,,5  
CSWPLA,11,1,1,1,
CYLIND,Rot,Rit,-Ros/sin(a),Le,90,270, ！
csys,0
wpcsys,-1,0
ksel,s,,,1
lslk,s
ksll,s
ksel,u,loc,z,-Ld-diff,-Ld+diff
KID1=kpnext(0)
ksel,s,,,2
lslk,s
ksll,s
ksel,u,loc,z,-Ld-diff,-Ld+diff
KID2=kpnext(0)
ksel,s,,,3
lslk,s
ksll,s
ksel,u,loc,z,Ls-diff,Ls+diff
KID3=kpnext(0)
ksel,s,,,4
lslk,s
ksll,s
ksel,u,loc,z,Ls-diff,Ls+diff
KID4=kpnext(0)                     
ksel,s,,,kid1
ksel,a,,,kid2
ksel,a,,,kid3
ksel,a,,,kid4
lslk,s,1               
asll,s,1
vsla,s
no1=vlnext(0)               
allsel,all
vovlap,no1,4  
csys,11
wpcsys,-1
ksel,s,loc,x,Rit-diff,Rit+diff  
csys,0
ksel,r,loc,x,-diff,diff
csys,1
ksel,r,loc,x,Ros-diff,Ros+diff
lslk,s,1
asll,s,1
vsla,s
vdele,all,,,1                           
allsel,all
本人新手，怎么用命令流删除筒体内的接管？急用，求大侠给个删接管的命令流

古月长弓

如果是这种变化的话
可以这样做
VDEL,6,,,1