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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
- |$ Y( a' X4 }+ E* y    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
) Q2 F# m+ D, I; Ado
        current.eraselayer(1);
       
        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
  H# M- o! k+ p3 S0 g& m5 i, h0 t+ O; j                        print"yes";
  H/ ~$ c! C% W2 Y                when 32 then
) j: ^% _& s- Y: T8 i/ r2 T                        print"no";
/ Y$ T) A0 Z7 E. G9 [                else
: e% k: _9 r# u# [2 q                        print"cancel";
% p, E1 P! n: H$ o* A# t9 h' f                end;
                eventcontroller.stop;
5 _0 a& ?: b0 W4 ?        end;
       
* D% Y, W  T+ y8 u        for i:=1 to number_of_machine loop
* |& k1 P4 U5 u) L6 U. t        machinename:=sprint("M",i);
( K8 |% U: n$ P* U        if existsobject(machinename) then
1 a1 Q! T* F, x+ J: K                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
  V3 W4 U) k; y% U        bufname:=sprint("BF",i);
. \: b+ y: p' T2 t7 }: @9 t5 T& Y  A        if existsobject(bufname) then
! V/ |6 |* t) |! Y                buf:=str_to_obj(bufname);
; V9 r# r2 b" K, N4 M7 H                buf.deleteobject;
3 h$ m; T- y# U/ }        end;
        next;
' ~+ ~! Q! ~# `: C: e       
! Y) L0 {8 C4 h0 ~' D        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
: I- e/ a0 D" K1 w) m                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
+ }: |2 c/ j* R5 E2 N                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
/ G/ V3 o5 x  F( y% L) ~8 s/ a* J                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];
                        ct:=activityspace[2,rows];
. T" k3 x4 e- \. J2 ]7 M, W4 x: h                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
) ?2 M4 b  m. t2 t0 x0 z: U2 r; G" Z                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
& b( q8 o+ n4 B% X# X                end;
0 o; P; J" N) ]2 c                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;
- k7 ?: c; s$ `$ ]! W, }1 K" \            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
0 n* g, c  D& e                dx:=dx+activityspace[1,rows];
                /*if mark=true then
! B5 \# E5 B+ p; \  C4 \/ V                ct:=activityspace[2,rows];
8 D$ Y$ m& T! J& X2 ]( \                        activityspace[2,rows]:=activityspace[1,rows];
! s9 {0 u  c, S  J! ~! |  f                        activityspace[1,rows]:=ct;
                        end;*/
2 n3 q2 x% K# K  u        next;
        y_max:=y_max+dy;
4 t3 a( W8 ^1 u4 s: Z- 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);
        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);
4 U1 ]3 i4 K! d: y' O       
" z' V" R( l" N; X2 p* K7 P# U        rows:=0;
        lines:=0;
        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;
# u& \  E4 V7 X                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 Y7 }1 U! g+ E8 @: j* v                                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);
# {$ H" Y; Q: P( t/ \                        end;
$ |# i5 V$ y* t# h! G                next;
        next;
5 H' P* X/ z0 r6 y  f; M       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
) }: u. X& B: h. m$ ]) U: q) l% a" g                for j:=1 to number_of_machine loop
& O' S7 C( A. L) F- [5 k. r* [                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
$ ~! _) J4 n! y" J                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
# W* ^+ i+ ^9 ], i- e                        partstable[5,lines]:=rows;
8 k- t( {( v$ m( Q' K3 A# A                        partstable[6,lines]:=j;
                end;
- v; |! P! E( Y: ?6 U        next;
        machinename:=sprint("M",rows);
0 R9 t  F0 X; E( w1 n( d  L# Z        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;标识符未知
/ T; N" o8 n$ I9 }& ]  n( {6 _1 U* Y        machine.proctime:=5;
/ n7 H  M9 W+ j$ H        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
1 r3 D; ~* B# E0 X        bufname:=sprint("BF",rows);
5 Q/ W, C5 E7 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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
. w5 d, j* P; s9 L; `        .materialflow.connector.connect(buf,machine);
8 c: {9 D3 {. _  r- l       
        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;