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

zooey

is
! T) p1 U& M0 C2 [$ O5 A        mark:boolean;
        dx,dy,ct:real;
$ o) Y; V9 @7 _0 p    i,j,rows,lines:integer;
    machinename,bufname:string;
+ d  x, J/ W% M& S5 q0 i    machine,buf:object;
7 C4 ~$ _3 e; }; j, d& ~4 p- bdo
        current.eraselayer(1);
       
. e) L; z. g# s  L        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
- ^3 P# @9 u/ p6 {                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
$ W8 B7 X& E$ E$ k                        print"yes";
                when 32 then
9 w& o9 `5 N2 j% v                        print"no";
+ \* z4 n6 {/ Z* s3 s                else
# X, G( {- B6 `* H                        print"cancel";
' N/ x9 J: p$ w( }6 r                end;
, X9 ~5 f$ [9 w+ y                eventcontroller.stop;
' ~& a* Y3 {: t9 u        end;
       
        for i:=1 to number_of_machine loop
% D* D; @) l# `: _/ e- O5 q        machinename:=sprint("M",i);
        if existsobject(machinename) then
' a- K4 Y+ n" ^                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
; e7 X1 s5 R3 N5 \                buf.deleteobject;
$ B' @( Z6 _! S' ?: _9 _        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
( A5 R! z+ D2 f  C6 ]5 G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 r; M7 l. `: _' N, q! _$ x                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
+ c4 o8 F, K2 R1 N3 e  i                then
/ g* u3 u2 V. q: X+ }& g% K                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
1 |3 d* X* x2 j- C8 [                        print activityspace[1,rows],",",activityspace[2,rows];
% b9 Z1 D  K8 b% ~                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
: h8 t% j) @6 r; D                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
, ^2 h, l; K7 w. Y6 K4 w                        y_max:=y_max+dy;
/ y1 N+ a- @0 d9 J$ a7 i5 l                        dx:=0;
                dy:=0;
& o' o( k7 y1 m1 j' O% k                        --end;
( M, W, B1 W0 _8 z6 j" B) P$ k5 \                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
0 O2 X+ G  Y/ P            if activityspace[2,rows]>dy then
' b) T, p7 D8 G! X) U                        dy:=activityspace[2,rows];
                end;
# F; {. }& h& |0 \0 H2 ~9 s                dx:=dx+activityspace[1,rows];
: z) G0 n6 }5 Z* S: ]5 ^                /*if mark=true then
                ct:=activityspace[2,rows];
' V8 G+ [' m/ j+ p: Q  Q, E                        activityspace[2,rows]:=activityspace[1,rows];
" G8 c& D; R4 e; W2 z; B% C" U                        activityspace[1,rows]:=ct;
( M* F9 c* r' t1 n, |+ f/ e                        end;*/
        next;
, X/ Y2 J  N+ ]9 N) l0 L5 @1 n        y_max:=y_max+dy;
- y1 z% @' V0 m/ }        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);
       
7 T2 Q# T; t* f0 k" u% v        rows:=0;
        lines:=0;
5 R% v, u- D6 T6 J% b& Q. [  N        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
) J) H! e; q5 T                        if j=i then
; g, ?& |7 }8 y3 \- Q7 X3 j                                d_from_to_chart[j,i]:=0;
                        else
! g8 ^4 b' r$ s1 j  k4 k8 B                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ d8 W9 w5 G; [% h                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
+ n' T9 ~! H( H, C7 f( p                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
0 S9 w) `& m$ \% x- f        next;
7 F# U; L8 d" u  f$ ~       
3 n+ l$ D, V6 o% s, }        lines:=0;
; ]& V1 S* ~( S2 k; C, u% Z" T$ K        partstable.delete;
       
: |7 v2 }- g" i' l' U        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ ^' R+ b, V) a& Z& u# k2 l                machinesequence[2,i]:=rows;
( e) J6 b7 v/ \+ R' P                for j:=1 to number_of_machine loop
$ k' N8 j1 q5 k, m6 j                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
! o1 Z& A9 B9 o5 F* y                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
& D4 z9 W( A8 f7 E  D, W( t) E* Z9 I- A/ ?                        partstable[2,lines]:=w_from_to_chart[j,rows];
; Y! Q& s0 z/ \) g6 m                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
8 K" V- \9 {1 x5 P# R                        partstable[6,lines]:=j;
" u. C9 H/ P* |# ~# v                end;
        next;
        machinename:=sprint("M",rows);
& D5 Q' T0 p- F" o. [        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;
        machine.label:=activityspace[0,rows];
& ?# e2 G" o$ E        machine.exitctrl:=ref(leave);
       
; Q9 `0 y" V' W2 ?& F4 }% k& J        bufname:=sprint("BF",rows);
" g/ `, o; p& J3 N        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]);
# |9 N" a* \* P        buf.name:=bufname;
5 g! p, k( q- J* p        buf.capacity:=5000;
        buf.proctime:=0;
; _( R( y9 r) I9 K5 `        .materialflow.connector.connect(buf,machine);
       
+ g1 z: p. K( t/ b+ E- N        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;