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

zooey

is
; ~% O% X9 W; M, @% y1 C) @        mark:boolean;
) q" h* u6 L2 E- a        dx,dy,ct:real;
5 B( P& d. `( f; d* Y7 T    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
- ]; ^- |" C/ F6 Z        current.eraselayer(1);
. b# S6 t$ z( ~, T3 k       
        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
                        print"yes";
                when 32 then
, g$ G/ f0 f. c                        print"no";
% Y$ o% B$ e8 H                else
+ j7 z! H3 q+ z& U- h                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
: \/ b  s: P- z- _* V  j( M        for i:=1 to number_of_machine loop
: C) L( a; W: L2 L+ e5 r        machinename:=sprint("M",i);
6 K' M2 H6 h8 ]  v( X* S        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
8 e  v; c# c- ~$ V! y6 [# ^                machine.deleteobject;
        end;
& G" w, O" W9 C4 q/ W3 \* e        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
% f6 K/ \: E/ ~! E                buf.deleteobject;
+ |1 P- g. \3 D) S3 v2 e/ ^        end;
        next;
       
        dx:=0;
        dy:=0;
% A3 ^/ _6 M4 a" H2 u  l/ c- x! ~        for i:=1 to number_of_machine loop
6 o( n, S8 m8 E; `* S                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
$ u& C" `6 g1 B1 t% ^' F                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
/ e6 z0 B- f+ x& O) B2 G% N                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
' E' u4 W$ p" o+ Q( _                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
' s7 m( v: {! Q                        ct:=activityspace[2,rows];
# h/ Q$ t- j1 r2 U/ r                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
7 L  X8 T% n, Y- w4 i- n% _0 k8 m. O                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
, b7 x) m5 Q5 N3 I- Q8 O( _                end;
5 K  `6 |9 y4 l                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
% g( }3 J" M; b/ [$ \- n$ c                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
/ C( i. F* N* z2 D            if activityspace[2,rows]>dy then
" Q  z$ [2 Y6 G- S                        dy:=activityspace[2,rows];
                end;
0 v" F( y! D3 A- W                dx:=dx+activityspace[1,rows];
) C! c6 z- W% A" v  k9 A                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 ?2 \. ~7 A( T' R3 v                        activityspace[1,rows]:=ct;
                        end;*/
/ I4 G. ?  U' f        next;
9 w0 v7 _5 t! k. N) G        y_max:=y_max+dy;
5 a2 K/ P3 e- L) X# K) j        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);
( n1 r2 s: `- H5 l" S7 L/ q        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);
       
+ E7 O. h! {6 Q/ B        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
6 Y" I& x% p0 d' H# t! P( H* {                for j:=1 to number_of_machine loop
0 k' [- B4 B, P0 Q+ M9 \5 b5 C                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
/ W9 O* `) ^7 n. ]8 Y7 a) @, B' c                                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];
, m1 T0 v8 R7 T0 Q                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
. J1 D4 O8 ]9 c& Z0 R        next;
       
/ `7 ?$ P% E3 _' m  X0 H- U( n% n        lines:=0;
) y( @, w5 e; L% r- }; [# D" I- Y        partstable.delete;
       
        for i:=1 to number_of_machine loop
1 x3 A1 N! P! {6 Y. C- G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% u2 x& B  \7 Y% }# V; T                machinesequence[2,i]:=rows;
7 t7 Z" L0 n4 S* t7 e! G                for j:=1 to number_of_machine loop
; _5 ~: d, A4 R# d# |                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 p% ^* A6 v/ S: `' k                        partstable[2,lines]:=w_from_to_chart[j,rows];
% Y# X; B# E& F/ C$ _4 P: T% u3 p# |5 n                        partstable[3,lines]:=sprint("parts");
) M( E4 ^' V; R. F: U, ], C$ {                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
7 z# B& O# V1 H  i% j& ]" A                end;
        next;
        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]);
, M. t% n3 ^3 L3 t  A: {6 C+ c        machine.name:=machinename;标识符未知
8 C9 G+ t6 A3 W$ E        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
$ L. T6 N2 a' h% S: |        machine.exitctrl:=ref(leave);
1 K5 r+ F$ L: u8 d# H       
        bufname:=sprint("BF",rows);
! u% d6 j+ ^; [4 D, l! v& G& s' q0 @        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]);
/ j6 A& J3 E4 R5 }6 _' u        buf.name:=bufname;
! h) H- z$ Q0 h( ~        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
. ^9 k! x- ?; @% I6 _6 o        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);
+ [9 E' i% V0 f, fnext;
end;