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

zooey

is
/ J( e% w) z7 d        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
- E4 ^  [$ @+ I8 k" I. J2 s    machinename,bufname:string;
3 `. `) \. v, H0 v! y0 e& @8 J    machine,buf:object;
6 i3 O( C. }/ \5 k, ]do
        current.eraselayer(1);
, v- f) B* w; B' f       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
1 Z1 b0 y/ _8 \" F/ O: p                when 16 then
( ?" a+ c) A- b( R                        print"yes";
8 ~8 N8 a4 W! E, c% w' L$ o                when 32 then
                        print"no";
/ [) N- }0 D7 f- R2 M, [- A                else
                        print"cancel";
                end;
; L7 G- k# `- T                eventcontroller.stop;
        end;
       
# r& T% v, n! R6 Q3 b: M$ ~        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
! p* H! q# r5 |4 z( d, k4 K& z        if existsobject(machinename) then
6 ?$ V! X7 C0 y  B+ p( L* z7 g                machine:=str_to_obj(machinename);
1 C+ v$ J, C0 Z- ~; d                machine.deleteobject;
2 q2 ^" V! p0 E* b        end;
        bufname:=sprint("BF",i);
& y1 w" A: S, s8 z        if existsobject(bufname) then
0 I5 J+ H6 s) b$ ^3 r; x; V                buf:=str_to_obj(bufname);
- A$ }4 A  R+ _2 u$ x8 U4 I/ ^7 l                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
, y" q& T' M1 S9 b/ j        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
8 U, n* @4 m/ C7 a, E, q, X7 R                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! k- Z. N3 S5 g" |& [4 ^3 J                then
                        /*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];
, N+ ~0 G9 z1 F3 ~" M                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  I' M7 f- @9 e; R                        activityspace[1,rows]:=ct;
$ o8 a  A/ p$ ^2 m" \8 _" V                        mark:=true;
; L: _5 L4 C4 ]. U, x, K5 L                        else*/
% d9 i5 p  @8 @) O0 }0 i- a                        y_max:=y_max+dy;
                        dx:=0;
5 e0 _+ E. r, j" ]                dy:=0;
4 e+ F- J" {& W6 p# v/ X4 V3 a                        --end;
+ A0 A" z( t6 {4 j/ M, @7 N. ^                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
: G$ A" p6 k% @6 L+ h4 t% V                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
$ q/ l  u" G& q  y: z+ H5 ]7 F            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
: @: \8 O$ f, A                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
1 x/ m; d# E, H0 ?4 Z3 f                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
7 \' o7 X, o. A/ m% f. N, ]  C                        end;*/
. j5 s' b/ S1 O7 r! ?+ Y) V9 X        next;
2 v: W/ t/ w1 C8 t+ _1 S        y_max:=y_max+dy;
; w( @# z# k! i4 m8 i        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);
) G% f. F: ?# ~7 f; q' G1 K       
        rows:=0;
0 T  X0 c4 _4 S. x        lines:=0;
        for i:=1 to number_of_machine loop
0 c: q3 ?" e( g" T0 i                for j:=1 to number_of_machine loop
6 l  n, `9 ~' m, M3 J: ^                        if j=i then
                                d_from_to_chart[j,i]:=0;
% z1 }- r, I3 [* r                        else
0 J, m. n! L! Y# N% ]. M                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* N7 O. T$ X5 a" w5 K  i( y                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
8 Q1 U3 ?$ K- S# h- ~7 O0 C                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
, G  H2 u+ M0 T+ h& `8 t                next;
- D2 z+ `/ H! [) M9 g* T- x        next;
+ e' @6 c% P# s6 Q       
: V0 l! c  x$ G+ P. c        lines:=0;
        partstable.delete;
% R: c& m; w- n! N  K: c       
8 ?1 C. [2 W  N6 X        for i:=1 to number_of_machine loop
- i# S( W9 p& ~( w/ f. P& g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
- X( r. \5 K: ?& C+ L                machinesequence[2,i]:=rows;
9 [8 B! }; c9 p; Q                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
& H6 z; z6 |% }- o9 D4 S                        partstable[2,lines]:=w_from_to_chart[j,rows];
: A! \* y4 P5 W, w9 ^4 t2 e                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
+ O1 Z6 X/ a; M# A' d$ {/ p                        partstable[6,lines]:=j;
                end;
        next;
3 @9 K7 n+ P+ H& ?6 B3 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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
+ i& v0 N  C9 q3 E; i, |0 y        machine.exitctrl:=ref(leave);
       
& v6 {0 T& g) K0 Y) b# A6 C        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]);
; Y, n1 F4 U3 H$ H* S. H( q: L; A        buf.name:=bufname;
! U6 r* r, T( @+ R5 t& U/ K4 i        buf.capacity:=5000;
  l. u, ^3 t! W- G8 k        buf.proctime:=0;
. T) A( }1 E$ B        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
, @  S/ Q& a. G; Tdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
. {7 e1 A$ e4 J; W& Lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;