代码:
finish
/clear
*AFUN,DEG
a=6
r=3
b=1
h=2
theat=60
/prep7
k,1,0,0
k,2,-a/2,0
wpoffs,-a/2,-r
wprota,theat
csys,4
k,3,0,r
k,4,-3,r
l,1,2
larc,2,3,4,r
wpoffs,-3,r
wprota,-theat
k,5,0,-1
k,6,-b,-1
csys,0
*get,ux,kp,6,loc,x
k,7,ux,h
k,8,0,h
num=1
*do,num,3,7,1
l,num,num+1
*enddo
l,8,1
al,all
arsym,x,1
aadd,all
finish