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

zooey

is
( Z; C8 g3 e* a% ^8 M6 M9 {$ `        mark:boolean;
        dx,dy,ct:real;
  _, ]) X8 y* I' ?) F$ e4 C0 N1 p    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
" F1 m4 \% o7 N+ Hdo
9 X; Y' Z4 `# m) L/ O& U: d0 P' r0 E        current.eraselayer(1);
4 V% R4 V- V( o4 L" }! H. \       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
# s6 g3 |" Y& b+ D1 g                when 16 then
; d7 h+ q4 U4 f: [  e                        print"yes";
6 V: y' T6 L. _) t# S# V" `+ x                when 32 then
1 _/ q" z) E: N- }7 d$ C9 H                        print"no";
. g" W1 N  j1 k/ V) F                else
9 z. R' O* U/ ^& y                        print"cancel";
                end;
. ^3 ]8 N3 j- U2 k  ^1 w& Y                eventcontroller.stop;
        end;
       
% M* H& D$ L& g1 q3 W        for i:=1 to number_of_machine loop
/ v% A9 _' t. `/ g2 e: j# {. {& R        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
, N2 z3 k9 l' w$ m% R5 E        if existsobject(bufname) then
) Z/ A# Y# z: t( I! ~6 W" b                buf:=str_to_obj(bufname);
- e6 j. O6 t* H$ g8 ~6 h" {6 L                buf.deleteobject;
. F/ M* z$ `8 W5 P3 T        end;
) W) o" N! v. ], e- \        next;
       
        dx:=0;
2 A. \0 W9 N7 o" c        dy:=0;
' g& \1 s+ n& O' Z/ j0 P1 R        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' p1 F* h6 E: E$ l2 L( b                --mark:=false;
' ?2 D; J  q* O; t2 G5 @3 i4 J                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
2 [: p3 `6 g6 L: V, w$ b, N                        /*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];
, K8 N/ c9 K- r) T1 v4 O                        ct:=activityspace[2,rows];
5 r( k( |8 s9 L9 ~; ~, v& v9 k                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
! g* t- i+ q, q, A# W7 N& V' @                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
' Z! T% L) T7 ~/ d( A/ I0 \                        --end;
# c7 d) x1 m7 V) _+ e2 s: d                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;
+ _8 {& B# D8 s* s) I" c5 \1 C8 m0 n            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
+ j% q" b! V) v) N  \& U; d0 u) N                dx:=dx+activityspace[1,rows];
                /*if mark=true then
! w& W1 z, M& g/ s6 I                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ H6 Z, ~7 C6 j9 n/ Q                        activityspace[1,rows]:=ct;
. E2 W0 z  A. m4 f' t$ J                        end;*/
0 ]1 n  N- F# ]$ t; v) r        next;
        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);
% r' a% r) x5 [1 }! r3 I2 f, K       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
5 h# y4 _4 `% W+ K- t                for j:=1 to number_of_machine loop
( `+ ?; r2 T: l/ v                        if j=i then
                                d_from_to_chart[j,i]:=0;
$ h: G$ _; i- ]1 W/ c; F7 R8 K                        else
; c: t" o* q: w- Y                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
9 z- t+ O5 I, y& O2 F* v# v, J2 s                                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);
+ U2 x9 r5 o6 Z* j                        end;
: Q& X0 G, L4 g0 K, V( [) }9 @4 |) n                next;
  N% I3 v4 j4 c0 o: B        next;
       
        lines:=0;
        partstable.delete;
       
+ f  w6 a  r9 W5 b( H        for i:=1 to number_of_machine loop
6 `4 y- W; U9 `- u3 {2 A                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
) [* d  M9 K3 G5 L$ W# u" h8 e                        lines:=lines+1;
# [7 _9 Q4 I! ~! f- ~3 U                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
, `: N- I$ {% z- u! a8 d- c                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
  S2 T3 {- r) s+ i        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]);
        machine.name:=machinename;标识符未知
; L: w* X; M! h& h        machine.proctime:=5;
6 ]2 g3 @; l6 i7 s$ v' k# i6 k! w        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
' N. B! E' n6 d* B( x' K       
        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 U1 \% K% V( W/ R( ]1 E& I        .materialflow.connector.connect(buf,machine);
       
9 k& \0 [. X. X/ y        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);
7 t* W# M5 V& [1 rnext;
end;
/ C, k* [% t( M: V: B1 t) o3 T