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

[windows251]

“自底向上”建模，点-—线——面——体

fini
/clear
/filn,wheel
/title,wheel
/prep7
k,1,0,0,0
k,2,0,0,12
k,3,1,0,0
circle,1,20,2,3,,,
al,all
*get,numkp,kp,,num,max
wpoff,0,10,
k,numkp+1,0,10,0
k,numkp+2,0,10,2
k,numkp+3,1,10,0
circle,numkp+1,4,numkp+2,numkp+3,,,
al,5,6,7,8
CSYS,1
aGEN,6,2, , , ,60, , ,1
cm,hole,area
asba,1,hole,,delete,delete
csys,0
lstr,1,2
*get,numline,line,,num,max
VDRAG,8,,,,,,numline,,,,,
save,all
fini