ToolPos

应用示例

'!TITLE“通过位置型返回工具坐标系”
'在aaa中代入指定工具坐标系编号的工具坐标系设定值
Sub Sample_ToolPos 

  Dim aaa As Position

  '在aaa中代入工具坐标系编号1的工具坐标系设定值
  aaa = ToolPos( 1 )

  '在讯息输出视窗中显示工具坐标系
  PrintDbg aaa

End Sub