P2T

应用示例

'!TITLE "将位置型转换成齐次变换型"
' 将位置型上获取的当前位置转换成齐次变换型
Sub Sample_P2T

  Dim aaa As Position
  Dim bbb As Joint

  ' 获取当前位置
  aaa = CurPos

  ' 将位置型转换成齐次变换型
  bbb = P2T( aaa )

  ' 在讯息输出视窗中显示转换成齐次变换型的当前位置
  PrintDbg bbb

End Sub