内圆柱面无法unselect的问题

浏览:106607
向各位老师、大侠请教一个问题:在盘鼓筒结构上打了一个孔,然后相用命令asel,u,loc,x,10取消对生成的内圆柱面的选择,但是反复试过多次都行不通,甚至还试图通过命令seltol,toler修改容差,但仍选不中!问题出在哪儿?该怎么解决?我写的程序在下面,请经验丰富的论坛大师们指点迷津!谢谢!内圆柱面无法unselect的问题的图1
FINISH
/CLEAR
!设定分析文件名称和分析标题
/FILNAME,CH09
/TITLE,static analysis of compressor structure with hole
/REPLOT
!进入前处理器
/PREP7
ET,1,SOLID45
KEYOPT,1,5,2 !指定输出结果-输出节点位移
MP,EX,1,1.15E5
MP,PRXY,1,0.30782
MP,DENS,1,4.48E-9
!根据坐标创建轮盘截面关键点
K,1,226,,208.8
K,2,226,,258.7
K,3,157,,258.7
K,4,237.5,,220.3
K,5,229.2,,220.3
K,6,237.5,,208.8
K,7,126,,276.7
K,8,138,,276.7
K,9,102.5,,263
K,10,102.5,,248.7
K,11,237.5,,273.8
K,12,237.5,,264.1
K,13,135,,248.7
K,14,243.85,,273.8
K,15,243.85,,254.8
K,16,229.2,,254.8
K,17,162.5,,264.1
!创建轮盘截面轮廓线
LSTR,1,2
LSTR,2,3
LSTR,1,6
LSTR,6,4
LSTR,4,5
LSTR,5,16
LSTR,16,15
LSTR,15,14
LSTR,14,11
LSTR,11,12
LSTR,12,17
LSTR,8,7
LSTR,7,9
LSTR,9,10
LSTR,10,13
LPLOT
LTAN,11,8 !创建切线
LTAN,2,13
AL,ALL !创建轮盘截面
!对盘截面进行旋转,生成基本扇区
K,18,0,0,0
K,19,0,0,300
VROTAT,ALL,,,,,,18,19,60 !指定截面绕关键点18,19形成的轴线旋转60度生成体
SAVE
!创建均压孔
WPROTA,30 !将工作平面绕Z轴逆时针旋转30度
CYL4,200,0,10,,,,300 !在工作平面的(200,0)位置创建半径为10,高度为300的圆柱
VSBV,1,2 !从已经创建的基本扇区中减去柱体,形成均压孔
SAVE
!对基本扇区进行分割
WPCSYS,-1,0 !将工作平面与总体笛卡尔坐标系对齐
LSTR,18,19
FLST,2,2,8
FITEM,2,0,0,0
FITEM,2,220,0,0
CIRCLE,P51X, , , ,60 !创建半径为220的圆弧线
FLST,2,2,8
FITEM,2,0,0,0
FITEM,2,180,0,0
CIRCLE,P51X, , , ,60 !创建半径为180的圆弧线
LSLA,U !去除关联于面的线
ADRAG,53, , , , , ,52 !将半径为220的圆弧线沿轴线拉伸成部分柱面
ADRAG,54, , , , , ,52 !将半径为180的圆弧线沿轴线拉伸成部分柱面
ALLSEL,ALL
ASLV,U !去除所有关联于体的面
VSBA,ALL,ALL
ALLSEL,ALL
WPROTA,,90
WPROTA,,,21
VSBW,ALL
WPROTA,,,9
VSBW,ALL
WPROTA,,,9
VSBW,ALL
LDELE,52,,,1 !删除轴线
CSYS,1
VSEL,S,LOC,X,180,220
CM,HOLEVOL,VOLU !用所选的体创建名为HOLEVOL的组件,便于后文引用
ALLSEL
VPLOT
!定义周期对称分析选项
ASEL,S,LOC,Y,0
CM,CYCLIC_M01L,AREA
ASEL,S,LOC,Y,60
CM,CYCLIC_M01H,AREA
ALLSEL
CYCLIC,6,60,1,'CYCLIC' !指定周期对称分析选项
!对扇区进行网格划分
ESIZE,3
!连接多余的面和线
CMSEL,S,HOLEVOL !选自组件HOLEVOL
VSEL,R,LOC,Y,21,30
ASLV,S
WPCSYS,-1,0
WPROTA,30
WPOFFS,200 !将工作平面原点移至均压孔圆心位置
CSWPLA,11,1,1,1,
ASEL,U,LOC,Z,264.1
ASEL,U,LOC,Z,258.7
ASEL,U,LOC,X,10 !!!!!!有问题的语句
CSYS,1
ASEL,U,LOC,Y,30
ACCAT,ALL
邀请回答 我来回答

当前暂无回答

回答可获赠 200金币

没解决?试试专家一对一服务

换一批
    App下载
    技术邻APP
    工程师必备
    • 项目客服
    • 培训客服
    • 平台客服

    TOP