WorkPos

应用示例

'!TITLE "通过位置型返回用户坐标系"
' 在aaa中代入指定的用户坐标系编号的工件坐标系
Sub Sample_WorkPos

  Dim aaa As Position

  ' 在aaa中代入用户坐标系编号1的工件坐标系设定值
  aaa = WorkPos( 1 )

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

End Sub