Hallo
ich habe mich in einem Makro verloren... es wurde von UX nach WIN trnaportiert und funktioniert bei mir klaglos. Auf einem anderen CLient-Server bekomme ich bei der Berechnung der Lackmenge für eine Fläche die Ausgabe "illegal data" ... siehe trace unten.
Habt ihr eine Idee ? ich bin recht hilflos, da das gleiche file ja bei mir geht.
Danke an die Profis
Benno
Lack
READ STRING 'GEBEN SIE "b" FÛR BLECHZUSCHNITTE ODER "p" PROFILROHRE EIN'
Wahl 'b'
IF ( Wahl 'b' = 'b' ) 1
READ PNT 'FlÌche antippen' Punkt
PICK_VP_PNT 1 34.4239631336405,57.6036866359447
AREA_PROPERTY Punkt 34.4239631336405,57.6036866359447
DISPLAY
'DIE MARKIERTE FLØCHE WIRD FUER DAS BERECHNEN DER GRUNDLACKMENGE VERWENDET'
AREA_PROPERTY Punkt 34.4239631336405,57.6036866359447 DEL_OLD
'\\srv1ro\cad-startup\me\temp\area_prop'
OPEN_INFILE 1 '\\srv1ro\cad-startup\me\temp\area_prop'
LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy 'ALL VALUES REFER TO THE FOLLOWING UNITS : ' )
'F =' ) = 1 ) 0
EXIT_IF ( Dummy 'ALL VALUES REFER TO THE FOLLOWING UNITS : ' =
'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy 'LENGTH = 1 MM' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy 'LENGTH = 1 MM' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy 'ANGLE = 1 DEG' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy 'ANGLE = 1 DEG' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' ' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' ' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy 'FACE 1:' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy 'FACE 1:' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' NUMBER OF HOLES' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' NUMBER OF HOLES' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' noh = 0' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' noh = 0' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' DENSITY' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' DENSITY' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' rho = 1' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' rho = 1' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' PERIMETER LENGTH' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' PERIMETER LENGTH' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' P = 169.646003293849' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' P = 169.646003293849' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' AREA' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' AREA' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' A = 2290.22104446696' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' A = 2290.22104446696' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' CENTER OF AREA = CENTER OF MASS' ) 'F =' )
= 1 ) 0
EXIT_IF ( Dummy ' CENTER OF AREA = CENTER OF MASS' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy
' (Cx,Cy) = (39.8617511520737,64.7926267281106)' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' (Cx,Cy) = (39.8617511520737,64.7926267281106)' =
'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy
' PRINCIPAL AXES THROUGH THE CENTER OF AREA (DIRECTIONS)' ) 'F =' ) = 1
) 0
EXIT_IF ( Dummy ' PRINCIPAL AXES THROUGH THE CENTER OF AREA (DIRECTIONS)'
= 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' u = (1,0)' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' u = (1,0)' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' v = (0,1)' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' v = (0,1)' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy
' SECOND MOMENTS OF AREA (ABOUT PRINCIPAL AXES)' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' SECOND MOMENTS OF AREA (ABOUT PRINCIPAL AXES)' =
'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' Icu = 417392.785354103' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' Icu = 417392.785354103' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' Icv = 417392.785354103' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' Icv = 417392.785354103' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy
' SECOND MOMENTS OF AREA (ABOUT COORDINATE SYSTEM AXES)' ) 'F =' ) = 1 )
0
EXIT_IF ( Dummy ' SECOND MOMENTS OF AREA (ABOUT COORDINATE SYSTEM AXES)' =
'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' Ix = 10031934.2040716' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' Ix = 10031934.2040716' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' Iy = 4056460.59523813' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' Iy = 4056460.59523813' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy
' PRODUCT OF SECOND MOMENT OF AREA (ABOUT COORDINATE SYSTEM AXES)' )
'F =' ) = 1 ) 0
EXIT_IF ( Dummy
' PRODUCT OF SECOND MOMENT OF AREA (ABOUT COORDINATE SYSTEM AXES)' =
'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' Ixy = 5915062.82161496' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' Ixy = 5915062.82161496' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' MOMENTS OF INERTIA (ABOUT PRINCIPAL AXES)'
) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' MOMENTS OF INERTIA (ABOUT PRINCIPAL AXES)' =
'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' Jcu = 417392.785354103' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' Jcu = 417392.785354103' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' Jcv = 417392.785354103' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' Jcv = 417392.785354103' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy
' MOMENTS OF INERTIA (ABOUT COORDINATE SYSTEM AXES)' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' MOMENTS OF INERTIA (ABOUT COORDINATE SYSTEM AXES)' =
'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' Jx = 10031934.2040716' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' Jx = 10031934.2040716' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' Jy = 4056460.59523813' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' Jy = 4056460.59523813' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy
' PRODUCT OF MOMENT OF INERTIA (ABOUT COORDINATE SYSTEM AXES)' ) 'F =' )
= 1 ) 0
EXIT_IF ( Dummy
' PRODUCT OF MOMENT OF INERTIA (ABOUT COORDINATE SYSTEM AXES)' =
'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' Jxy = 5915062.82161496' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' Jxy = 5915062.82161496' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' SECTION MODULI ABOUT PRINCIPAL AXES' )
'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' SECTION MODULI ABOUT PRINCIPAL AXES' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' Zcu = 15458.992050152' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' Zcu = 15458.992050152' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' Zcv = 15458.992050152' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' Zcv = 15458.992050152' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy
' DISTANCE FROM NEUTRAL AXIS u TO EXTREME FIBER' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' DISTANCE FROM NEUTRAL AXIS u TO EXTREME FIBER' =
'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' Du = 27' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' Du = 27' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy
' DISTANCE FROM NEUTRAL AXIS v TO EXTREME FIBER' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' DISTANCE FROM NEUTRAL AXIS v TO EXTREME FIBER' =
'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' Dv = 27' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' Dv = 27' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy
' RADII OF GYRATION WITH RESPECT TO THE CENTER OF AREA' ) 'F =' ) = 1 )
0
EXIT_IF ( Dummy ' RADII OF GYRATION WITH RESPECT TO THE CENTER OF AREA' =
'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' Rcu = 13.5' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' Rcu = 13.5' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' Rcv = 13.5' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' Rcv = 13.5' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy
' ANGLE BETWEEN COORDINATE SYSTEM AND PRINCIPLE AXES' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' ANGLE BETWEEN COORDINATE SYSTEM AND PRINCIPLE AXES' =
'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy ' phi = 0' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy ' phi = 0' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy '' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy '' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy '' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy '' = 'END-OF-FILE' ) 0
END_LOOP
READ_FILE 1 Dummy
EXIT_IF ( ( POS TRIM ( Dummy 'END-OF-FILE' ) 'F =' ) = 1 ) 0
EXIT_IF ( Dummy 'END-OF-FILE' = 'END-OF-FILE' ) 1
CLOSE_FILE 1
LET Dummy ( TRIM Dummy 'END-OF-FILE' ) 'END-OF-FILE'
LET Lange ( LEN Dummy 'END-OF-FILE' ) 11
LET Dummy1 ( SUBSTR Dummy 'END-OF-FILE' 4 Lange 11 ) '-OF-FILE'
LET Fl ( VAL Dummy1 '-OF-FILE' ) -
LET Farbe ( Fl - * 2 { display error occurred
*** Illegal data type for arithmetic operation
}
{ token error occurred }
TRACE
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP