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

zooey

is
        mark:boolean;
( z+ ?2 p. n# A/ ~        dx,dy,ct:real;
9 h9 g8 A+ C$ L: t" s, d' K, j    i,j,rows,lines:integer;
    machinename,bufname:string;
5 j9 W& R3 C0 ?1 e' I    machine,buf:object;
do
        current.eraselayer(1);
2 G: a9 q7 x' ]9 k# h; L       
( Y' W9 z0 E# S* b5 I! @        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
, v. M  J* v- Q0 a6 ?: G- u8 T                        print"yes";
                when 32 then
9 Q& \- V, K5 {- F7 h                        print"no";
4 k4 j( y. `" Y3 l* @                else
4 z0 y5 L! h" l! x% q" T/ L                        print"cancel";
; T. c4 \# \# F! {% f                end;
                eventcontroller.stop;
/ n- p% K0 {% t: ~& T# l) ^        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
, C' a8 j: w! B7 \5 v5 P        if existsobject(machinename) then
, V/ S- A) I: f3 G                machine:=str_to_obj(machinename);
" C" V- ]& m" i  X* O                machine.deleteobject;
. c7 J% @+ p# I8 U8 p        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
: G+ D8 f- n- |/ C# {/ i                buf:=str_to_obj(bufname);
                buf.deleteobject;
1 {4 a- D% ]3 C" D: A! F! i+ {        end;
        next;
) x1 N: L& i/ p1 X9 |       
7 X+ Z( M7 J* i% W% x' b1 {        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
- f: n( `2 R6 c. C                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# ~$ D4 D/ X* h5 F. O: d. ?: `. _                --mark:=false;
! f" W# y! g# s# Q                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
6 ?! d2 d' ?, F% E3 p                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
8 U& S0 i& D# c) o3 H/ Q                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 q: B: r( b6 Y& p3 W                        mark:=true;
                        else*/
' p" Z9 J. c( F; G6 |, c                        y_max:=y_max+dy;
+ h7 Z7 H- P  o: x; R9 g9 |                        dx:=0;
* n' n6 V% }( R2 }& {( `                dy:=0;
) M7 M$ m* i8 p3 l9 u6 s8 ]% H                        --end;
% L, L& b: G6 x3 n/ ?8 s6 d                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
3 _' I. A$ n. [8 F                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
% _2 m; r. o- J5 J4 k) @# O            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
, {9 R% e5 V" ]2 ~6 Z) v7 i- Z5 v                end;
2 z, X- ?. z' ^3 q) U                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ O: G& s, b- L6 B' q; G2 ?: p9 A                        end;*/
' e# c4 @. M* W; l" \, ?        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);
        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);
       
% m: W0 }* m) I' B7 A        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
' |! ~/ @( \; r( q1 ^                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
, H! j% I% p; n9 N! G8 ^                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
# ]3 Y4 a: p' l% d' Y: i                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
4 w6 r- X# X3 w                                d_from_to_chart[j,i]:=abs(dx-dy);
% L1 Q" l+ |- j! M5 @                        end;
; t+ X2 ?. m7 b& {: O' i  ]4 v- U                next;
        next;
       
        lines:=0;
  C) z* P# ?; o* \% J        partstable.delete;
       
: C' P# @0 `4 T: D2 s  G        for i:=1 to number_of_machine loop
0 A4 K) c. y( d. E& i( l                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% V6 M( o5 s' ~                machinesequence[2,i]:=rows;
: s8 N" @4 V# f# u+ d! M                for j:=1 to number_of_machine loop
) ]- \2 P" B+ Q. w5 e. _7 \& t                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
+ o  r  t( w* S0 r                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 }/ i3 x. a- D/ B( ^                        partstable[3,lines]:=sprint("parts");
- V& P2 E. ~- D: T6 z! x# r' ]                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
2 @# f1 }9 T2 b, t        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;标识符未知
! P* J6 m6 h3 {  X7 ~        machine.proctime:=5;
' a4 W: |0 t9 R        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
' y) @( g& }1 K- p       
        bufname:=sprint("BF",rows);
& T/ n/ `) J6 Z0 D; E        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]);
+ u, x) W0 ?# [. R; k- w7 w        buf.name:=bufname;
7 \7 `: c& O/ a7 ]) V: q        buf.capacity:=5000;
* q, s+ |0 r' A# t' n        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
( x/ ?. R% _  w        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
5 z" H, E  l# t% `+ u! ndy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
, x5 X% D( M7 Z7 _" a3 E. ?current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
% V1 ^/ l7 m, w3 h; Knext;
end;