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

zooey

is
        mark:boolean;
7 C) t/ W: W' R. t4 w5 t0 A        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
. s# J# H# A# M5 y5 n7 a+ V. O% `    machine,buf:object;
do
        current.eraselayer(1);
4 |; u" \8 ~0 v. ], x7 U4 O0 P, S       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
, J4 V  S# r1 ^6 ^; H* f, j. `                inspect messagebox("设施数目不对！请核查...,",50,13)
0 c7 W% X" D6 l' N+ D! D                when 16 then
$ Z( d. M8 `6 `                        print"yes";
                when 32 then
' H, Q4 ]  z/ m) i                        print"no";
+ x& W# |) b% ]: p! Z3 S                else
                        print"cancel";
                end;
9 C, H0 D2 ]* r' P" T7 j, r                eventcontroller.stop;
. Y8 D# d: X" w' C5 _5 H        end;
' c+ h1 I6 ~- W+ G" t5 z       
        for i:=1 to number_of_machine loop
+ b- t8 A9 }' R+ D        machinename:=sprint("M",i);
        if existsobject(machinename) then
/ ?& a3 z/ B) X  N4 x8 f                machine:=str_to_obj(machinename);
* g" F; F, e4 W. z( {- y                machine.deleteobject;
: ~5 I/ N9 s0 O5 M+ |' q: r        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
, J7 w: K3 _! d2 J7 h                buf:=str_to_obj(bufname);
0 j7 J5 U# T% O# `                buf.deleteobject;
        end;
        next;
       
# H% T% P0 O" J5 ^( Q9 D        dx:=0;
( V) U- M2 A: u4 h) a- _: q, r5 n        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
! C* w$ T% U( o5 ?9 ]% v, \; ^. A                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
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
3 o; v' p, m9 b8 @, j+ Z                        activityspace[1,rows]:=ct;
, A6 b+ u+ |$ N  w+ |6 \                        mark:=true;
% O4 K- ^) O( I6 j, U$ b2 S                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
3 j! y; z1 D; _4 [( t                end;
% P, E  `. @" h' {3 T! k7 O6 g  i                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 @3 C$ f# k; U0 W) c            if activityspace[2,rows]>dy then
( p" m  f+ y3 ?0 ~0 t+ E                        dy:=activityspace[2,rows];
                end;
$ L. [/ K0 @( }! i                dx:=dx+activityspace[1,rows];
8 _, C+ v* j4 q- a: T( t                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
- |# l  p7 V! B/ }                        end;*/
        next;
' M3 ~% e1 R5 D8 i9 J: \/ ]        y_max:=y_max+dy;
7 B! E0 \% @) r% P) n" b! C: Q( 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);
: [7 f$ S: E3 Y        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);
       
5 L: P3 L, ^5 j7 V- n5 H        rows:=0;
; S; L% h8 L( n1 w9 E- W        lines:=0;
9 D* `% k  y' E3 ?, J& z( w* s3 y        for i:=1 to number_of_machine loop
& k4 B6 a* n# Y, |: `: R  h2 S                for j:=1 to number_of_machine loop
+ N) d$ M' a; L+ F8 E# B                        if j=i then
+ ^$ ?  P: y. ~% |3 }                                d_from_to_chart[j,i]:=0;
1 z% v% L7 Z0 \4 E- o# J) f                        else
! U# n' j: \: \5 s( w# q  Y% F                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
5 e$ o; I: a9 k                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
* J/ [- T! }7 u1 M+ \! _                                d_from_to_chart[j,i]:=abs(dx-dy);
( _) T: I3 I+ o                        end;
1 n: z' V" }  w0 l                next;
        next;
       
7 P1 s9 Z! x  n" o0 {7 ~$ L        lines:=0;
        partstable.delete;
. s( y+ V' a3 K. h$ V, o4 n       
; g0 I% x, s* |1 s        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, D5 @; J( ^- A* F' S                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
- A$ f2 M, V% I& G                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
2 }& q2 K# ~* E7 M/ a                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) j+ @; Y+ X+ ^) K                        partstable[2,lines]:=w_from_to_chart[j,rows];
# W. c( X. ]. D6 [                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
  k; O  @. V$ G9 t  z- B3 ~                        partstable[6,lines]:=j;
9 Y  N) C" n- l' O2 C7 @                end;
        next;
        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]);
        machine.name:=machinename;标识符未知
. u# t9 ]" t4 H% w/ n' ~        machine.proctime:=5;
$ B( N, t0 a8 X% b        machine.label:=activityspace[0,rows];
/ P; f; X5 R, a% U  r9 S2 h: S        machine.exitctrl:=ref(leave);
       
- Z  ?9 |8 Z) [$ q) n5 ]+ 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]);
$ o# I' P8 q0 Z' t) R. ~1 [        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
% ]5 G! [8 X; O7 d8 ~        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;
( U  v& e$ R3 t8 q& U$ a; y5 w0 Fcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
& `" k3 G0 i% s/ Ynext;
end;