Hello Alex,
at the Moment i had no simple example.
But an example:
for { set num 1000 } { $num <= 10000 } { incr num 1000 } {
if { [CheckBreak] } {break}
TlPrint ""
TlPrint "activate Gear, Immediate synchronisation, factor =
$num:$denom"
if { ![pdoActivateMode $mode $action $denom $num] } { break }
doWaitMs 500
pdoCheckMotionStatBit $AW_NACT_P 1
pdoCheckDriveStatBit $PDO_DSTAT_X_ERR 0
pdoCheckDriveStatBit $PDO_DSTAT_X_END 0
set sollSpeed [expr round( ($WagoSpeed * 60.0 / $INC_PRO_1U) *
($num/$denom) )]
checkNAct $sollSpeed [expr abs(round($sollSpeed*0.02))] ;# +2% Tol
checkNPRef $sollSpeed [expr abs(round($sollSpeed*0.02))] ;# +2% Tol
} ;# for
The definition of "pdoActivateMode" is not found.
But the definition off :
pdoCheckMotionStatBit pdoCheckDriveStatBit
is found. And all procs are in the same file.
Hope this will help.
If not please call for more infos.
Thanks
Gunter