ID : 183

CurWork

Function

To return the current work coordinate number.

Syntax

CurWork

Return value

Return the current work coordinate number (0-7) by Integer Type data.

Description

Current work coordinate number is returned. Return value is integer type data between 0 and 7.

Attention

Example

'!TITLE "Acquiring User Coordinate Number"
' Display the currently-designated user coordinate number on the message output window
Sub Sample_CurWork

  Dim aaa As Integer

  TakeArm Keep = 1

  ' Change the user coordinate number to 1
  ChangeWork 1

  ' Assign the current user coordinate number to aaa
  aaa = CurWork

  ' Display the current user coordinate number "1" on the message output window
  PrintDbg aaa

End Sub