ID : 265
PosZ
功能
返回Z分量。
注意事项
-
应用示例
'!TITLE "获取Z成分"
' 获取aaa的Z成分
Sub Sample_PosZ
Dim aaa As Single
Dim bbb As Position
Dim ccc As Position
bbb = CurPos
ccc = Dev( bbb, P( 0, 0, 10, 0, 0, 0, -1 ) )
' 在aaa中代入ccc的Z成分
aaa = PosZ( ccc )
' 在讯息输出视窗中显示aaa的Z成分
PrintDbg aaa
End Sub
ID : 265