T2P

应用示例

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

  Dim aaa As Trans
  Dim bbb As Position

  ' 获取当前位置
  aaa = CurTrn

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

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

End Sub