simtalk程序调试不出来，帮忙看一下

zooey

is
        mark:boolean;
  E, v5 D9 U; a# P. W        dx,dy,ct:real;
$ w. P1 F. O  K0 P% }    i,j,rows,lines:integer;
4 I. k* m8 Q$ A    machinename,bufname:string;
' O) m' V5 J6 Z, \' E: P    machine,buf:object;
do
% y9 k- f' B9 J8 M& y        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
1 L! M8 I5 w( S; s6 V: Y: j9 }                when 16 then
                        print"yes";
5 d% x5 v; J8 s% Y: h# Z9 d                when 32 then
3 O/ `6 V7 q- O/ o                        print"no";
" n  S2 f( l, _6 [4 ]" S: U                else
                        print"cancel";
                end;
% A# D0 Z9 S+ ]2 L1 k                eventcontroller.stop;
; y- E" V! I1 i0 I" A( v        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
, G! ?8 ]6 S4 g: d1 e9 D                machine.deleteobject;
3 d# J9 L$ Z3 l$ G  z        end;
) P: N& Q' r! B6 V) `, p        bufname:=sprint("BF",i);
; F5 ~$ i% o. Z1 I  K) q        if existsobject(bufname) then
% Q3 z" C- s* n& X+ `5 j2 x3 D/ s                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
' o" h( w8 f4 K; t5 F        next;
       
        dx:=0;
5 l$ a" q( K! J% W1 ]8 [( U# \        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( K1 @/ @; x9 F8 ]; w9 N+ [                --mark:=false;
/ n  r+ Z, ?# }" x; b                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! _1 X4 H9 |% J3 ^6 q                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
8 o# G4 W2 h" m! f0 f                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
; N/ ]" M% M! \5 S4 e4 h                        activityspace[1,rows]:=ct;
8 E6 ~! c# O* y3 r4 g6 C                        mark:=true;
) T0 k0 Y! A) z; q4 w3 T! N  [                        else*/
4 ^" x, [# x* A# N2 R9 A                        y_max:=y_max+dy;
# E1 ?3 u; p+ B6 u; b# ?- k                        dx:=0;
                dy:=0;
( G+ S! P" E! m8 }( u+ Z( Y                        --end;
3 \: |) Z) f, F6 L0 K0 R+ Q% k                end;
8 H! x: Y1 c% N                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
- j& K4 l" z* P* j4 j7 {1 h                end;
! H2 t3 }" M: h1 @                dx:=dx+activityspace[1,rows];
1 X  R: ~) s7 w, _7 \: B5 ]                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
- ^, l/ R, r) Z7 a                        activityspace[1,rows]:=ct;
                        end;*/
! D2 v- x( m+ H5 Q$ P" B        next;
" ~1 [0 E2 Z% a. G/ L" {        y_max:=y_max+dy;
        current.drawrectangle(1,x_pos_init-5,y_pos_init-5,activityspace[1,number_of_machine+1]*xscale+10,y_max*xscale+10,228,174);
        current.drawrectangle(1,x_pos_init-7,y_pos_init-7,activityspace[1,number_of_machine+1]*xscale+14,y_max*xscale+14,238,176);
9 y, p0 U; Z* U7 |! t- S       
2 Z. E, i- _" x1 V        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
9 ?+ V* O; K3 B5 Z9 \                        if j=i then
7 w+ r- ~, a% j9 r" P" v                                d_from_to_chart[j,i]:=0;
+ S( G7 f0 h$ u, }$ p0 p                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 B+ q! O, q' a. s% D8 R6 c                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
8 H2 F; ?: n7 R                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
$ v( e- ]) A) d        next;
8 `: ]1 Y5 L" l# A2 z4 g7 _       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
2 f. i7 C) g6 O7 N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
6 x- s7 m9 ?7 _; d8 T  P                        if w_from_to_chart[j,rows]>0 then
# m3 Y1 g! X. G                        lines:=lines+1;
: C4 Z; p1 J8 d                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
3 u5 g$ i4 i! x; ]* F5 _) m) A0 y- {                        partstable[6,lines]:=j;
                end;
0 k3 e8 Q& Z3 v) K        next;
1 K+ v3 \' l* {4 L6 b5 W, N        machinename:=sprint("M",rows);
        machine:=.materialflow.singleproc.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]+15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
/ e, u8 a$ n! u2 C) N- e; A        machine.name:=machinename;标识符未知
% e2 i9 d' ~0 n4 H" k6 A* S        machine.proctime:=5;
0 ?; v9 T4 \- D) |) j        machine.label:=activityspace[0,rows];
7 V& ?+ B# ^  t' L        machine.exitctrl:=ref(leave);
% f; z7 d# D2 ^8 @! i8 A3 X       
9 W, l1 l8 P8 o9 v( H        bufname:=sprint("BF",rows);
" N( o' [. A  ]! P' d        buf:=.materialflow.buffer.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]-15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
, y' E$ c6 v4 {) B  m        buf.name:=bufname;
8 C; Z4 z# V# m. I% W        buf.capacity:=5000;
+ k3 t7 K4 ?4 T. c9 ]) y' ]        buf.proctime:=0;
  y$ q! ?( B) a' j; s        .materialflow.connector.connect(buf,machine);
- p) o& o$ m9 o& d7 u       
. h8 z  n7 \" F& ^0 x% E$ s        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
. ], K" t3 F, I  c; M& `dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
( q3 m; B' r6 `- B8 C; e9 ]7 pcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
' x% W1 K- p: f9 K; [( Znext;
3 t0 ~& {, d& H8 E/ vend;