!EX3.16 正多邊形面的通用網格劃分
finish
/clear
/prep7
ns=11
et,1,plane82
rpr4,ns,,,10
kp0=100+ns
k,kp0
*if,mod(ns,2),eq,0,then
*do,i,1,ns/2
l,kp0,2*i-1
*enddo
*else
*do,i,1,ns
l,kp0,i
*enddo
*endif
lsel,s,,,ns+1,2*ns
cm,l1cm,line
allsel
asbl,1,l1cm
*if,mod(ns,2),eq,0,then
cmsel,s,l1cm
lesize,all,,,8
lsel,inve
lesize,all,,,4
*else
lesize,all,,,8
*endif
allsel
mshape,0
mshkey,1
amesh,all