CurPos

应用示例

'!TITLE“获取当前位置”
'输出当前位置和位置计算结果
Sub Sample_CurPos

  Dim aaa As Position
  Dim bbb As Position

  '在aaa中代入当前工具坐标系中的位置
  aaa = CurPos

  '在bbb中代入在当前工具坐标系中的位置X、Y、Z的50计算结果
  bbb = Dev( aaa, P( 50, 50, 50, 0, 0, 0, -1 ) )

  '在讯息输出视窗中显示当前位置、计算结果
  PrintDbg aaa, bbb

End Sub