set ::$ns1\::count [eval expr $\{::$ns1\::count\} + 1]
とか
incr ::$ns1\::count
とか
set c ::$ns1\::count
eval set $c [expr $$c+1]

一番上の書きかたなんて誰も読みたがらんぞ！
incrTclが無理ならTclで書かれたsnitとかまじおすすめじゃ！