cnc-club.ru

Код: Выделить всё

sudo halcompile --install selection.comp

Код: Выделить всё

loadrt selection
addf selection.0 servo-thread
setp selection.0.in0   1
setp selection.0.in1   5
setp selection.0.in2   100
setp selection.0.in3   500
setp selection.0.in4   1000
setp selection.0.in5   5000
setp selection.0.in6   10000
setp selection.0.in7   15000

net sout selection.0.out

Код: Выделить всё

loadusr sim_pin selection.0.increment   selection.0.decrement

Код: Выделить всё

proc setvel {args} {
    set sss [.main.mode.fjog.jogvel cget -text]
    set i 0
    foreach ivel {6000 600 60 6} {
        if { $i == 3 } { set i -1 }
        if {$ivel == $sss} {
            set i [expr $i + 1]
            set nn  [lindex {6000 600 60 6}  $i] 
            .main.mode.fjog.jogvel configure  -text $nn
            }
        set i [expr $i + 1]
        }
}