proc ConfigTrafficTransmissionControl {args} { set paramList {} set argIndex 0 while {$argIndex < [llength $args]} { set currentArg [lindex $args $argIndex] switch -exact -- $currentArg { -configElementObj { set configElementObj [lindex $args [expr $argIndex + 1]] incr argIndex 2 } -type { # continuous, fixedFrameCount, fixedDuration, fixedIterationCount, custom, auto set type [lindex $args [expr $argIndex + 1]] append paramList " -type $type" incr argIndex 2 } -frameCount { set frameCount [lindex $args [expr $argIndex + 1]] append paramList " -frameCount $frameCount" incr argIndex 2 } default { puts "Connect: No such parameter: $currentArg" return 1 } } } puts "\nConfigTrafficTransmissionControl: $paramList" if {[catch {eval ixNet setMultiAttribute $configElementObj/transmissionControl $paramList} errMsg]} { puts "Error: ConfigTrafficTransmissionControl: $errMsg" return 1 } ixNet commit }