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

zooey

is
( Z* R/ r! ?- C. ~2 @        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
/ J- h( S& q; ~3 m+ {0 ^& @) D    machine,buf:object;
0 [8 }# G- K5 [+ Qdo
: ]% X7 i' m) {: D        current.eraselayer(1);
8 r' o6 w( p/ f3 j       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) s' N& E! k2 f5 @& U- \5 |& f                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
5 Q4 `. N5 t; h& m3 o% b6 {; i7 {                        print"yes";
                when 32 then
                        print"no";
                else
2 G( x9 F! Q1 f                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
- Q. E+ c' n3 f+ h. C6 n        machinename:=sprint("M",i);
        if existsobject(machinename) then
% \; ]7 p& S+ d2 z2 \* l                machine:=str_to_obj(machinename);
# w+ g, B$ N4 Q3 D  t% Q                machine.deleteobject;
        end;
1 D$ q  w, ^& v2 ~1 y8 f        bufname:=sprint("BF",i);
2 o+ |6 `* s4 M2 c  G' v        if existsobject(bufname) then
8 f0 e2 C. ]8 R- Z                buf:=str_to_obj(bufname);
' A. ^% X5 B6 S1 M2 @                buf.deleteobject;
! P- t3 d; L+ y6 J9 Z  j        end;
        next;
       
5 d# b+ k! t5 N, m. U' f( L% T        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
; i) r' B: _  X9 W( n3 {                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
' w) P; q1 s' P, L/ A9 \; h5 S                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 Q5 p& D6 ^/ ?2 h                        and activityspace[1,rows]<(1.05*y_max) then
& j) w6 W% c' x  M- \. J! Z" ?( d- R                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
4 x/ V; Z+ N- I7 V( P5 B: ?                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
7 x4 T6 p0 @9 x5 g8 K, G- ]8 @# T                        mark:=true;
+ ]8 Q$ x  `5 p4 |6 A, ^+ k                        else*/
                        y_max:=y_max+dy;
: x! y% r2 D: c                        dx:=0;
                dy:=0;
                        --end;
! N7 Y% c( [) \: @                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
* ~( k1 O- V5 r                end;
+ J; i( Q, g& ?/ |9 N$ [                dx:=dx+activityspace[1,rows];
3 g+ E  f" t1 h9 y6 h                /*if mark=true then
                ct:=activityspace[2,rows];
+ _0 T0 ^: ^7 o5 N7 i9 Y$ t) B                        activityspace[2,rows]:=activityspace[1,rows];
& |- B' g& W9 m                        activityspace[1,rows]:=ct;
                        end;*/
        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);
/ E% \1 b" L1 g# W        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);
0 @" M) n6 S( @! {- e       
        rows:=0;
        lines:=0;
, b' @9 J# R) C2 j9 C& I        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
% c4 [" G% Y. V  \6 A                                d_from_to_chart[j,i]:=0;
                        else
) b8 n6 w. E7 E                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                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);
8 K' U, C9 B3 U' l6 ]' a                        end;
( M# r8 B- V/ r9 @) S" N                next;
  U% H: E. S+ u4 \* o        next;
7 A4 \# s2 J. t+ z       
        lines:=0;
        partstable.delete;
       
  o# o7 K) v. i. a) }5 b: Z( q        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
+ L- d1 B& T6 c6 U: X& c                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"));
2 J/ ]& y1 O3 S! c4 {* L                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
3 K% S+ @9 H3 R, u' }                        partstable[5,lines]:=rows;
+ e8 L, O& \. Y4 e, F                        partstable[6,lines]:=j;
0 p2 t. J$ x; ?) e                end;
: G( n0 H& O, [2 S$ `6 A        next;
        machinename:=sprint("M",rows);
1 H+ [: H- E9 E, [. @2 i        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]);
, s' V* U! Z* H. O4 {        machine.name:=machinename;标识符未知
0 g* ]0 U1 x- n( g8 X. n        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
! S# z  E. y! \+ g7 V        machine.exitctrl:=ref(leave);
       
2 W$ s0 f# F3 Z, A        bufname:=sprint("BF",rows);
7 k' ~! \0 l% A# L: {8 u        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;
+ ]8 v) O3 v/ v- b; A        buf.capacity:=5000;
        buf.proctime:=0;
6 R) [5 N/ W* @1 h& k        .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;
+ q3 H9 A( Q, b8 W3 d) X' f: gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
: a. z# V) z& L2 L2 Pnext;
& U. w$ j- U- H- v4 w, jend;
; w- P; x; B5 p1 k& s+ N  Q. g