INT AXIS_X=0
INT AXIS_Y=1
INT mVel_X=10
INT mVel_Y=10 ! Define a local variable named "AXIS"
REAL Pi
Pi=ACOS(-1)
VEL(AXIS_X)=mVel_X ! Set maximum velocity
ACC(AXIS_X)=VEL(AXIS_X)*40 ! Set acceleration
DEC(AXIS_X)= ACC(AXIS_X)*40 ! Set deceleration
JERK(AXIS_X)= ACC(AXIS_X)*100 ! Set jerk
VEL(AXIS_Y)=mVel_Y ! Set maximum velocity
ACC(AXIS_Y)= VEL(AXIS_Y)*10 ! Set acceleration
DEC(AXIS_Y)= ACC(AXIS_Y) ! Set deceleration
JERK(AXIS_Y)= ACC(AXIS_Y)*5 ! Set jerk
enable AXIS_X
enable AXIS_Y
PTP/E (AXIS_X,AXIS_Y),150,140
wait 2000
XSEG/y (AXIS_X,AXIS_Y),150,140
ARC2(AXIS_X,AXIS_Y),150,150,2*Pi
ENDS(AXIS_X,AXIS_Y)
STOP
测试结果:
指定画圆速度50:
INT AXIS_X=0
INT AXIS_Y=1
!INT mVel_X=100
!INT mVel_Y=100 ! Define a local variable named "AXIS"
REAL Pi
Pi=ACOS(-1)
!VEL(AXIS_X)=mVel_X ! Set maximum velocity
!ACC(AXIS_X)=VEL(AXIS_X)*40 ! Set acceleration
!DEC(AXIS_X)= ACC(AXIS_X)*40 ! Set deceleration
!JERK(AXIS_X)= ACC(AXIS_X)*100 ! Set jerk
!
!VEL(AXIS_Y)=mVel_Y ! Set maximum velocity
!ACC(AXIS_Y)= VEL(AXIS_Y)*10 ! Set acceleration
!DEC(AXIS_Y)= ACC(AXIS_Y) ! Set deceleration
!JERK(AXIS_Y)= ACC(AXIS_Y)*5 ! Set jerk
enable AXIS_X
enable AXIS_Y
PTP/E (AXIS_X,AXIS_Y),-50,0
wait 2000
XSEG/vf (AXIS_X,AXIS_Y),-50,0,50,25
ARC2(AXIS_X,AXIS_Y),0,0,2*Pi,50
ENDS(AXIS_X,AXIS_Y)
STOP