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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
- _, x, g" W8 F! s6 t9 _* [    i,j,rows,lines:integer;
: e( f( ]' o4 k- d+ q: s# `    machinename,bufname:string;
1 u, h$ E( n6 D& l    machine,buf:object;
+ |5 r# ~% N6 z- vdo
* I8 U- m/ V) d+ z8 L: M        current.eraselayer(1);
+ K6 h/ s5 N$ b/ P       
- D3 `( I( z6 f/ |9 y        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
( i8 e5 Y! k, |! |8 A" [6 Z0 d0 q                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
( q: ?' v, Q2 d5 ^* X8 i                end;
                eventcontroller.stop;
' y( k2 F5 J; h* \# D/ M        end;
2 ^+ J4 s) i0 e' d% F, K1 Z7 E       
  ]& W1 I' C8 g3 [) K        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
  y% V. H; P' T: {                machine:=str_to_obj(machinename);
                machine.deleteobject;
* L5 K  G5 c# f' Q7 s        end;
        bufname:=sprint("BF",i);
( m4 X0 H3 e% ]# P# X        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
& S, X3 M! W& u  o' b, Y                buf.deleteobject;
        end;
        next;
5 a, _* u# [+ P       
        dx:=0;
/ R4 Y# w" x0 v# C% D1 }- [  R/ S        dy:=0;
        for i:=1 to number_of_machine loop
( `: W2 E  Z# a, E1 W                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: ?2 a0 E' Y& h9 f# h0 J                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
7 b  w1 E/ J4 X3 z                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
. n5 R: x! g; ?                        activityspace[2,rows]:=activityspace[1,rows];
: S1 I7 \5 v+ e% A: N7 J                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
$ ]) b! ^/ @7 k! M5 \                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
6 ]. H( I# Q( R$ G8 j5 ]                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
! i" e6 P* t9 r* J8 f9 W/ Q# Q                dx:=dx+activityspace[1,rows];
& ]0 `* P0 B; C( R* N3 t- k/ q                /*if mark=true then
+ E' H: l, d! ^/ y: |! b5 m% F$ `, ~$ k                ct:=activityspace[2,rows];
+ r7 B& n4 E# n6 u! Z  Q                        activityspace[2,rows]:=activityspace[1,rows];
6 E/ [* M2 u7 F7 S                        activityspace[1,rows]:=ct;
6 P# p& x) Q. |                        end;*/
        next;
$ W$ f% ~0 Y( k/ w0 h/ C$ ?& a        y_max:=y_max+dy;
' L5 t: c/ v  |* f. C7 V        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);
. H" N6 j: u8 P  s+ y: P+ g  I        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;
$ x. i% {% \: B' N3 O, d4 |% _6 V        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
, m1 C& K- A% G' v9 `& Y9 w4 `                        if j=i then
9 n# B4 ]8 h9 T- |8 e# n# t                                d_from_to_chart[j,i]:=0;
" k4 W/ h2 [: a4 k- X                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
; {$ X2 B, t& p3 ]9 K# l) G                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
& O# x7 M6 [0 p; N5 p1 Q9 q  l                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
0 Y1 R4 N' w+ {                next;
! A" H6 J# U' N/ D% W8 z4 k        next;
       
        lines:=0;
  F" a# S3 `1 u' ]0 p        partstable.delete;
# F9 Q) d; t6 P; y: Z' I+ x' j       
- u1 K" E9 D- g, O1 O! Z        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 y5 w% ~1 |+ v7 ]; ]' |! \                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
4 T* D& s+ r6 A2 c: c9 a/ c                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
7 _, b& Y: z8 a. t                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
1 ^+ l6 G+ e$ V# r" n' W                        partstable[6,lines]:=j;
                end;
        next;
# [8 L0 d/ c3 _4 E; C7 v! n% M        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;标识符未知
; {6 Z- {; U" V        machine.proctime:=5;
! Z2 ^  O6 R2 }! T% c        machine.label:=activityspace[0,rows];
9 j9 ~( M1 ?' n& w        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
0 I: g5 |: f( P1 ]' I* q        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]);
# o5 U4 V/ V) Y        buf.name:=bufname;
7 g# R; V" h! Z, D9 m        buf.capacity:=5000;
' G- }5 l9 u0 R. r% g% B' \        buf.proctime:=0;
# y8 T& {/ ]+ |        .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;
9 }8 D, }  y  f7 Qcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;