From 35c5ccbb19f99e88cbfc54c877bddd7f2aa82b18 Mon Sep 17 00:00:00 2001 From: Ferdi Franceschini Date: Fri, 20 Jun 2014 08:14:40 +1000 Subject: [PATCH] Added command to make virtual motor which hdbchains to a real motor. --- site_ansto/instrument/util/motor_utility.tcl | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/site_ansto/instrument/util/motor_utility.tcl b/site_ansto/instrument/util/motor_utility.tcl index 6f831ee6..4c289525 100644 --- a/site_ansto/instrument/util/motor_utility.tcl +++ b/site_ansto/instrument/util/motor_utility.tcl @@ -151,6 +151,19 @@ proc get_virtual_2 { phys1 phys2 } { #publish get_virtual_2 user # Generator functions +proc make_vmot { vm1 pm1 aunits } { + eval "proc get_$vm1 {} { get_virtual_1 $pm1 }" + set v {$var} + eval "proc set_$vm1 {var} { set_virtual_1 $pm1 $v }" + MakeConfigurableMotor $vm1 + $vm1 readscript get_$vm1 + $vm1 drivescript set_$vm1 + sicslist setatt $vm1 units $aunits + sicslist setatt $vm1 klass [SplitReply [sicslist klass $pm1]] + sicslist setatt $vm1 long_name $vm1 + sicslist setatt $vm1 hdbchain $pm1 +} + proc make_coll_motor_1 { vm1 vm1_name pm1 aunits } { eval "proc get_$vm1 {} { get_virtual_1 $pm1 }" set v {$var}