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

zooey

is
4 _8 Y8 d5 O3 t$ `        mark:boolean;
# c1 t- I- f" d9 t        dx,dy,ct:real;
    i,j,rows,lines:integer;
9 C  F" L' P' T1 P" s    machinename,bufname:string;
0 k1 i$ E; T$ ?    machine,buf:object;
0 k3 B# |- U# y! v6 _/ `( sdo
        current.eraselayer(1);
       
* m- A4 a& s* \+ G3 s& U, h/ t* O        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
0 O" P3 ]# w) E4 I" ^                inspect messagebox("设施数目不对！请核查...,",50,13)
/ A  D8 R1 [* c- _! c. }0 d                when 16 then
7 ~6 v# D% V( g4 I0 n4 L6 l3 J6 U                        print"yes";
7 u9 \. d5 ]( W) Q5 W/ p: Y* d' b9 |# W                when 32 then
                        print"no";
' Y) L8 K+ D+ l( E8 Y8 V                else
4 I7 y  `9 W  ]8 k# z2 H" b                        print"cancel";
                end;
                eventcontroller.stop;
; ~1 i- i5 h+ S8 R        end;
       
        for i:=1 to number_of_machine loop
* f9 ~3 W, Q7 y1 W( \( V* r1 g        machinename:=sprint("M",i);
  o9 w/ r$ n# v* m        if existsobject(machinename) then
0 |* v- N3 a' v0 A3 X& _                machine:=str_to_obj(machinename);
/ e* U9 k0 I8 [- z                machine.deleteobject;
/ V# \4 `' H3 R" W' u; E. E- E        end;
        bufname:=sprint("BF",i);
8 a* C4 T% @4 ^0 s, e- ?        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
! w% r7 M( a: P, R2 O. N, H' c                buf.deleteobject;
        end;
        next;
7 G4 ~! T5 k' D$ |       
# V5 H6 n- H7 c+ ?4 Z! ^" K        dx:=0;
2 h3 F5 V, ^) W- \9 }        dy:=0;
        for i:=1 to number_of_machine loop
/ c9 ~; w# I1 _0 U                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
6 e# P2 e; \" Z, {4 z& X4 M- F8 l                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
: n9 G3 V% t2 \9 l- k3 F                        print activityspace[1,rows],",",activityspace[2,rows];
7 h" d3 w- ]6 E0 u. K! j" P' ?* S2 H                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
7 W# d1 Y% M* j; W) m7 T                        mark:=true;
) I1 k# m  u9 d3 z/ J: L; J& y                        else*/
' C& v& `& }' S9 C- K                        y_max:=y_max+dy;
; ~, q2 _3 y* w5 X; `                        dx:=0;
                dy:=0;
  Y9 E, E+ h& x5 ?                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
* H- p4 N/ X- J* _+ _8 P- c0 e. ~! n                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
! @# l( }8 X& `6 D( H1 y            if activityspace[2,rows]>dy then
( k, i# C" _. d' g9 `7 w                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
- \6 m; ^% ]' R; H  C                /*if mark=true then
6 f% n9 Q. }& Q5 g8 r                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
: j- v" }: i% K0 o! 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);
+ d. b% W5 b2 O* n4 d) V3 j2 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);
       
% M, ^: [1 e; j7 Y" @% b        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
( n4 S: L. N; V3 o. r6 E                for j:=1 to number_of_machine loop
$ s! O! N8 h! w( ~) F5 n                        if j=i then
                                d_from_to_chart[j,i]:=0;
4 Z! l! x1 g& E5 B/ R                        else
, R$ Z( E, i! H0 c5 S                                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);
" V/ e, a5 v; V: W$ N; c5 c                        end;
                next;
        next;
7 H# A# z. ~- A       
        lines:=0;
        partstable.delete;
6 {: q7 g$ Y4 E8 X       
        for i:=1 to number_of_machine loop
6 j5 a6 a/ g8 i) t* ?# C* u2 P                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
- z' ?6 b2 a# E0 z6 v: D, b                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
3 o) Y4 K) P! p* o4 ^6 P6 R3 K                end;
: Y7 `1 J- U% ?! A1 y        next;
        machinename:=sprint("M",rows);
9 y+ c/ [6 Q  Q4 l; D, S# c$ y) x8 e, X        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;
/ E( T. i- c2 ?        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
3 p# |, y, }! l$ v; m# \  Y( m9 P* j       
1 i8 H' G& Q; e2 R7 Q6 K        bufname:=sprint("BF",rows);
        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
# Q4 g. S( Q! F, P: r/ H2 g; E/ i  M0 }        buf.proctime:=0;
9 ?0 {/ t+ m: v        .materialflow.connector.connect(buf,machine);
       
, f0 Z4 t1 {0 y2 j        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
' Z% z! W* u8 B4 ddy:=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);
* F9 m5 g* t; S# {next;
end;