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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
- T* s! H4 ^5 y8 h& F( D& ]: B    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
# Z$ `. _: _& U0 ^; N: {do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
. n9 f% R' P/ P# _( @' [& i; U                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
, \4 V7 G2 L2 F2 ], x, c; J                        print"yes";
                when 32 then
0 G8 h' C, C0 l7 M3 A* q) v                        print"no";
                else
% i  h( x2 X& d% b2 x; j( D                        print"cancel";
                end;
: b6 |8 L$ g; T, ~( A8 V                eventcontroller.stop;
        end;
1 B  D% Z5 I9 O+ P' l9 X       
1 n4 Y+ a  j2 h8 W        for i:=1 to number_of_machine loop
/ a  e  g/ F0 \! T- [# \+ N7 z        machinename:=sprint("M",i);
        if existsobject(machinename) then
& E2 K3 D$ ^! ^* s- l  y) p                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
" i3 r9 H# j; `1 d; T  [        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
, Z0 _% X- @+ l8 M2 I# W4 j                buf.deleteobject;
        end;
        next;
9 E1 M/ ]( V% `; f* a4 t       
+ q# I0 {4 S  A& b* u; B        dx:=0;
9 M% L: Z" p; ]; k6 B) M  Y4 x8 y: k4 N        dy:=0;
- V8 D4 ?; `/ H. L, g  W, V! F        for i:=1 to number_of_machine loop
4 \4 X+ _& U; y$ P8 G7 O  B1 V                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 [( O# b4 E6 @+ o                --mark:=false;
* S5 s: w, H! v9 N, J2 E9 I, N" L                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
6 V8 S! Y. `9 P' Y                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
% Q  D: s( Y8 ]( B: ]3 A                        and activityspace[1,rows]<(1.05*y_max) then
2 M% j0 q& K: L9 ^- `2 u6 c                        print activityspace[1,rows],",",activityspace[2,rows];
3 V! R" Y6 L) l, @9 m* {                        ct:=activityspace[2,rows];
% O$ M' o8 D& U                        activityspace[2,rows]:=activityspace[1,rows];
; Q! y- M" `5 @' l  ?/ A0 W                        activityspace[1,rows]:=ct;
1 o: ?# s/ W; E: H! y                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
! ~- Z  }9 v& A, J% {8 H                        dx:=0;
9 L2 q8 }+ ]3 O8 e                dy:=0;
                        --end;
  p& {4 Q  |, b7 p                end;
                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
8 d* O% @+ L( Y8 h: s. ~                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
2 `/ M$ A) K8 `. k# g, g                        activityspace[2,rows]:=activityspace[1,rows];
7 x# k0 h; p) i7 h7 C9 U                        activityspace[1,rows]:=ct;
4 ?5 v- F0 _6 P: a* L                        end;*/
        next;
        y_max:=y_max+dy;
" w* s4 V: `4 Y6 x# U        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);
       
        rows:=0;
; c6 K% y' z- t+ l3 c3 y        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
; G- g; n1 H- y                        if j=i then
                                d_from_to_chart[j,i]:=0;
! Y/ Z4 f- M, ~  N                        else
8 R, I2 I" }$ `8 G. X/ W' e                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
, H0 E$ A4 ~1 S& m. H                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
4 T5 R3 ~0 E+ Z3 z2 T# j                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
( h+ d% P9 o1 T5 ^% t% B- C) Y: R                next;
        next;
       
/ E5 C6 n- P% u  w        lines:=0;
        partstable.delete;
3 }  B5 Z5 S  W2 J6 N/ e) e       
8 q1 v- Z. w' u        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
  k2 z6 O$ V* G4 ?' N/ v                        if w_from_to_chart[j,rows]>0 then
& c- S+ r0 F- B9 Y/ n, G6 ^5 m$ m                        lines:=lines+1;
6 s- }$ ?' k* K8 X3 ^                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
- F# x" P( A7 N3 X) Y# k                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
+ A* ]; H8 [0 T& u5 \3 i6 h                end;
/ Q2 c, z7 C" I, ?2 A8 v6 y  B% R  q        next;
        machinename:=sprint("M",rows);
" u% E: b) Z& l: U        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]);
" k: ?9 S. Y2 ^8 q9 `        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
8 _" w* Z1 G9 d/ M5 S! s* [       
3 M% A' u/ }: C! W3 P, [: y6 s3 q        bufname:=sprint("BF",rows);
, c9 }) G, i, l: F6 ~$ x        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]);
8 N% e! [# y( Z# I2 i        buf.name:=bufname;
( F) j& J" _/ U, e1 ~: l5 x        buf.capacity:=5000;
3 m2 h( O: k9 c& ^* e        buf.proctime:=0;
! O3 z/ s9 E9 H- Z. h* Y        .materialflow.connector.connect(buf,machine);
: }$ W( c# U) I1 Y6 [       
. ?/ {0 M( J/ P+ e' a7 z        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
  a& Q  @. R$ _" o% }+ Znext;
4 x( G; J/ q0 j/ Wend;