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

zooey

is
$ x) U- k$ z$ w6 I* x        mark:boolean;
        dx,dy,ct:real;
8 X  p9 J6 |! J' v- J  ]" ?; Q    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
8 t2 x& r# S# ^6 s4 g       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
- F" q. q1 q# ^                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
+ {" k; l* g  e* X) F- }, d$ q                when 32 then
                        print"no";
1 u- Q; }' R( E0 U2 e                else
0 M$ ]5 E; w7 t6 C6 T% f- J                        print"cancel";
                end;
                eventcontroller.stop;
        end;
  K2 l/ M# P1 G! d/ h* w. t' c' E; [       
        for i:=1 to number_of_machine loop
" M% q$ y" r, o1 C- o' d) a& l& t        machinename:=sprint("M",i);
9 d! Z4 ~; X3 S* E" _2 n        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
3 h- @, z; ?- g        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
4 S- A2 [, }; y" [                buf.deleteobject;
, S- C& W5 O$ Q$ O) X: u        end;
        next;
# H. _% C9 s4 }$ K/ j: N       
        dx:=0;
. M1 z- J" `7 e# u, L  ?* R9 k        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 J! J% a* B/ r5 k                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 Y" p" f5 ?; y1 w! e! {: n                then
% W* e$ ]. K+ Z; S4 S" D# Y                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
) o8 C, X2 ?1 ?/ q                        print activityspace[1,rows],",",activityspace[2,rows];
6 E& K" Q$ A: I! V( F4 m1 j                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
3 |' {7 ]' b6 y4 d- ~9 r                        activityspace[1,rows]:=ct;
                        mark:=true;
7 l5 K6 c. C; o6 s  o' e% X# P                        else*/
( u7 M4 q+ S* C  A5 i9 F                        y_max:=y_max+dy;
3 c% M2 V: l. @                        dx:=0;
4 T3 \% g# C4 i5 S9 j                dy:=0;
* D+ j3 N0 w( p' ~; m                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
/ g1 w; F% S3 E* q* K/ M                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
. R6 r4 `+ o# X( C, }) r9 g                        dy:=activityspace[2,rows];
3 U$ v" X. I/ M# C- k* [4 Q1 f) X4 s                end;
                dx:=dx+activityspace[1,rows];
9 J5 w  K2 f- u0 d                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
( r* z% v) o* o2 o" e; A                        activityspace[1,rows]:=ct;
4 @, ^) x& e1 J7 C5 x' m                        end;*/
4 M6 M' [) h. Z5 [3 e1 V        next;
        y_max:=y_max+dy;
  ^3 }% a2 n$ @8 e( [. |% h) V        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);
2 i6 U( C9 g0 e+ j' `2 c5 r       
        rows:=0;
- j7 n: Y# r4 d( s% q        lines:=0;
% x' B% |" B/ c, F0 G9 |        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                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];
- M! h7 W. J) a                                d_from_to_chart[j,i]:=abs(dx-dy);
  Z* N: G- A9 m                        end;
# H9 X2 D6 f6 e6 i; }  `% O                next;
        next;
       
7 v. g" `8 m) U: m; w# E) C8 ^8 B        lines:=0;
! p( Z' q, u2 W1 w3 n        partstable.delete;
       
* i$ J1 ?6 @  ^: ~# ]: E        for i:=1 to number_of_machine loop
6 N; e- M6 ^1 B$ Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 T1 I4 J! m  \2 j                machinesequence[2,i]:=rows;
% _/ q' G9 z6 H1 Z                for j:=1 to number_of_machine loop
! |6 X2 |7 d+ |8 U                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
0 T1 d; [0 g  ~2 p6 _                        partstable[2,lines]:=w_from_to_chart[j,rows];
2 P6 q* s* ?% M: u. z6 w                        partstable[3,lines]:=sprint("parts");
4 L: G# |* a7 C, G                        partstable[5,lines]:=rows;
* N% _) M2 p1 c" o) r  U: J                        partstable[6,lines]:=j;
                end;
        next;
. E, h! E0 h1 k+ e* p4 b1 J: f( u        machinename:=sprint("M",rows);
$ b/ k0 z8 @8 W/ I        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;
4 B9 N' `7 X; ^: ~2 ^        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
% d7 B/ R$ [  l       
2 u' s9 ?+ I8 {" C        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]);
% b, t8 o8 n# U. F        buf.name:=bufname;
1 O+ l& V: l, }3 ~2 a        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
- `, t/ B# a+ l5 o6 d       
9 k* D) _5 F, F& W& a6 l1 |        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;
9 T# L: w, N# j% G+ ^2 b+ [current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;