381a6d0e |
1 | puts "============" |
2 | puts "OCC23570" |
3 | puts "============" |
4 | puts "" |
5 | ########################################################################### |
6 | # Command param in DRAW outputs non-readable symbols |
7 | ########################################################################### |
8 | |
9 | set info [param write.surfacecurve.mode] |
10 | |
11 | set result1 [regexp {\-\-\- Type : Enum \[in 0-1\] 0:Off 1:On , alpha: +(.*):0 +(.*):1 +\n\-\-\-} $info full alpha_0 alpha_1] |
12 | |
13 | if { ${result1} == 0 } { |
14 | puts "Error: bad message or regexp" |
15 | } else { |
16 | puts "alpha_0=${alpha_0}" |
17 | puts "alpha_1=${alpha_1}" |
18 | set result2 [regexp {([^A-Za-z0-9]+)} ${alpha_0} full non_readable_symbols_0] |
19 | set result3 [regexp {([^A-Za-z0-9]+)} ${alpha_1} full non_readable_symbols_1] |
20 | if { ${result2} == 1 } { |
21 | puts "non_readable_symbols_0=${non_readable_symbols_0}" |
22 | puts "Error: Command param in DRAW outputs non-readable symbols for enumerated parameters, after \"alpha\"; (0)" |
23 | } |
24 | if { ${result3} == 1 } { |
25 | puts "non_readable_symbols_1=${non_readable_symbols_1}" |
26 | puts "Error: Command param in DRAW outputs non-readable symbols for enumerated parameters, after \"alpha\"; (1)" |
27 | } |
28 | } |