ID : 183
CurWork
機能
現在のワーク座標系番号を返します。
解説
現在のワーク座標系番号を返します。戻り値は0~7の整数型データです。
注意事項
-
用例
'!TITLE "ユーザ座標系番号の取得"
' 現在設定されているユーザ座標系番号をメッセージ出力ウィンドウに表示
Sub Sample_CurWork
Dim aaa As Integer
TakeArm Keep = 1
' ユーザ座標系番号を1に変更
ChangeWork 1
' 現在のユーザ座標系番号をaaaを代入
aaa = CurWork
' メッセージ出力ウィンドウに現在のユーザ座標系番号"1"を表示
PrintDbg aaa
End Sub
ID : 183