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

zooey

is
1 {5 g( W& k4 Q2 r+ s2 G        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
6 R+ y# v: ?5 G( @/ _do
+ @4 N# g- v, J1 p# s        current.eraselayer(1);
       
/ f3 C+ K& ^& U- a% g- }        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 V/ i. ?- ?5 E" w                inspect messagebox("设施数目不对！请核查...,",50,13)
/ o" T: y# ~7 ~  p3 ]. g                when 16 then
                        print"yes";
1 D/ i5 i( m% ~8 A8 |( Z, T. s                when 32 then
, G2 n: U7 h' j* j9 ~                        print"no";
1 t6 j8 h& j4 l8 T, A, }6 `                else
                        print"cancel";
                end;
                eventcontroller.stop;
5 I* N/ B0 l% q        end;
5 G. p1 a" \* ^9 T/ |3 J! n, o& _       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
8 M- \& D! q6 C; ^, }; T        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
" D, U3 u' j1 u                machine.deleteobject;
        end;
& u2 J* M  Y4 w3 \! U5 s& t  Z        bufname:=sprint("BF",i);
  y1 z/ h  j; a/ H        if existsobject(bufname) then
$ R6 o6 L. m. ^! @' |' c0 V                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
  F, D4 c" {8 z        next;
       
8 H" M5 K" Q: v2 O% I        dx:=0;
) [0 L4 y8 q* }2 ]1 s9 n( q        dy:=0;
        for i:=1 to number_of_machine loop
2 y3 @" O! ?1 s" J! k                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
' n- }0 Y. z! X' x/ `! w) Z                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
- G6 G% f2 P% [  W                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
- b( Q( L5 b& b9 \2 f4 E                        and activityspace[1,rows]<(1.05*y_max) then
( _, T7 w2 K2 \3 l* b4 L& y                        print activityspace[1,rows],",",activityspace[2,rows];
8 o+ }: B8 Y. }: q* y                        ct:=activityspace[2,rows];
  o# u& h- O4 N2 [7 {                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
8 d' D. f% a+ l                        mark:=true;
; G9 I4 e  \( g                        else*/
6 h5 t6 @+ \) A  m9 i/ J2 o                        y_max:=y_max+dy;
' L, u* z( O+ u4 R& o                        dx:=0;
                dy:=0;
                        --end;
, ~; q$ j' t) f5 ?3 c3 _0 H( I( h                end;
3 S" s& o$ v+ y6 w; Y                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
3 p: v2 ^' T( J# d& u1 s' q8 ?                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
* y9 H' n, o7 d            if activityspace[2,rows]>dy then
; d; G" @8 a4 d7 d+ X                        dy:=activityspace[2,rows];
3 \# A- k3 _. H9 O2 n4 I- _                end;
6 C4 j- m! u# h+ J; T8 I+ H                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
6 l3 y9 T. e" S& s7 x, P$ |                        activityspace[2,rows]:=activityspace[1,rows];
+ H9 i0 F& C2 o" L9 [! {* s# c2 i                        activityspace[1,rows]:=ct;
2 D$ g( D% t$ e+ S2 Y( g" n" X                        end;*/
        next;
, g. f- h; D7 ]5 ~' B1 v        y_max:=y_max+dy;
' t5 ~! _1 c0 [/ W  i- n        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);
  X1 Y4 z* M3 K9 P; E       
9 ?* p5 |: }$ P        rows:=0;
5 s9 l1 _; s1 q7 U- z% m- L        lines:=0;
0 c% Y; x5 H6 [- x+ E9 ]9 S- n        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
0 i+ U: t* c: }9 ]0 T, [                        if j=i then
2 ^+ C+ ^0 }, p: u                                d_from_to_chart[j,i]:=0;
+ Y9 y8 X2 o- {. h                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
9 i* b% j0 W) @3 J2 P                                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 [# g' [& A7 L3 r: @                        end;
                next;
; g6 ^: f5 R3 C. S+ g        next;
# j$ k* a) j4 h       
& T, n) O- V- B3 u7 N) I' o' c& v4 @! S        lines:=0;
6 Z* K9 S' H; {        partstable.delete;
+ o/ n2 B3 W: v" b       
  H3 g' I' i' K; I5 z/ g7 O  ^% m; C$ d        for i:=1 to number_of_machine loop
  x9 i% `* S4 i( h7 g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# ?3 [" t- A5 t3 o7 K7 _/ S3 R# T                machinesequence[2,i]:=rows;
4 B" l3 z7 h7 o3 v# x, j2 ]' F) {                for j:=1 to number_of_machine loop
5 W: C0 N+ t1 J; a- I                        if w_from_to_chart[j,rows]>0 then
- ]% C2 [1 I  \+ i$ ]                        lines:=lines+1;
& m% y$ Z! V- o) `4 B7 a                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
$ E2 S' r2 }# L( A2 Y: f8 X                        partstable[5,lines]:=rows;
$ V9 m, Q( \. `$ J4 g4 u9 t1 x3 P9 Y                        partstable[6,lines]:=j;
# w& m$ [5 V, ]2 p/ [# M: L4 _# E                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]);
        machine.name:=machinename;标识符未知
4 u- l& E$ P5 H7 @8 T1 h        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
3 A1 K, E0 |1 U0 y! a" |        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]);
5 N# B# E4 P' i+ }' _1 v! `        buf.name:=bufname;
        buf.capacity:=5000;
- v7 R% w' G+ R  J) O/ k; h        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
9 r- g' ?9 a: k' f- e: p. j       
: C8 q3 |2 S8 m8 b5 k3 k        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;
& \/ E# h2 l" T  y0 ^- G6 o' zcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
4 S& |: U. q6 V# _end;