24小时热门版块排行榜

返回列表

【悬赏金币】回答本帖问题，作者1216565504将赠送您 10 个金币

1216565504

铜虫 (正式写手)

应助: 0 (幼儿园)
金币: 41
散金: 47
帖子: 535
在线: 26.4小时
虫号: 23547214
注册: 2020-09-17
专业: 工程热物理相关交叉领域

[求助] 为什么apdl切割删除多余体，总有一部分选不中呢？已有1人参与

如下图，以正方体的六个面进行切割，然后反选删除多余体，可是总有一些体删不掉，这是怎么回事呢？而且只出现在y轴的两个面上，三个方向的命令都是一样的。
大神们帮帮忙看看吧，小弟实在理解不了

发自小木虫Android客户端

回复此楼

» 猜你喜欢

面上提前没消息，有中的吗已经有9人回复
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急已经有12人回复
面上再次挂了，太难了，躺也躺不了，倦也卷不过，小学校之殇！已经有23人回复
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急已经有13人回复
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急已经有16人回复
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急已经有14人回复
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急已经有17人回复
2026年国自然面上资助率已经有21人回复
基础研究怎么拉横向，学校到款任务越来越多，难以完成拉横向，都有哪些途径啊已经有10人回复
2027年申博已经有3人回复

1楼 2022-01-13 15:37:31

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

1216565504

铜虫 (正式写手)

应助: 0 (幼儿园)
金币: 41
散金: 47
帖子: 535
在线: 26.4小时
虫号: 23547214
注册: 2020-09-17
专业: 工程热物理相关交叉领域

发自小木虫Android客户端

赞一下

回复此楼

2楼2022-01-13 15:37:40

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

1216565504

铜虫 (正式写手)

应助: 0 (幼儿园)
金币: 41
散金: 47
帖子: 535
在线: 26.4小时
虫号: 23547214
注册: 2020-09-17
专业: 工程热物理相关交叉领域

/clear
!****************************************************************************
!文件说明段
!****************************************************************************
/FILNAME,CM,1
/TITLE, Composite material
/REPLOT
/units,si
!****************************************************************************
!设置材料属性
!****************************************************************************

这是命令流程序
/PREP7
ET,1,SOLID70
MP,KXX,1,0.5
MP,KXX,2,50
!****************************************************************************
!绘制分析模型
!****************************************************************************
XMAX=100
YMAX=100
ZMAX=100 !设定模型尺寸
RMIN=15
RMAX=20 !设定球形半径
NUM_TOTAL=10 !设定球个数
*DO,I,1,1000000
LOC_X=RAND(-XMAX/2+5,XMAX/2-5)
LOC_Y=RAND(-YMAX/2+5,YMAX/2-5)
LOC_Z=RAND(-ZMAX/2+5,ZMAX/2-5)
RADIUS=RAND(RMIN,RMAX)
!生成球体
WPOFFS,LOC_X,LOC_Y,LOC_Z
SPH4,0,0, RADIUS
*GET,VOLU_NUM,VOLU,0,COUNT
M= VOLU_NUM

!WPROTA,30,
!CSWPLA,11,1
!CSYS,11
!VGEN, ,M, , ,, 30, , , ,1

CSYS,0
WPCSYS,-1,0
!通过布尔运算判断球是否相交
*IF,M,GT,1,THEN
*DO,J,1,M-1
BOPTN,KEEP,1
BOPTN,NWARN,1
BOPTN,VERS,RV52
BTOL,1e-005,
VSBV,J,M                            !能重合相减生成2个体
*GET,VOLU_NUM,VOLU,0,COUNT
*IF,VOLU_NUM,GT,M,THEN                      !判断删除
VDELE,M,M+1,1,1
NUMCMP,VOLU
*EXIT
*ENDIF
*ENDDO
*ENDIF
*GET,VOLU_NUM,VOLU,0,COUNT
M= VOLU_NUM
!判断数目如果达到一定数目停止循环
*IF,M,GE,NUM_TOTAL,THEN
*EXIT
*ENDIF
*ENDDO
BLOCK,-XMAX/2,XMAX/2,-YMAX/2,YMAX/2,-ZMAX/2,ZMAX/2
!!!!!!!!!!!!!!!!!!!!!截掉体外面一部分的填充物!!!!!!!!!!!!!!!!
WPOFFS,-XMAX/2
WPROTA,,,90
BOPTN,KEEP,0       !不保留原体
BOPTN,NWARN,1
BOPTN,VERS,RV52
BTOL,1e-005,
VSBW,ALL
CSYS,0
WPCSYS,-1,0

WPOFFS,XMAX/2
WPROTA,,,90
BOPTN,KEEP,0       !不保留原体
BOPTN,NWARN,1
BOPTN,VERS,RV52
BTOL,1e-005,
VSBW,ALL
CSYS,0
WPCSYS,-1,0                      !使工作平面位置与当前坐标系平面一致

WPOFFS,,YMAX/2
WPROTA,,90,
BOPTN,KEEP,0       !不保留原体
BOPTN,NWARN,1
BOPTN,VERS,RV52
BTOL,1e-005,
VSBW,ALL
CSYS,0
WPCSYS,-1,0

WPOFFS,,-YMAX/2
WPROTA,,90,
BOPTN,KEEP,0       !不保留原体
BOPTN,NWARN,1
BOPTN,VERS,RV52
BTOL,1e-005,
VSBW,ALL
CSYS,0
WPCSYS,-1,0

WPOFFS,,,ZMAX/2
BOPTN,KEEP,0       !不保留原体
BOPTN,NWARN,1
BOPTN,VERS,RV52
BTOL,1e-005,
VSBW,ALL
CSYS,0
WPCSYS,-1,0

WPOFFS,,,-ZMAX/2
BOPTN,KEEP,0       !不保留原体
BOPTN,NWARN,1
BOPTN,VERS,RV52
BTOL,1e-005,
VSBW,ALL
CSYS,0
WPCSYS,-1,0

!反选删掉四周的体
VSEL,U,LOC,X,-XMAX/2,XMAX/2
VDELE,ALL,,,1
ALLS
VSEL,U,LOC,Y,-YMAX/2,YMAX/2
VDELE,ALL,,,1
ALLS
VSEL,U,LOC,Z,-ZMAX/2,ZMAX/2
VDELE,ALL,,,1
ALLS
VPLOT
!NUMCMP,VOLU
!NUMCMP,KP
!NUMCMP,LINE
!NUMCMP,AREA

赞一下

回复此楼

3楼2022-01-13 15:38:52

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖