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

zooey

is
        mark:boolean;
$ j) N! W8 m% r' z/ o        dx,dy,ct:real;
    i,j,rows,lines:integer;
7 ]. {. G/ _2 P" w3 O: G% d0 }    machinename,bufname:string;
6 b( D) ~- T# Q' A# l    machine,buf:object;
+ t, `7 i! d2 h2 K, j/ {do
+ p; e1 C9 Y0 T8 t' y        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
1 H$ s. o" Q, N5 a5 c                        print"yes";
                when 32 then
$ Z0 a& _- }7 Q& y! }; m                        print"no";
                else
                        print"cancel";
                end;
! O. D, Z3 D4 s$ ^                eventcontroller.stop;
0 x5 @* Z  F1 o# v4 J        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
  m7 \4 l( Q5 ]5 i7 S& I1 I/ h/ w$ Z        if existsobject(machinename) then
% I2 u  y! [2 _9 ]                machine:=str_to_obj(machinename);
9 d0 X2 x! y& r. |% \- T                machine.deleteobject;
/ R/ p! D2 l% y3 u        end;
        bufname:=sprint("BF",i);
% b) u7 Q& a" K* S2 g5 X# I        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
7 u. c' }1 x2 i9 y- j        next;
: g, [, E7 W! N& s3 o  B       
+ l/ d3 U/ N$ J& E; J        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 O$ {0 A) w# Q5 G. Q                --mark:=false;
  m5 k* M, `2 n  e7 C! R3 d                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
( P# q( d; I+ H: J0 E9 j4 v                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
" |. _" l# X, E- ?* _                        activityspace[2,rows]:=activityspace[1,rows];
5 o  }: j" U& {2 y3 a! f' v                        activityspace[1,rows]:=ct;
                        mark:=true;
& U% v7 z8 Z0 e% {& K. z                        else*/
7 T1 K. l- {3 |3 }                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
1 }& [! T1 b6 W4 Q5 _                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
# C2 F# I# i$ H  i; q                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
$ L' @* w4 b1 I            if activityspace[2,rows]>dy then
- Z5 c% M/ }7 X4 |- U* a( m                        dy:=activityspace[2,rows];
, p: x1 ]. ?' v; u% w                end;
/ _" G/ ?5 d' b2 s6 C/ L                dx:=dx+activityspace[1,rows];
& E3 \! w: B0 o                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
6 S0 K0 v0 m6 Z$ \) Z                        activityspace[1,rows]:=ct;
7 q$ W5 u  |5 m- o                        end;*/
3 Y3 {2 R) [  }2 G        next;
7 ^* D6 m  U9 A/ P; s5 H8 g        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);
: C/ s1 U5 g$ a9 F2 x       
        rows:=0;
# V+ r0 J* a% ]" V: ]        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
) t' u7 }! J, u" h% k                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
8 h/ L' ~# [" [& p" L                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
1 J% ~6 ~0 @1 e; e; S! U                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
3 f$ o+ g. A, Y* ^* K- ~# |        next;
       
8 W# `5 P) V4 p        lines:=0;
        partstable.delete;
       
& s: J2 N: C+ S9 N4 O, c& [        for i:=1 to number_of_machine loop
  _0 G9 \+ P% N& ^7 k                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
3 b, O  n( S/ V                        if w_from_to_chart[j,rows]>0 then
& E/ j0 G6 U: P! N7 }" F                        lines:=lines+1;
7 n- X" V0 g" O/ j                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
- Q/ |2 A/ W' G- T% u                        partstable[3,lines]:=sprint("parts");
. y# c& A( Z# Q. I; ^                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
8 H( H' M! q. s# K. J3 K                end;
        next;
+ x* S% s7 D5 R1 ^! m* J        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]);
. H2 \: q- t1 a, D        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
3 T5 h& C) P# }; R) n. G! S        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;
        .materialflow.connector.connect(buf,machine);
       
, Y7 W. O' w7 d        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;
" v0 p, d' z% C7 d9 ]/ Tcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
' K  {$ j9 F7 F- Iend;