DEFINE Zoll_gew_bem {Maszzahlen werden geprueft und falls es ein passendes Rohrgewinde gibt,} {wird die Masszahl entsprechend editiert} LOCAL Wert LOCAL Mass LOCAL Massinhalt LOCAL Mass_tabelle LOCAL Zeile LOCAL Masstext LOCAL Zaehler END LOOP REPEAT READ 'BemaŽung zur Umwandlung in Rohrgewinde antippen' Mass INQ_SELECTED_ELEM Mass UNTIL (((INQ 403)= DIM_DIAMETER) OR ((INQ 403)= DIM_LINE)) LET Massinhalt (INQ 3) LET Massinhalt (INT(ROUND (Massinhalt*10))) {Rundung, um auch auf eine Nachkommastelle genau gezeichnete} {Gewinde zu erfassen} LET Zaehler 2 LOOP LET Mass_tabelle (INT(ROUND((READ_LTAB 'Gew_zoll' Zaehler 2)*10))) EXIT_IF (Massinhalt=Mass_tabelle) LET Zaehler (Zaehler+1) IF (Zaehler > (LTAB_ROWS 'Gew_zoll')) BEEP DISPLAY 'Kein passendes Rohrgewinde gefunden!' Zoll_gew_bem END_IF END_LOOP LET Masstext (READ_LTAB 'Gew_zoll' Zaehler 1) IF ((POS Masstext ' ')<>0) {Falls im String aus der Tabelle 2 Leerz. sind} LET Masstext ((SUBSTR Masstext 1 1) +(SUBSTR Masstext 3 ((LEN Masstext) -2))) END_IF CHANGE_DIM_TEXTS MAIN_NUM RED Mass {Masszahl in Rot} DELETE_DIM_PREFIX Mass END {ggf. Prefix loeschen} DIM_UNDERLINE_EDITED OFF EDIT_DIM_TEXT Mass Masstext END DIM_UNDERLINE_EDITED ON END_LOOP END_DEFINE CREATE_LTAB 50 8 'Gew_zoll' WRITE_LTAB 'Gew_zoll' 2 1 'G 1/16' {Nenn-d als String} WRITE_LTAB 'Gew_zoll' 2 2 7.723 {Nenn-d in mm} WRITE_LTAB 'Gew_zoll' 2 3 6.561 {Kernloch-d} WRITE_LTAB 'Gew_zoll' 2 4 5. {Sacklochuebertsand regel} WRITE_LTAB 'Gew_zoll' 2 5 3.2 {Sacklochueberstand kurz } WRITE_LTAB 'Gew_zoll' 2 6 8.2 {Freistich-d} WRITE_LTAB 'Gew_zoll' 2 7 4 {Freistichlaenge regel} WRITE_LTAB 'Gew_zoll' 2 8 2.5 {Freistichlaenge kurz} WRITE_LTAB 'Gew_zoll' 3 1 'G 1/8' WRITE_LTAB 'Gew_zoll' 3 2 9.728 WRITE_LTAB 'Gew_zoll' 3 3 8.566 WRITE_LTAB 'Gew_zoll' 3 4 5. WRITE_LTAB 'Gew_zoll' 3 5 3.2 WRITE_LTAB 'Gew_zoll' 3 6 9.2 WRITE_LTAB 'Gew_zoll' 3 7 4 WRITE_LTAB 'Gew_zoll' 3 8 2.5 WRITE_LTAB 'Gew_zoll' 4 1 'G 1/4' WRITE_LTAB 'Gew_zoll' 4 2 13.157 WRITE_LTAB 'Gew_zoll' 4 3 11.445 WRITE_LTAB 'Gew_zoll' 4 4 6. WRITE_LTAB 'Gew_zoll' 4 5 3.9 WRITE_LTAB 'Gew_zoll' 4 6 13.7 WRITE_LTAB 'Gew_zoll' 4 7 5 WRITE_LTAB 'Gew_zoll' 4 8 3.2 WRITE_LTAB 'Gew_zoll' 5 1 'G 3/8' WRITE_LTAB 'Gew_zoll' 5 2 16.662 WRITE_LTAB 'Gew_zoll' 5 3 14.95 WRITE_LTAB 'Gew_zoll' 5 4 6. WRITE_LTAB 'Gew_zoll' 5 5 3.9 WRITE_LTAB 'Gew_zoll' 5 6 16.2 WRITE_LTAB 'Gew_zoll' 5 7 5 WRITE_LTAB 'Gew_zoll' 5 8 3.2 WRITE_LTAB 'Gew_zoll' 6 1 'G 1/2' WRITE_LTAB 'Gew_zoll' 6 2 20.955 WRITE_LTAB 'Gew_zoll' 6 3 18.631 WRITE_LTAB 'Gew_zoll' 6 4 8. WRITE_LTAB 'Gew_zoll' 6 5 5.2 WRITE_LTAB 'Gew_zoll' 6 6 21.5 WRITE_LTAB 'Gew_zoll' 6 7 7 WRITE_LTAB 'Gew_zoll' 6 8 4.3 WRITE_LTAB 'Gew_zoll' 7 1 'G 3/4' WRITE_LTAB 'Gew_zoll' 7 2 26.441 WRITE_LTAB 'Gew_zoll' 7 3 24.117 WRITE_LTAB 'Gew_zoll' 7 4 8. WRITE_LTAB 'Gew_zoll' 7 5 5.2 WRITE_LTAB 'Gew_zoll' 7 6 27 WRITE_LTAB 'Gew_zoll' 7 7 7 WRITE_LTAB 'Gew_zoll' 7 8 4.3 WRITE_LTAB 'Gew_zoll' 8 1 'G1' WRITE_LTAB 'Gew_zoll' 8 2 33.249 WRITE_LTAB 'Gew_zoll' 8 3 30.291 WRITE_LTAB 'Gew_zoll' 8 4 11. WRITE_LTAB 'Gew_zoll' 8 5 7 WRITE_LTAB 'Gew_zoll' 8 6 34 WRITE_LTAB 'Gew_zoll' 8 7 12 WRITE_LTAB 'Gew_zoll' 8 8 7.5 WRITE_LTAB 'Gew_zoll' 9 1 'G1 1/4' WRITE_LTAB 'Gew_zoll' 9 2 41.91 WRITE_LTAB 'Gew_zoll' 9 3 38.952 WRITE_LTAB 'Gew_zoll' 9 4 11. WRITE_LTAB 'Gew_zoll' 9 5 7 WRITE_LTAB 'Gew_zoll' 9 6 42.5 WRITE_LTAB 'Gew_zoll' 9 7 12 WRITE_LTAB 'Gew_zoll' 9 8 7.5 WRITE_LTAB 'Gew_zoll' 10 1 'G1 1/2' WRITE_LTAB 'Gew_zoll' 10 2 47.803 WRITE_LTAB 'Gew_zoll' 10 3 44.845 WRITE_LTAB 'Gew_zoll' 10 4 11. WRITE_LTAB 'Gew_zoll' 10 5 7 WRITE_LTAB 'Gew_zoll' 10 6 49 WRITE_LTAB 'Gew_zoll' 10 7 12 WRITE_LTAB 'Gew_zoll' 10 8 7.5 WRITE_LTAB 'Gew_zoll' 11 1 'G2' WRITE_LTAB 'Gew_zoll' 11 2 59.614 WRITE_LTAB 'Gew_zoll' 11 3 56.656 WRITE_LTAB 'Gew_zoll' 11 4 11. WRITE_LTAB 'Gew_zoll' 11 5 7 WRITE_LTAB 'Gew_zoll' 11 6 61 WRITE_LTAB 'Gew_zoll' 11 7 12 WRITE_LTAB 'Gew_zoll' 11 8 7.5 WRITE_LTAB 'Gew_zoll' 12 1 'G2 1/2' WRITE_LTAB 'Gew_zoll' 12 2 75.184 WRITE_LTAB 'Gew_zoll' 12 3 72.226 WRITE_LTAB 'Gew_zoll' 12 4 11. WRITE_LTAB 'Gew_zoll' 12 5 7 WRITE_LTAB 'Gew_zoll' 12 6 76 WRITE_LTAB 'Gew_zoll' 12 7 12 WRITE_LTAB 'Gew_zoll' 12 8 7.5 WRITE_LTAB 'Gew_zoll' 13 1 'G3' WRITE_LTAB 'Gew_zoll' 13 2 87.884 WRITE_LTAB 'Gew_zoll' 13 3 84.926 WRITE_LTAB 'Gew_zoll' 13 4 11. WRITE_LTAB 'Gew_zoll' 13 5 7 WRITE_LTAB 'Gew_zoll' 13 6 89 WRITE_LTAB 'Gew_zoll' 13 7 12 WRITE_LTAB 'Gew_zoll' 13 8 7.5