diff --git a/site_ansto/instrument/util/motor_utility.tcl b/site_ansto/instrument/util/motor_utility.tcl index 4c289525..0a4b10ea 100644 --- a/site_ansto/instrument/util/motor_utility.tcl +++ b/site_ansto/instrument/util/motor_utility.tcl @@ -49,6 +49,28 @@ proc reldrive {args} { } publish reldrive user +# \brief Posit run command for positional motors +# \parameter List of motor names and position names +proc prun {args} { + foreach {mot pname} $args { + lappend drlist $mot [SplitReply [$mot posit2unit $pname]] + } + clientput run {*}$drlist + run {*}$drlist +} +publish prun user + +# \brief Posit drive command for positional motors +# \parameter List of motor names and position names +proc pdrive {args} { + foreach {mot pname} $args { + lappend drlist $mot [SplitReply [$mot posit2unit $pname]] + } + clientput drive {*}$drlist + drive {*}$drlist +} +publish pdrive user + ## # @brief A convenience command for fetching motor parameter values #