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

zooey

is
0 D& q% Z3 w& j2 F        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
! t1 @* }% N5 y0 }    machinename,bufname:string;
/ t; Z7 e; B2 u3 P. Y: D! r# C7 [    machine,buf:object;
do
        current.eraselayer(1);
2 R8 X6 d  A% `9 Z8 c+ e9 j2 Q       
( o+ a3 [! e3 R# S; ~5 w7 U        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
3 n2 g7 k! q& c" K! t, o3 |& Y# a( Y7 ?                        print"yes";
2 t2 X+ B! a3 j! S4 E4 ?0 K                when 32 then
                        print"no";
  x8 _  q* X; x3 u  S                else
. w0 y( U  Q" y+ @$ J! i  k                        print"cancel";
                end;
8 G; N- ^1 ]% A& _- G0 M                eventcontroller.stop;
        end;
3 \: B& h' }) F* s% f. e# l       
" I0 i9 ]/ b0 d8 D4 Z' p# X2 Y* N        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
+ I3 i  G5 ?! W$ c                machine:=str_to_obj(machinename);
, H/ e! L, q" Q  A" y/ w                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
! B* u, w) P. q/ ^( P8 }% D        if existsobject(bufname) then
4 [3 W! s5 p; @) {                buf:=str_to_obj(bufname);
( v! z7 _! Y, w5 Q( |                buf.deleteobject;
. o( l2 K4 I* p        end;
        next;
       
        dx:=0;
        dy:=0;
6 E' y' f  |4 L+ w% }  C! W# p        for i:=1 to number_of_machine loop
. X8 C, I0 A1 c. m                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 N3 d% s1 @' w. p' w                --mark:=false;
- o4 X2 `; B! S3 h6 K4 B                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* ?& {) @7 |2 f1 a* S                then
& Z% w$ d% ~% s  l& A2 t                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
( l. F8 |' L6 z7 ~4 b                        print activityspace[1,rows],",",activityspace[2,rows];
# R$ A3 r9 F# g) j1 i$ B9 a+ V$ G( T                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 `1 r; R" L" z/ D% Y                        activityspace[1,rows]:=ct;
* x1 I& d/ Z4 N                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
6 k' i: r+ p0 v# r2 p                        --end;
$ H6 e" S8 k( Y/ C; }  O% z/ |                end;
5 n) f% e! K% f5 N" B9 ]                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
$ s8 H& I8 v4 [& e                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
- P! J) O8 G5 W5 t1 y            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
2 C2 H9 Q$ X  Z+ Y: o                dx:=dx+activityspace[1,rows];
                /*if mark=true then
3 V3 D4 \5 ]7 ]( n6 `/ d1 q; Z- h                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
( e3 t, S& O/ N& V1 I5 M( u+ G                        activityspace[1,rows]:=ct;
1 T$ m9 K$ {' t' b' x. z+ [0 J4 e                        end;*/
* C, D# f4 S. ]8 {7 v3 t8 w        next;
        y_max:=y_max+dy;
* p2 K% W9 x7 R3 q7 [! H        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);
       
        rows:=0;
        lines:=0;
) E9 R9 N. i6 L3 v        for i:=1 to number_of_machine loop
4 l  G6 {+ @" A; O8 {6 H                for j:=1 to number_of_machine loop
                        if j=i then
9 ~. c( }3 L# f) A3 O6 B* I                                d_from_to_chart[j,i]:=0;
' A( ^8 A, c7 T                        else
                                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);
                        end;
                next;
        next;
# E. T; a7 A( r6 {8 @       
2 M, @6 Y2 \( _, L3 t7 b8 T* D; g9 Z        lines:=0;
) G2 `. Z" d4 j9 o# e) v7 k- P) w        partstable.delete;
       
6 ?3 s: W5 \3 d0 A9 G. n5 W        for i:=1 to number_of_machine loop
! T3 m0 X" S' E/ h* ]! _6 r; N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
- c+ i- Z/ |% p                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
* h: v+ K; f8 K0 a/ y- z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
2 U6 ]1 K" W: I% g, Y2 ]# y                        partstable[2,lines]:=w_from_to_chart[j,rows];
3 r# O; b- c6 t; ^                        partstable[3,lines]:=sprint("parts");
% ~6 ]! R; d$ P/ [7 B- W                        partstable[5,lines]:=rows;
+ g0 i( V) g& N8 v1 a, b                        partstable[6,lines]:=j;
( e) g* U- A9 g% U' _: s4 A$ @1 D                end;
        next;
        machinename:=sprint("M",rows);
; G5 T# s* n( u        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]);
9 V/ l1 u; ^9 e6 ?2 u        machine.name:=machinename;标识符未知
0 l# B. a( E- M; j        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
6 W* V2 ]3 w) f: g: ?2 r+ a/ }        machine.exitctrl:=ref(leave);
# g  G0 r9 L/ U& t6 S       
        bufname:=sprint("BF",rows);
" x( J9 i; G0 s& p( o# _        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]);
/ x; j. g3 {  {2 }& g        buf.name:=bufname;
! m' v/ J4 i- P; R$ s! Y/ f        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
7 W3 B* P" U7 A# Z: S# M8 D3 W       
        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;