CurWork

应用示例

'!TITLE "获取用户坐标系编号"
' 在讯息输出视窗中显示当前设定的用户坐标系编号
Sub Sample_CurWork

  Dim aaa As Integer

  TakeArm Keep = 1

  ' 将用户坐标系编号更改为1
  ChangeWork 1

  ' 在aaa中代入当前的用户坐标系编号
  aaa = CurWork

  ' 在讯息输出视窗中显示当前的用户坐标系编号"1"
  PrintDbg aaa

End Sub