[讨论]APDL命令流挑战赛一

[dnping]

虽然不懂，但是还是支持版主的工作……

[windows251]

finish
/CLEAR,NOSTART 
/prep7
CYL4,0,0,0.5,36,0.2,0  
CYL4,0.3,0.1,0.07,360,0,0  
ASBA,1,2
VOFFST,3,0.1,,
CSYS,1  
VGEN,10,1,,,,36,,,1
CYL4,0,0,0.2,,,,0.1
VGLUE,all
save,all
finish

[windows251]

fini
/cle
/title,test
/prep7
n=5    !!!孔的个数
cyl4,,,10,,,,4
*do,i,1,n
  wpoffs,6,,
  CYLIND,2, ,0,4,0,360
  *get,vnum,volu,,num,max
  vsel,u,,,vnum
  cm,v_all,volu
  vsel,all
  vsbv,v_all,vnum
  wpoffs,-6,,
  wprota,360/n,,
  numcmp,volu
*enddo
fini

[windows251]

/prep7
R1=5
R2=0.8
cyl4,,,R1,,,360,1
*afun,deg
cyl4,2.5,0,R2,,,360,2
cyl4,-2.5,0,R2,,,360,2
csys,4
wprota,22.5
vsymm,y,2,3
wprota,22.5
vsymm,y,2,3
wprota,22.5
vsymm,y,2,3
csys,0
vsel,s,,,2,9,,1
cm,del2,volu
allsel,all
vsbv,1,del2
cmdele,del2
finish

[windows251]

fini
/clea
/prep7
pi=acos(-1)
R=10
r1=6
r2=2
cylind,R,,0,3
*do,i,0,4
cyl4,r1*cos(i*2*pi/5),r1*sin(i*2*pi/5),r2,,,,3
vsbv,1,2,1,delete,delete
numcmp,volu
*enddo

[windows251]

相对来说，第五个和第七个的模型与要求比较符合。
第五个命令流的通用性比较强，可以通过修改n值来建立不同的模型。

[wenlihui20062189]

太喜欢楼主了！我又学到好多东西！以后一定常来逛逛！

第七个我改了一下不知对不对，望各位大侠指教：
fini
/clea
/prep7
pi=acos(-1)
R=10
r1=6
r2=2
n=5 !孔个数
m=3 !板厚度
cylind,R,,0,m
*do,i,0,n-1
cyl4,r1*cos(i*2*pi/n),r1*sin(i*2*pi/n),r2,,,,3
vsbv,1,2,1,delete,delete !这里没看懂
numcmp,volu
*enddo