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

zooey

is
/ {; _/ b7 p" _8 x6 u        mark:boolean;
' J: O3 q8 Q0 q/ ^  l        dx,dy,ct:real;
; L- K9 Q0 H2 r9 i  Y) a8 W& D    i,j,rows,lines:integer;
( a6 r3 `9 a: l' b: m0 V    machinename,bufname:string;
    machine,buf:object;
do
3 \- S! D1 a: ?& W$ s3 z        current.eraselayer(1);
9 B, u3 ]5 q' z4 Q       
( V# F: Y* G8 w3 _7 d: p        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
& q* n3 J, p3 W$ t: r                        print"yes";
7 q" W0 f; [: y! Q                when 32 then
2 W$ \# `# ?& T. {" {1 c                        print"no";
                else
6 d1 U2 A8 y) ?6 H' {" ~$ x                        print"cancel";
                end;
                eventcontroller.stop;
        end;
3 ?+ ^8 x$ s/ p% x       
( A) k% s3 N# ^; \* [5 m% u8 u5 [        for i:=1 to number_of_machine loop
5 ?- a1 y: l3 G( [4 U3 i) R5 o        machinename:=sprint("M",i);
        if existsobject(machinename) then
. I! V( C% l' E" y. j/ x                machine:=str_to_obj(machinename);
/ R9 p) X; ^4 m6 S7 Y2 r                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
( w! N) T) q% [2 o- P        if existsobject(bufname) then
: X6 r' ^* M  j5 s                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
8 h0 x8 L, B* j/ H- S! H        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! A& E; j% ?# l                --mark:=false;
& V: C8 g6 \2 Z, ~4 S                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
+ k! W! ?. w8 j* [( [; M7 K                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
% u1 p3 h$ B% D9 w: [                        ct:=activityspace[2,rows];
0 T1 h  {  p! ^) F$ @                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
; O7 y# T; v3 N% Q                        else*/
" q/ G- q& A: F  s                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
6 a; {/ f  F0 ]/ R                        --end;
6 u0 R# B% V* ~& m. [1 }5 q                end;
& U, K9 s6 @- v" f/ g                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 j* Z, D) Q" J: E                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
; T/ N+ A, b" g) U8 ?                        dy:=activityspace[2,rows];
7 F2 H" H7 S7 O                end;
                dx:=dx+activityspace[1,rows];
1 R/ S- E: o, E) O                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# a0 N; i: n- F1 V5 o7 B2 Y$ n                        activityspace[1,rows]:=ct;
                        end;*/
9 A% J! E: I  A6 `# k, W0 B        next;
! I0 B6 f7 B* G" i' X        y_max:=y_max+dy;
- }" b1 P3 E; P, I) c8 [        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);
+ ]/ [. F, R; T1 t2 \6 S6 R" T& p       
        rows:=0;
1 p: y+ E1 M: c* S        lines:=0;
0 N1 P- S& [4 r+ M& E7 d' r0 b        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
2 t# [3 L& e. o, Y/ N3 `                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
2 R2 f6 G. _; N# L) Y# J/ b                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
/ C, z" o9 D$ I( a2 Y$ v2 z0 z                                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);
- y9 W" R% w2 l+ @2 J. Q: A9 y                        end;
4 g/ c3 S% X# |) F                next;
! w: v: q, x- D$ B  x' |( E( f        next;
- k1 a9 L$ M$ q: V       
        lines:=0;
        partstable.delete;
' y) N. p# L" G; `/ X       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
. O: Y; J; o2 ~" v/ @8 e                        lines:=lines+1;
9 _+ w8 E: y8 \. e/ O* {                        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;
0 R4 ~8 r& y4 J) x3 T$ H                end;
        next;
+ m; i5 m& C5 @        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;标识符未知
; [+ r! N6 d4 g5 E! ^0 \        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
2 Y0 z5 u& [8 e2 g        machine.exitctrl:=ref(leave);
0 ]% t1 E9 U8 t1 O* [% f% [, w' ~! F       
2 N  V+ c6 p. i: ?        bufname:=sprint("BF",rows);
/ }  a# ^- D  r/ O+ D( E, _$ m        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;
) t9 K4 G7 {; ^0 C2 v; l# H' z        buf.capacity:=5000;
; S5 M! s2 ~) x" c% J, j        buf.proctime:=0;
- `' G& N8 k6 E0 N$ G8 T3 u+ |        .materialflow.connector.connect(buf,machine);
       
1 k% S% S" w5 h) z. 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;
* X; y  m$ J6 b, Vcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;