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

zooey

is
        mark:boolean;
! F5 a6 d+ Y# _4 @4 T6 _- P! @        dx,dy,ct:real;
5 M' G- y, u' B4 W- d    i,j,rows,lines:integer;
. `2 X6 |: I& d; q( g' F    machinename,bufname:string;
9 Q5 }- y3 d3 |, s7 Q7 j    machine,buf:object;
do
$ ?& p3 R6 j* h! I8 g        current.eraselayer(1);
% \0 A. k! O8 X5 W, r) Y" ?- N' {# _       
1 }. ~- p$ z$ ?8 }        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
+ u# @: e6 T9 g8 o0 {$ T5 b5 r                        print"yes";
6 K" Y4 e6 H. e! P, D                when 32 then
" l+ S5 f: h( _! V3 t! X& @2 N                        print"no";
# ]: `. u# G" D, p+ i                else
                        print"cancel";
                end;
                eventcontroller.stop;
/ U7 Q! i  U+ t9 v% C% q" q        end;
( Z7 q" @/ V" W9 L, Y8 D6 R       
! {5 Z5 Z! f2 A        for i:=1 to number_of_machine loop
! v- T9 I8 _2 ]2 X1 ~        machinename:=sprint("M",i);
+ h( ^4 ?9 ^- p4 w$ m/ e$ ~        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
1 x" M# r/ k1 x4 z$ M; Q6 D                machine.deleteobject;
        end;
5 Q% T" ?! K$ x" d' ]( a6 W% W        bufname:=sprint("BF",i);
* A& j! B' h4 T5 w        if existsobject(bufname) then
5 `% n8 ]  M) c  [% ^7 Z                buf:=str_to_obj(bufname);
- H' L7 H: ^  C9 m/ j" C                buf.deleteobject;
        end;
        next;
! [% i% X+ R, ~  Y6 b, U4 F       
        dx:=0;
        dy:=0;
0 ~# o" `0 p; o8 V/ k        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
! \4 [, ~  I% H  a8 H+ z8 Q6 h                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
, K+ j1 J% X9 ]: a. j( F                        print activityspace[1,rows],",",activityspace[2,rows];
9 E4 k* h" e+ |9 T; n( p4 M4 Y                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
, w" C8 D; |$ a                        mark:=true;
                        else*/
& z1 F1 e& u4 {7 J- E/ l                        y_max:=y_max+dy;
: M" S- \0 o* P- p4 k                        dx:=0;
9 J- q) O1 y5 c+ |                dy:=0;
                        --end;
                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;
* Q$ B8 H* s4 i            if activityspace[2,rows]>dy then
4 J. T3 J0 g; H: A3 C% r                        dy:=activityspace[2,rows];
. G3 C) O4 [$ |8 u. q2 Z# ~  v                end;
4 {1 I2 l, e! G% l! u                dx:=dx+activityspace[1,rows];
; E+ \2 s; x+ K! k5 O                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ N& y7 H) i! }# n                        activityspace[1,rows]:=ct;
5 R6 P' [  B  A& J, ]) h4 Y6 A, w( X                        end;*/
9 k1 g" h7 A% U' ^        next;
6 H  |- ?: B4 K0 V& n        y_max:=y_max+dy;
( x* H! j  C9 `# w" W        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);
0 V3 j2 Y! {6 ?, U& R* e: b0 T+ t) N       
        rows:=0;
. r: g( F' D( Z2 ^/ [, t+ I- |1 Z        lines:=0;
( t0 B; D: O: g' S! P# Y        for i:=1 to number_of_machine loop
$ t) @) ^. F# e- j6 |' q                for j:=1 to number_of_machine loop
4 K6 [; H6 i$ O8 }. l                        if j=i then
- F3 A$ [9 _( O9 _3 a                                d_from_to_chart[j,i]:=0;
                        else
: R% F/ [9 t! {, _3 b$ y# J' _                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
# _' ^& T- l% _; `6 ^) {                                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);
                        end;
: _6 E2 N0 n; \                next;
6 a+ P% W7 m: O, v1 O; N        next;
       
. f/ \8 q: d7 z5 s( f; f* ?* s        lines:=0;
        partstable.delete;
: K5 A9 w, ?+ D+ P       
        for i:=1 to number_of_machine loop
+ H  R+ J+ u$ T/ ^' e                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
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
2 }) Z0 q! U8 F* d/ I                        partstable[2,lines]:=w_from_to_chart[j,rows];
. i1 K9 B: g" m- n+ Q8 _                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
2 P+ P4 y, t" [. O  c                end;
& L- A. u* I) a+ u8 D# O+ k" \        next;
+ U4 t; j$ c6 o. w        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]);
4 G3 p9 T% b: A$ G        machine.name:=machinename;标识符未知
3 A/ K9 a' S' Q3 f+ s        machine.proctime:=5;
* K: ~' C& `) U0 k, `" G+ N# T        machine.label:=activityspace[0,rows];
" H2 e) B( i1 K+ w$ B* Z# \  P        machine.exitctrl:=ref(leave);
3 h8 ~: h! r# z8 a1 O; r; r5 |3 R       
1 ?" R7 k$ q' E/ P( S        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]);
7 ]9 j' p# I; q; N' k" ~) S        buf.name:=bufname;
) l* E, m6 g: h" o& ^  k7 z        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
& t+ d/ f7 G  d$ b6 V+ O0 o# K5 p- I       
        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);
% T1 O0 Z, q  f' f. [. T! I# Lnext;
end;