Adept AdeptSight Reference Guide - Manual (Page 431)

CALL as.load(load_cam_settin, $path+"CamSettings.xml", $pc_ip, camera_index, empty_
parameter)
CALL as.load(load_color_cal, $path+"ColorCalibration1.hscal", $pc_ip, camera_index,
empty_parameter)
CALL as.load(load_vision_cal, $path+"VisionCalibration1.hscal", $pc_ip, camera_index,
empty_parameter)
CALL as.load(load_robot_cal, $path+"RobotCalibration1.hscal", $pc_ip, camera_index,
robot_index)
CALL as.load(load_belt_cal, $path+"BeltCalibration1.hscal", $pc_ip, camera_index,
robot_index)
.END
.PROGRAM as.load(load_type, $filename, $ip, parameter_index, object_index)
old_timeout = PARAMETER(VTIMEOUT)
PARAMETER VTIMEOUT = 10*old_timeout
file_index = 0
$as.filename[file_index] = $filename
TYPE "Loading... Please wait"
;V+
VPARAMETER(-1, -1, load_type, parameter_index, object_index) $ip = file_index
;uV+
;VPARAMETER(, , load_type, parameter_index, object_index) = file_index
WHILE TRUE DO
value = 4
value = VPARAMETER($ip, -1, -1, load_type, parameter_index, object_index)
IF (value == 3) THEN
TYPE "Load Succeeded"
EXIT
END
IF (value == 4) THEN
TYPE "Load Failed"
EXIT
END
END
PARAMETER VTIMEOUT = old_timeout
.END
.PROGRAM as.save(save_type, $filename, $ip, parameter_index, object_index)
SaveSequence
AdeptSight Reference Guide, v3.2.x, Updated: 5/8/2012
Page 431