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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
1 m. U' Z0 A6 T9 k  v    machinename,bufname:string;
4 A- U. b0 r; ?+ I' ]" g& H9 B# F: r    machine,buf:object;
5 Q6 }* Y/ ?7 N6 b; \8 N; sdo
$ s% U: C' T! s5 t        current.eraselayer(1);
8 H7 b& C! O6 G9 b$ E       
3 K& Y, ]- {8 k, r        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
' R* X! {. c8 b- @$ ^" g                when 16 then
                        print"yes";
3 }2 K8 }$ `( l. w                when 32 then
                        print"no";
- p9 M, }/ d3 `$ y                else
* n7 G" y8 C, [% X4 K' K% \1 r                        print"cancel";
( ^, ]; P# R% s( |, V9 w9 k                end;
                eventcontroller.stop;
        end;
+ e, {0 m$ |( G8 K       
% i' G% S3 V, V        for i:=1 to number_of_machine loop
. m9 `- j5 M) r3 ]        machinename:=sprint("M",i);
) o$ J, V. v' H, e        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
1 S7 C$ |- p: Q/ ]# e        end;
9 J, t# t; {. l3 U& E, N        bufname:=sprint("BF",i);
8 f) S" A! h' k6 |$ y$ y        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
0 i+ h$ `/ @( H. ]- h) D" y1 q        next;
       
+ `6 n3 t" u- I/ F; h        dx:=0;
        dy:=0;
7 \: ?7 ?& Z' a4 R1 O2 w        for i:=1 to number_of_machine loop
4 u: F# m6 [# A% E9 S6 ?6 b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) q3 }1 \+ W- i- T                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
0 ?% W5 P, ?) D! M7 ]                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
5 \8 {& v+ V9 B' P% O3 j                        print activityspace[1,rows],",",activityspace[2,rows];
7 z& `* ?0 b' j# Q( k, V                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
1 O2 ~! o# ]: g                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
6 v- [' K) _8 _* k% u! _                        dx:=0;
                dy:=0;
                        --end;
0 d& j6 g7 I4 }( w( D! m3 t                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
* T( w  H" b  v: D1 {                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
* B5 v: _" S  Q, p* F, J9 g            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
1 N; g9 s( F8 _  K8 H5 u  D                end;
/ b  ]6 e7 V6 [. I9 ^3 I/ m( a                dx:=dx+activityspace[1,rows];
                /*if mark=true then
7 ~* y& _! l$ m3 v- c! d; {                ct:=activityspace[2,rows];
+ a! K% P' E1 P6 c  O                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
. f8 ^+ a) T' Z, O9 Q+ k. ]/ A% M                        end;*/
- h+ y7 M9 g# j. |        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);
) Q0 A# R+ ], }2 l        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);
3 G' s6 b' `9 ^- M7 z' I4 V       
5 F* g8 e, ^0 g" R        rows:=0;
; s9 i; j" B8 G( J* h7 o- Q1 M        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
9 E- i9 f- J# }8 C                        if j=i then
0 S$ z. E$ \$ W% ?8 T6 o7 M                                d_from_to_chart[j,i]:=0;
4 v2 E. {6 b  [; a4 X                        else
& N) I2 e7 n* q" T8 V, T! @                                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);
7 a& `! M5 {  h. x- J# n                        end;
                next;
- r) K# Y8 ~* y+ i        next;
& @! o& ]. x* c" E1 S       
        lines:=0;
+ }, e& D* `9 \/ S        partstable.delete;
  A8 H6 a; a; {' H, F2 K       
        for i:=1 to number_of_machine loop
2 R8 B7 }" F  X9 K) |                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 g0 ?6 Q/ ]( U" V& W( |4 K                machinesequence[2,i]:=rows;
& \' {: Z' I- a. E                for j:=1 to number_of_machine loop
# n2 b2 }" _% }% j; `! ^% ^4 R                        if w_from_to_chart[j,rows]>0 then
9 Q1 U8 n  \; u) G" E: I5 V                        lines:=lines+1;
" i1 n( V  _/ b0 |) o/ t3 A( s; S                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 ]; M* m( D/ u6 H3 f# u+ ~                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
& s! @1 A! h( r; s- {" Y                end;
% _  J7 s) p% d# ]' H5 {  L4 v        next;
: i" W- \' c* u! D( V7 I) F        machinename:=sprint("M",rows);
+ p( ~& m8 B, c! S3 w7 l        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;
) y; `& v. e+ {8 |2 O- Q  `. {. q, ?        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
3 Y5 |  K' Z* @8 Y6 b       
+ N* Z* S6 {3 ^' D2 u! l1 _9 p        bufname:=sprint("BF",rows);
+ i: O! ~3 ]8 i# ~4 M. r% T7 h" f3 _        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]);
; N6 v) ?) C  }) h8 F2 q        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
' z4 {/ ?4 E8 N- @1 ^        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;
, P' A: e6 H3 J# V7 M: |current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
" c# N, P+ Z4 a7 H+ inext;
# `5 W; U4 l8 Q  I* a8 C& X5 Tend;
& u2 s4 @8 B/ L$ F