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

zooey

is
! N! G, H. H' C7 Q        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
8 G" o. B& a7 L8 C4 W# R    machinename,bufname:string;
! X: ~" e9 _# d& G% K# [    machine,buf:object;
& H' n0 [/ {8 `5 X: Rdo
        current.eraselayer(1);
+ n1 a4 q+ g9 Z; C9 \9 ]  s. W       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
3 }8 h/ j6 S3 a0 g2 c6 t                        print"yes";
' e! u. B% M8 X" z' F  D1 `                when 32 then
0 H$ f" m, D4 S; i                        print"no";
5 C- O$ @+ N: _7 S3 W% z8 l) T                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
: f3 H+ z( I5 e' O        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
$ P& r1 ]: b1 H. Y6 o( u        if existsobject(machinename) then
& h$ k4 b% e" c% N% }                machine:=str_to_obj(machinename);
+ n) B5 M& ^  T) U2 F" B  o, b                machine.deleteobject;
' h% J3 w, _( \        end;
        bufname:=sprint("BF",i);
) M0 y5 W' j' e- |" r        if existsobject(bufname) then
4 q- F9 Y4 c' V$ Q9 {                buf:=str_to_obj(bufname);
( ^3 ?: t' g* j3 j                buf.deleteobject;
0 z; M/ ]0 x! r1 w) F% F$ K% f" f        end;
, `  l& i2 O4 w        next;
, T$ I. W+ B  E3 a: g; h- a& {       
% \; |0 e# M! R4 U        dx:=0;
6 J" E5 o$ f0 Z0 N        dy:=0;
" B# Y) Z6 V+ J        for i:=1 to number_of_machine loop
# u$ \: A8 S0 A: A( c) u8 g1 M                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ G1 E7 V; c; \+ g1 n                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 f  T# ^6 t: p$ U& _                then
( L7 E! H! p5 D0 f( M                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
) m- _! X9 R+ ]; ?                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
. }  W$ Y* C! i3 |  F# u: v                        activityspace[2,rows]:=activityspace[1,rows];
/ b1 U0 ]. Q% W5 w9 h8 a+ F                        activityspace[1,rows]:=ct;
7 P7 o& L+ U3 Z* q8 H                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
( L3 d: Z4 |6 B4 i                dy:=0;
( I' V% B4 U/ b0 O                        --end;
                end;
1 x8 g2 k% t$ t" h! e2 W                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;
5 j$ f! c# @, k1 c            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
6 e1 M7 Y+ o( `) R                ct:=activityspace[2,rows];
6 K' @! T+ ~' M! U4 f0 D/ v$ h                        activityspace[2,rows]:=activityspace[1,rows];
# T$ ^+ e* g. c2 O/ ?) @                        activityspace[1,rows]:=ct;
4 j% P. ?: m2 S- A7 l                        end;*/
& Q1 K3 N( B: T, f4 e3 {        next;
        y_max:=y_max+dy;
7 J" l* \1 N1 K. A/ x! h        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);
       
  \' c1 w6 T/ u9 J( X, n/ h* q4 Y        rows:=0;
' Q4 j# t9 [0 {        lines:=0;
# G: T, v# u. M- F* M! B0 R- k        for i:=1 to number_of_machine loop
: ~9 Z1 ?2 |5 A                for j:=1 to number_of_machine loop
1 c7 o' i4 w$ O                        if j=i then
                                d_from_to_chart[j,i]:=0;
9 @% S1 P) V8 k, D- J( [8 {8 Z                        else
8 |* Z- t) `8 ?7 `( [                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
( p+ b* E" d$ U3 {- W! O4 U. W                                d_from_to_chart[j,i]:=abs(dx-dy);
- V) t# f) D7 R+ k                        end;
                next;
        next;
       
( ^6 k2 N+ C6 E& F( ]0 ]        lines:=0;
* a- ?5 m/ i$ |& [+ f8 n5 O        partstable.delete;
. V/ {: g; g  _       
        for i:=1 to number_of_machine loop
- U% Q. l/ s/ V4 V; r  {                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
' s+ q; j8 |* b/ I' q$ A                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
5 \" y$ Z" b, ^) T5 S0 X                        lines:=lines+1;
                        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;
                        partstable[6,lines]:=j;
                end;
) ]) I& \/ N) z1 ]; R        next;
( U/ b- P- H! A! _        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
; B6 a& G9 E9 J/ \" B" q        machine.exitctrl:=ref(leave);
) e& Z3 B3 H) {6 F4 T" T       
8 {; [8 f: X2 X0 V1 @0 y1 g        bufname:=sprint("BF",rows);
        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]);
0 t+ i' W$ A( Z( b3 E3 ]# y        buf.name:=bufname;
" ?7 g. L) O* H# q# g: {3 ?% Q        buf.capacity:=5000;
        buf.proctime:=0;
7 G, \+ n1 @- f7 t+ x+ W3 n        .materialflow.connector.connect(buf,machine);
       
        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);
next;
end;