CurTrn

应用示例

'!TITLE“获取当前位置”
'通过工具坐标系获取当前位置，并在讯息视窗中显示
Sub Sample_CurTrn

  Dim aaa As Trans
  Dim bbb As Trans

  TakeArm Keep = 1

  '通过T型获取当前位置
  aaa = CurTrn

  '在bbb中代入X为50、Y为100的值
  bbb = T( 50, 100, 0, 0, 0, 0, 0, 0, 0 )

  '在bbb中代入当前位置和bbb的计算结果
  bbb = TMul( aaa, bbb )

  '在讯息输出视窗中显示初始当前位置
  PrintDbg aaa

  '在讯息输出视窗中显示计算结果
  PrintDbg bbb

End Sub