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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
9 |  c# H5 F& Y    i,j,rows,lines:integer;
+ x5 z$ i. y& g; ]$ J    machinename,bufname:string;
3 {7 R5 i/ W3 `; d+ A6 ^    machine,buf:object;
do
- \) p, V- n8 F        current.eraselayer(1);
) o" }& C4 ?: t6 C4 T" N$ t       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
0 O1 L" I0 q( G( m% |9 P                when 16 then
                        print"yes";
                when 32 then
                        print"no";
8 F' [3 F4 O8 u' L; \& N; h                else
                        print"cancel";
. s9 u8 |9 Q5 F5 m                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
# r/ J0 F* p% l: C2 v                machine.deleteobject;
        end;
% U4 R2 J. L! Y  j- X# E        bufname:=sprint("BF",i);
' [) V# j- c. [/ k! j3 X( X        if existsobject(bufname) then
( b3 [, O, G$ e/ W                buf:=str_to_obj(bufname);
                buf.deleteobject;
" u$ ]7 Z$ O" c# ~2 f1 }        end;
0 ?: c; m1 S+ D+ n  e        next;
7 y" Q. Z# F9 x" D6 {' {% Z+ r' L       
" W2 j: }( c9 y+ m% z1 H' W        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
- [2 U, R. n- [+ `& n. Y                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' d- |6 H# Q" U7 I* t                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];
) h6 l% s/ n6 E, }* X( y' g- J                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
: g1 t5 x1 ~. w1 |: E# {# n+ |                dy:=0;
                        --end;
                end;
  |4 ~! O5 y' g2 y  Y, {                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
  U% B. K" M7 R$ g                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
4 h& }8 S- j4 |                        dy:=activityspace[2,rows];
0 g7 \/ u8 V+ x! {# a6 M: V                end;
$ z0 f9 f- }; @: o9 `' k' a( m                dx:=dx+activityspace[1,rows];
5 B& \- f) v& O% p7 t# Z                /*if mark=true then
  F  p! u. W! u+ m                ct:=activityspace[2,rows];
% f& \& _) _5 q2 H: b                        activityspace[2,rows]:=activityspace[1,rows];
3 u5 Y. ]2 l* u: x2 o                        activityspace[1,rows]:=ct;
                        end;*/
) K5 w# r7 d6 I& D        next;
- H- z  L7 H! i6 i- j2 M; c# ^' I2 U$ U2 E        y_max:=y_max+dy;
0 M0 M, M% t- I% N( U1 i6 w5 j$ c0 v8 B        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;
' A+ w* I8 }% Q/ p8 T( x        lines:=0;
        for i:=1 to number_of_machine loop
! R0 q+ T% j5 D8 E0 q) V" G/ J, E                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
6 c$ ]$ ^, N  T1 s* r                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
6 ]; m$ L, m% P$ b) i/ m* f6 h                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
- K5 q, G% O! k$ O2 D; |! c                                d_from_to_chart[j,i]:=abs(dx-dy);
- S5 O7 M( D" R5 r: W                        end;
                next;
        next;
. P' R* {0 D$ v" l; F7 V& o; Q       
        lines:=0;
! h# k% O" r; y4 v) k        partstable.delete;
       
8 Y4 b  `3 c6 t: U9 t- a        for i:=1 to number_of_machine loop
/ j1 C) I+ S2 p  T6 @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ H% N  _$ l' j& `                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
, |* f+ s, Z4 N6 @2 q) F                        if w_from_to_chart[j,rows]>0 then
  T( ?5 D0 f' `  t- t) |0 k                        lines:=lines+1;
7 y+ ]- y8 l* w                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
4 \8 k4 S  Q4 Z2 Z3 S                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
. [" a9 ^. E+ I# T                        partstable[6,lines]:=j;
                end;
8 J% I) u9 N! U5 N" z. N        next;
        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]);
# _2 v  j' l6 n" ^* \1 j6 m        machine.name:=machinename;标识符未知
        machine.proctime:=5;
4 d! }+ {5 ~( t  H- [+ b        machine.label:=activityspace[0,rows];
4 i9 Z1 |, i4 y9 s, v        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
2 f9 r7 i4 _7 `4 h" k- d3 v        .materialflow.connector.connect(buf,machine);
       
9 L, m1 z7 C- I: s: @" }, l. @, m        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
. n3 I& l2 _6 I: [8 N, x7 Wdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
& K6 w; K4 f5 {8 F. [  f: Qcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
' M! B7 [: z2 send;