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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
( {8 o8 {2 h) U; ?0 G+ M    i,j,rows,lines:integer;
( u; T: @8 Q+ \' r- T    machinename,bufname:string;
& x4 K6 T2 V3 w8 h$ F! S: ~    machine,buf:object;
3 z- n+ v" u* l! o& [do
        current.eraselayer(1);
9 P9 u( N' A6 j( L: f       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) X+ s4 ]7 y" A9 q                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
/ }5 c4 A9 [. a* ~4 ^+ M                        print"yes";
! t6 m' T6 ?: Q; M) M* p7 k7 o$ ^                when 32 then
! h& A' n/ E; {                        print"no";
) P2 c& H+ c5 y                else
3 l& {4 Q( j- o; ~0 B# @9 Y                        print"cancel";
                end;
6 Q* R/ ^% }- i! V3 P7 P                eventcontroller.stop;
        end;
       
) |& a2 H% X$ B$ a3 K7 s; `        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
# z8 _  n; g/ g3 V% h0 e1 O        if existsobject(machinename) then
7 H5 s. W/ M- S7 y  W$ Z' y" }                machine:=str_to_obj(machinename);
                machine.deleteobject;
8 Q# f7 ~9 M- D! @        end;
( M: E* V( B2 R$ P0 g5 _% P1 }8 X2 Y        bufname:=sprint("BF",i);
% C. G4 F; F9 c" E- m        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
7 [2 @2 T* y* E0 t* z                buf.deleteobject;
        end;
2 W* C1 ]" Z( m        next;
6 W4 F( o. \3 N/ m+ [2 @! Z8 c       
& U5 M$ T( R2 v& N8 N6 X. u8 N        dx:=0;
4 m% {" c  F: Z        dy:=0;
" P8 d- u4 x! ^0 n. U& e        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. |! B: Z8 E3 E                --mark:=false;
' q5 z1 c8 R* g3 }/ |" }                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
1 m& n: O8 |6 w( ~* Y# m                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
) \) b  A. ~! L8 S$ J  Q                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
! m. i8 Z1 u& L5 ?                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
2 U- n, ]% R1 K3 ]                        dx:=0;
2 o6 Y& R) O0 Y6 m* b- s1 v' Y1 Z                dy:=0;
                        --end;
                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;
+ c2 P( {& j/ Z, A* C6 ]" P            if activityspace[2,rows]>dy then
" q1 n% ^5 x" Q) }4 ]                        dy:=activityspace[2,rows];
, S5 ]# j  _7 S( U                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
8 p* Z6 L2 I3 |. `. ^$ C$ o$ q                ct:=activityspace[2,rows];
: z6 U, I0 A6 b; o9 Q6 K                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
+ E# G: p5 P9 j" ^% E        next;
8 v6 [# j' Q& p  i8 t1 k. Y+ }        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);
       
        rows:=0;
        lines:=0;
& K1 u' g, [; ^$ H9 ]        for i:=1 to number_of_machine loop
1 I# t- b* d1 o& ]; [  L  ~2 `" [9 h                for j:=1 to number_of_machine loop
# W* A; e, B2 r                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
' L  O1 }% ^% M3 k1 ^                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
( M  h! c* R9 v2 k% a                                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);
                        end;
' D  S4 X$ n4 k) e& z                next;
2 s1 r: x& L3 X0 i: {        next;
: N0 h: ]4 ?* J1 c1 z; D3 I       
        lines:=0;
        partstable.delete;
  j" h; E& v: u5 D! z       
        for i:=1 to number_of_machine loop
/ F+ T; @$ b( D( A, o/ U  a                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 ?0 Y9 z+ z# B& J5 R9 l                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
2 d) b1 K! ~. Z8 G7 n                        if w_from_to_chart[j,rows]>0 then
- Y) Q. x2 S5 k) f3 U  u6 {0 o$ @; X                        lines:=lines+1;
- A6 Y' Z! ]; h9 |+ V9 e                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
# P' ~/ v% w6 H# h' y6 ^                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
3 K& w  X9 G1 u" `                        partstable[5,lines]:=rows;
4 a# h- |& L* Y+ \+ H                        partstable[6,lines]:=j;
                end;
1 x# `6 H) g/ `( H/ T+ M0 @        next;
        machinename:=sprint("M",rows);
" Y. c- ^7 f% i2 M( A        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;标识符未知
4 I3 D4 Z* k; ~+ D        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
/ h  P0 x( l8 `- W1 a: A# Q       
        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]);
! _1 d" R5 V) L        buf.name:=bufname;
# l: @$ t) h* e/ F+ o0 s0 U9 w        buf.capacity:=5000;
, A3 z# x; v) U! P        buf.proctime:=0;
        .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;