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

zooey

is
9 @. G; O7 B/ O. h        mark:boolean;
0 }' W9 @5 l2 d) l' Q1 Q  r        dx,dy,ct:real;
    i,j,rows,lines:integer;
9 t2 _% G: Q. N0 V; X5 h    machinename,bufname:string;
! D1 K6 {- y7 D( s( H. x    machine,buf:object;
) Q, [$ R( v6 p3 X, s, q! T0 y2 g) Xdo
* L' P' b  R+ G2 a& d: X9 F. ?* |: Z        current.eraselayer(1);
. x. k( ~& o' D       
5 T$ q6 n/ s& b        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
) w4 D: E- A. m* U; }! V0 V                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
! v# w. j4 l( I1 G% p                        print"yes";
0 c# s6 U* s3 ?4 O0 V                when 32 then
                        print"no";
" P! h$ a  U4 Z% w* B                else
) Y6 ~9 F$ }1 m, q0 m$ {                        print"cancel";
                end;
                eventcontroller.stop;
4 u/ q3 I( d4 ]: P! c  F0 W( |% n        end;
       
) P$ g0 U* [) N: g5 [" X- {) z        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
7 r2 e; d! J! B) a+ M7 m        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
# V# J1 ~7 M% s8 }+ ?3 [. k4 X0 _! Y' m                machine.deleteobject;
, W) s: g4 m1 I        end;
! w. i# i% @$ O7 M. m        bufname:=sprint("BF",i);
% D# ?. ?% s, u* o        if existsobject(bufname) then
5 i' C# _. @; d& f. I: b$ u                buf:=str_to_obj(bufname);
& `  ^. r) d, z  f( Z9 w2 E* j3 R                buf.deleteobject;
        end;
9 b2 Z) C4 x& B( m+ B1 \        next;
; R# M7 J; o+ M5 z5 i8 b! X0 z. k       
        dx:=0;
  Y0 M, z' O" _0 ^1 ?9 U( k        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, }* O' F9 E- r1 P+ Z. J# g                --mark:=false;
$ D! V; l% V3 b: `                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
- F/ ]2 K2 C* M8 S                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) \  m, ^9 M$ `  U* k                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
# Q& ~! D% ]. ]( m4 P2 ~                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
- u1 h1 b9 f' Q9 P                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
3 y: f+ k+ @& w! d# n8 D7 v% `                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
4 {0 _/ t- B9 e( x  C* o            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
" R/ r8 {4 e! C$ B7 n- ^/ M) h                dx:=dx+activityspace[1,rows];
- l+ |+ D2 ^: E2 F                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
3 V) _( N# {- ]1 T                        activityspace[1,rows]:=ct;
  W! e( i- |! Y  z. Q) v2 }                        end;*/
3 W  C! R* p: t& h        next;
        y_max:=y_max+dy;
* X$ ^! V. k( N2 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);
* q8 G% C! T; S; K        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 D6 D% U* [3 `* F( a! x' [$ r        rows:=0;
% k& R. z$ I. Y% ?        lines:=0;
# P5 E" J+ Y3 i        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
5 A  F( {( ?1 H( }1 Y6 k- }! I                        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];
; z% w& d# i! `' h2 m                                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);
9 `7 R6 E1 g: ^/ ^" R                        end;
                next;
        next;
+ h7 E. M0 Q! D# B6 {- y- Y       
        lines:=0;
" B4 c0 q4 a) u& _5 ]) a# F        partstable.delete;
       
8 k2 M$ b2 Y! b9 O/ `0 `# [        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 F: j! y# j- W2 z& z. x% B                machinesequence[2,i]:=rows;
' j9 W9 ?9 T2 i6 }8 \                for j:=1 to number_of_machine loop
, `$ e; T% N9 \9 g. b& [0 _, `                        if w_from_to_chart[j,rows]>0 then
2 v" |: @. A* w4 \% t6 k                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; L8 |3 K6 y( r9 W+ j. L' i                        partstable[2,lines]:=w_from_to_chart[j,rows];
) _$ @2 p) l3 V0 ?/ f                        partstable[3,lines]:=sprint("parts");
4 w7 |" g" u0 W9 g! [4 H, q                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
& q7 d, J5 c# W" B                end;
( |% e' j+ F8 e/ x/ A        next;
        machinename:=sprint("M",rows);
! c' U% [0 I8 b! u        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]);
7 F. @( j. y* C, m4 T        machine.name:=machinename;标识符未知
: b/ p% C) \& R1 U6 t: I+ G( r5 X        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
' P7 R8 n/ `# r        machine.exitctrl:=ref(leave);
       
7 O4 x2 y" Q1 y/ T8 l        bufname:=sprint("BF",rows);
& r3 \* f1 J* y$ f        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;
) M- F2 _% d8 S        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
" X' Y/ y0 [) s. x) |) J       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
' _1 m6 Q! V( t( K5 A6 \9 hdy:=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);
5 m  P$ M7 c5 O; v2 mnext;
end;
$ G4 [  u+ i4 _( @( r( Z/ S! d/ i+ R