ID : 255
T2P
用例
'!TITLE "同次変換型からポジション型への変換"
' 同次変換型で取得した現在位置をポジション型へ変換
Sub Sample_T2P
Dim aaa As Trans
Dim bbb As Position
' 現在位置の取得
aaa = CurTrn
' 同次変換型からポジション型への変換
bbb = T2P( aaa )
' メッセージ出力ウィンドウにポジション型に変換された現在位置を表示
PrintDbg bbb
End Sub
ID : 255