diff --git a/site_ansto/instrument/util/utility.tcl b/site_ansto/instrument/util/utility.tcl index e295bcb8..76660fae 100644 --- a/site_ansto/instrument/util/utility.tcl +++ b/site_ansto/instrument/util/utility.tcl @@ -462,12 +462,17 @@ proc ::utility::set_motor_attributes {} { sicslist setatt $m control true sicslist setatt $m nxsave true sicslist setatt $m mutable true - sicslist setatt $m units [SplitReply [$m units]] - sicslist setatt $m long_name [SplitReply [$m long_name]] - set mpart [split [SplitReply [$m part] ] .] - sicslist setatt $m klass [lindex $mpart 0] - if {[llength $mpart] == 2} { - sicslist setatt $m group [lindex $mpart 1] + catch { + # This block is specific to the dmc2280 driver. + # Skip it for "tclmot" motors which don't + # have 'units', 'part' or 'long_name' parameters + sicslist setatt $m units [SplitReply [$m units]] + sicslist setatt $m long_name [SplitReply [$m long_name]] + set mpart [split [SplitReply [$m part] ] .] + sicslist setatt $m klass [lindex $mpart 0] + if {[llength $mpart] == 2} { + sicslist setatt $m group [lindex $mpart 1] + } } sicslist setatt $m nxalias $m switch [expr int([SplitReply [$m accesscode]])] {