Trans

应用示例

'!TITLE "定义齐次变换型数据"
' 在定义的变量中代入值，显示在讯息输出视窗中
Sub Sample_Trans

  ' 使用齐次变换型数据定义变量名aaa
  Dim aaa As Trans

  aaa = T( 100, 200, 300, 1, 0, 0, 0, 1, 0, -1 )

  ' 在讯息输出视窗中显示aaa
  PrintDbg aaa

End Sub