9 lines
314 B
Tcl
9 lines
314 B
Tcl
proc makeMotorValve {name hostport} {
|
|
if {[sicsdescriptor $name] eq "notfound"} {
|
|
makenv $name -driver motorvalve -port unconnected
|
|
hsetprop /$name group "$name (valve)"
|
|
makenv ${name}_mot -driver trinamic -port $hostport -base /$name/
|
|
hsetprop /$name/${name}_mot label "$name valve motor"
|
|
}
|
|
}
|