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

zooey

is
        mark:boolean;
7 \8 d: \3 B8 L8 u$ I: [. g        dx,dy,ct:real;
* V. `& ?& |2 l5 \# w) |    i,j,rows,lines:integer;
% t  s: R; N' N' S/ v    machinename,bufname:string;
) t, W. i/ N% M: D% O9 z    machine,buf:object;
+ Z9 {/ m) O% t- Odo
: x  y# k0 ~, d$ |1 E+ ]        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)
                when 16 then
4 l/ u0 \) `( c: h# X+ v: c                        print"yes";
                when 32 then
9 X/ B7 j6 Y5 Z- |# E( n' d5 z                        print"no";
                else
0 z! ^" O. n, p$ A( X2 v                        print"cancel";
: p% P8 G3 P$ W2 A7 b9 i3 j; ]                end;
& [- V8 R" R# g: H5 [- i/ I; ]                eventcontroller.stop;
: F) E2 m# C( W2 r* Z0 A6 S/ F6 Q1 K        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
3 I9 ?) U  z' P8 ~        if existsobject(machinename) then
& g' u2 @0 F$ g4 O7 I                machine:=str_to_obj(machinename);
                machine.deleteobject;
( g+ O6 J7 x+ G2 w+ O' m0 T" ~- U8 D        end;
        bufname:=sprint("BF",i);
4 i) w" o, n: d9 W/ c        if existsobject(bufname) then
3 B- V; m5 o, e+ u( N. y$ ^5 f& l                buf:=str_to_obj(bufname);
                buf.deleteobject;
/ n; A5 {. F$ W, l$ i' R        end;
        next;
  r$ r& r1 ?, F0 w) x       
/ u& R* I4 ^. _/ ^5 S( A        dx:=0;
        dy:=0;
% p" E1 L5 p& w% J  \        for i:=1 to number_of_machine loop
7 ]# I" F" N+ o! K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 e4 ~0 T8 B9 v% ]9 B" w                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
& h4 T0 |  W! _1 n  m                        and activityspace[1,rows]<(1.05*y_max) then
' s! A* u/ w) H                        print activityspace[1,rows],",",activityspace[2,rows];
6 p. J9 x2 _# n) E9 X; v# P                        ct:=activityspace[2,rows];
7 A# I8 U! `5 `; a                        activityspace[2,rows]:=activityspace[1,rows];
2 q3 [) d  J; X                        activityspace[1,rows]:=ct;
- N- k: r" |7 r5 v                        mark:=true;
# n# N3 U) {" I/ T1 q: g7 I: h6 G                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
7 N7 e% ~' g7 a! W% B. `5 `                        --end;
                end;
2 Z: C+ D1 t: o9 w8 E1 p# @9 D) b                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;
( i. H+ k  @& m& @% `            if activityspace[2,rows]>dy then
3 f, U! K) A% ]9 j' p                        dy:=activityspace[2,rows];
8 N2 J/ N1 h- w9 x- D" o                end;
: M# V9 U& s/ Q, ^, z/ N7 n                dx:=dx+activityspace[1,rows];
- L% K* u  A' }8 a                /*if mark=true then
                ct:=activityspace[2,rows];
4 B) x5 C: W# X7 O' U4 e                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
7 w# s: o) ]! U0 T7 ~* \: R        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);
$ d" t4 a: ~! V& y" f6 w        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);
0 \3 w( ]; |- @# b% w/ S) \( J       
        rows:=0;
- o6 R6 g  K1 W6 c) N        lines:=0;
        for i:=1 to number_of_machine loop
8 E- a2 N9 f$ n9 j, Q                for j:=1 to number_of_machine loop
3 v2 V# z; A: o3 L8 A% D                        if j=i then
                                d_from_to_chart[j,i]:=0;
) a( `- o- ]/ [, r( k                        else
                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
& C- Y; \7 R. t! u! m                        end;
9 \  {: U1 l  M1 l+ w7 Z+ p                next;
( Z5 L% [8 Y$ g5 }5 y        next;
; l; B/ Y- b. I& w% m+ J       
        lines:=0;
; k* A2 G9 V' q& Y- \$ Q        partstable.delete;
8 b+ x0 J* ]% \: q. Z$ B: f0 x       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& {' P2 f, m# N  n! y                machinesequence[2,i]:=rows;
* S& Q4 Q7 y% b7 ]0 {7 i$ Y                for j:=1 to number_of_machine loop
- U- p. n4 ^. u0 P6 P                        if w_from_to_chart[j,rows]>0 then
- ^5 W* P5 g2 P- }6 ~; d* _. V                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
. _  x3 m+ g4 D- |; k                        partstable[3,lines]:=sprint("parts");
" q$ B& [- e# i5 x/ \' [                        partstable[5,lines]:=rows;
( f: r$ W( }3 ^. d" l  m                        partstable[6,lines]:=j;
2 c% a2 o7 L  ?- u                end;
2 C+ X3 C" k8 J( B, T+ j        next;
' v* q" J; ?- `: U0 o9 A0 A0 U        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];
. C9 s/ O* p, I8 ^        machine.exitctrl:=ref(leave);
       
        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]);
$ ^2 p( n8 R% _2 A% i        buf.name:=bufname;
        buf.capacity:=5000;
) {8 c/ N! q: J/ O" \! Z, K        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
/ }5 w/ _# a, {# \        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 J6 u! g2 ]# L8 e9 ~0 T/ h7 a# Hdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
9 D2 L  R/ N/ o8 n  q7 b0 V( }. Bcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
, {% l3 b. K3 E) C% ?- snext;
end;