Wspomniana wcześniej procedura to PB_CMD_before_output, należy dodać do niej kilka wpisów.



global mom_o_buffer
global mom_sys_leader
global mom_sys_control_out mom_sys_control_in

set buff $mom_o_buffer

# Remove trailing in-line comment
set i_at [string first "$mom_sys_control_out" $buff]
if { $i_at > -1 } {
#set buff [string trimright [string range $buff 0 [expr $i_at - 1]]]
}

# Process to avoid output of block buffer without any useful address
regsub -all {[0-9]+} $buff "" buff
regsub -all {L} $buff "" buff
regsub -all {F} $buff "" buff
regsub -all {MAX} $buff "" buff
regsub -all { } $buff "" buff



regsub -all {\. } $mom_o_buffer { } mom_o_buffer
regsub -all {\.0 } $mom_o_buffer { } mom_o_buffer
regsub -all {\.000 } $mom_o_buffer { } mom_o_buffer

regsub -all {X\.} $mom_o_buffer {X0.} mom_o_buffer
regsub -all {Y\.} $mom_o_buffer {Y0.} mom_o_buffer
regsub -all {Z\.} $mom_o_buffer {Z0.} mom_o_buffer
regsub -all {R\.} $mom_o_buffer {R0.} mom_o_buffer

regsub -all {X-\.} $mom_o_buffer {X-0.} mom_o_buffer
regsub -all {Y-\.} $mom_o_buffer {Y-0.} mom_o_buffer
regsub -all {Z-\.} $mom_o_buffer {Z-0.} mom_o_buffer
regsub -all {R-\.} $mom_o_buffer {R-0.} mom_o_buffer




regsub -all { \.} $mom_o_buffer { 0.} mom_o_buffer
regsub -all { \-\.} $mom_o_buffer { -0.} mom_o_buffer

regsub -all {end} $mom_o_buffer {} mom_o_buffer



set buff [join $buff ""]
set l [string length $buff]
if { $l == 0 } {
set mom_o_buffer ""

}

Czy twoja maszyna nie przyjmuje takiego zapisu ? Czy chcesz to zmienić ze względów wizualnych ?


Żeby to zmienić trzeba dopisać odpowiednią procedurę która już w kodzie wyjściowym będzie usuwać kropki, czy też wstawiać zera. Robiłem to jakiś czas temu na HH426 który właśnie nie chciał czytać takiego zapisu "X-.3".