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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
% h" [. F% U2 T    i,j,rows,lines:integer;
' E2 V# L/ u, B" Q$ ?7 r4 d' B    machinename,bufname:string;
( F2 H& r7 Y" Y# s    machine,buf:object;
do
4 ^# \7 ~1 Y1 H; w' S3 A        current.eraselayer(1);
; @6 x1 N2 {. P- x! M4 s! c       
2 D( E) W8 i% W8 H/ R        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
) O) u! d/ B3 V# k* p                        print"yes";
3 H7 N& s$ d5 I; B6 l) z7 O                when 32 then
# w% A0 y5 b* k- M5 Y3 s; @9 p                        print"no";
                else
% Q6 \4 X& F6 c  B/ Z( I. u. _                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
1 e$ f0 o# ?& P0 z  I& K        machinename:=sprint("M",i);
' v" l- D  X6 i! R' a        if existsobject(machinename) then
2 t; f, F* `7 A/ R, r                machine:=str_to_obj(machinename);
                machine.deleteobject;
7 A: u. ~% s9 M2 a8 Y        end;
        bufname:=sprint("BF",i);
7 ]- }8 f% {. l& l5 N( g" Q6 H' t* k        if existsobject(bufname) then
/ h' n; R1 l  Q" v( ?: K                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
# _+ t! T( k1 _0 k        next;
       
        dx:=0;
        dy:=0;
1 Q0 g2 A$ o: }" T6 k        for i:=1 to number_of_machine loop
! U5 R4 K. g; |* P                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. Q4 w! A& p3 `* t6 d                then
/ y$ N4 S) d6 C" g' y                        /*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];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
% j; Z0 v- t0 m8 Y* r7 _7 Y                        mark:=true;
; x+ r# c9 z1 T6 V1 [( m0 }0 _, B                        else*/
% I1 T* C! N  h" P8 |& @& X                        y_max:=y_max+dy;
6 K' y4 S" ?( R! q+ h6 h) n: g* I7 D                        dx:=0;
3 p/ F% u- B+ Z                dy:=0;
                        --end;
" r- O/ o" X  |% Z5 N& }  D! j1 E                end;
. v7 j( g7 q- r5 b5 N                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! {' T5 q, S, v( z/ L" Y6 Z                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
# P: R, E" w/ y/ n5 r                        dy:=activityspace[2,rows];
4 M% j% a% T7 H                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
8 w) y0 ~9 x* g& ], b# E8 \                ct:=activityspace[2,rows];
% T2 z. g) R* c* ]4 D( I                        activityspace[2,rows]:=activityspace[1,rows];
/ }) B) u7 e; u& ]4 g4 q8 s* l; }                        activityspace[1,rows]:=ct;
! s$ P& b' o/ s- S7 e6 H6 f                        end;*/
* {0 T) |1 J( R) ]8 h  V        next;
. n& ?" b8 y$ v        y_max:=y_max+dy;
0 t9 ^0 Z& ]! Q7 S/ Q0 _        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;
' K. m% \. h, k$ I  [        lines:=0;
  g0 W2 S0 f! Y! W" s        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
% ^* A1 f. Y. U                                d_from_to_chart[j,i]:=0;
+ n& y5 S2 E; O7 _3 F- K/ i5 U                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ k  \; k* d) i- ]* s7 t# T9 Q* j                                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);
6 a: s# [& V- B% E' Z) l9 U                        end;
                next;
        next;
3 ?3 \, u. M3 S4 n+ ~9 y4 o       
        lines:=0;
3 ^" h3 N. z+ Z& X        partstable.delete;
       
        for i:=1 to number_of_machine loop
6 h7 C( g0 l" V2 |& W. G: p  P                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
, ]- x( ~( K/ v/ K: \                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
' _) j7 w& t- {8 U- ^$ B9 d/ R                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; Z- ]& p- r9 Q+ q0 |                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
0 W% D, b1 s5 `/ ~4 i# ]: ]- ~+ d1 R                        partstable[5,lines]:=rows;
% t( o$ V0 D. I& Q* [/ Y; a                        partstable[6,lines]:=j;
) g! V+ v9 R7 m4 t, [5 @                end;
        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;标识符未知
" E. X* H8 i0 {/ ~        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
3 v( F7 D  U  P2 ^/ |8 \, j        machine.exitctrl:=ref(leave);
       
: `( ]. ]2 F* |# z        bufname:=sprint("BF",rows);
+ D2 _% A* y  `2 D+ L' o        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]);
# V, v- l+ W: I3 w$ D$ ~        buf.name:=bufname;
4 t3 k8 R: K& e  j        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
# q; S2 x! A8 r) g3 n: S        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* m5 p3 b  z$ gdy:=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);
2 t0 a# y: X% Z9 Ynext;
/ P( ~) h2 z: w9 O# j& n( u# Nend;
& V# T3 I- [% V* A