| 查看: 1404 | 回复: 5 | ||
| 【悬赏金币】回答本帖问题，作者1216565504将赠送您 10 个金币 | ||
1216565504铜虫 (正式写手)
|
[求助]
为什么apdl切割删除多余体，总有一部分选不中呢？ 已有1人参与
|
|
|
如下图，以正方体的六个面进行切割，然后反选删除多余体，可是总有一些体删不掉，这是怎么回事呢？而且只出现在y轴的两个面上，三个方向的命令都是一样的。 大神们帮帮忙看看吧，小弟实在理解不了 发自小木虫Android客户端 |
回复此楼» 猜你喜欢
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有5人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有4人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有4人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有6人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有4人回复
1216565504
铜虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 41
- 散金: 47
- 帖子: 535
- 在线: 26.4小时
- 虫号: 23547214
- 注册: 2020-09-17
- 专业: 工程热物理相关交叉领域
2楼2022-01-13 15:37:40
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
1216565504
铜虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 41
- 散金: 47
- 帖子: 535
- 在线: 26.4小时
- 虫号: 23547214
- 注册: 2020-09-17
- 专业: 工程热物理相关交叉领域
4楼2022-01-13 15:47:25
1216565504
铜虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 41
- 散金: 47
- 帖子: 535
- 在线: 26.4小时
- 虫号: 23547214
- 注册: 2020-09-17
- 专业: 工程热物理相关交叉领域
5楼2022-01-13 15:47:59
6楼2022-01-16 09:24:14
10