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

zooey

is
        mark:boolean;
7 |: `: R8 H9 X& |4 N9 n  p9 b        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
% p! x+ M/ x% E& l1 J  X. ?& O$ X5 s    machine,buf:object;
do
% T( o# }4 G# M4 l& x% ^        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
                        print"yes";
1 ?. b: d  @4 Q" ^5 }                when 32 then
, b2 q1 }' ?# m5 G( ]0 }) s! L! @, s. x                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
! V9 }. P0 e2 R, l       
& Y) ~6 L, ^; J) S/ d% t- i        for i:=1 to number_of_machine loop
4 x% T; s9 w2 h3 G3 t( g. u        machinename:=sprint("M",i);
1 v: T! ]) G" W' h" B! {! v* w3 ~/ Q" d5 }        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
- l+ ?- l; l; f9 W5 R, N3 L9 G+ ^       
        dx:=0;
        dy:=0;
- D8 l2 l, f: M- q. d        for i:=1 to number_of_machine loop
! H* `' F: y% u" |& o                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
, U% A" z  P; w" K' M                then
; ^" V5 x3 `; q$ J4 b' L                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
  r, C4 Q% t9 I3 H                        print activityspace[1,rows],",",activityspace[2,rows];
% b1 g- a% a4 E$ v9 L  a                        ct:=activityspace[2,rows];
) d* p% }' R3 `                        activityspace[2,rows]:=activityspace[1,rows];
% T& p# ~! l" u) P                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
' r8 `" s8 O% P; F+ m- Q6 P                        dx:=0;
( D+ o% t2 M0 R0 ^* |8 p9 ~( J) P                dy:=0;
4 }& e( A2 B0 K3 ?7 f                        --end;
. T# e# h0 k  _0 [* ]                end;
8 j3 q1 ]3 p. b/ a7 {                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;
( F& V6 K) B0 I3 t" C$ ~            if activityspace[2,rows]>dy then
' J1 c/ f- N9 b: m% D5 ^                        dy:=activityspace[2,rows];
3 R' a# d3 }. v5 D# X3 [; B4 N6 @! Z                end;
                dx:=dx+activityspace[1,rows];
, V4 t1 A8 h3 y7 S1 p0 q                /*if mark=true then
2 l' E- a' E% i2 Y4 V% t, J; c# M                ct:=activityspace[2,rows];
8 |5 G; N% l2 y+ W: I. z( {                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
% _" P/ A' y% Y9 o! @1 b        next;
        y_max:=y_max+dy;
$ c& f: l* Q: ~7 W: M3 m+ ?8 T" b- ~        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);
6 t( c4 P1 Z2 W9 H3 x+ }        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);
       
  C) H5 u# f) N4 N; W) h        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
) b7 H% k/ ]8 {                for j:=1 to number_of_machine loop
                        if j=i then
* b4 v. t  u! i& V  z3 p                                d_from_to_chart[j,i]:=0;
4 R; C8 J5 G. L0 q6 C: p                        else
# g3 `& L! h9 W6 w                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
- \2 @4 z# {$ C5 ^$ @: f                                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;
                next;
        next;
; b, P3 R7 u- p8 U       
- n. G. _1 \% w        lines:=0;
% H- d% C3 Y+ ?3 H4 @) ]) F        partstable.delete;
! g% T' I$ \) i7 Z& Z; x       
( ^( v" p. A8 \: a5 t/ b0 i        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 `2 x, D) \, z4 f. q                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
6 N% U) @  w: `% [/ p9 Y9 o                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
, {! K( [+ c6 Y; ]8 {                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
( n* X( A& u# i6 x                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
. q& U" m0 k8 }                        partstable[6,lines]:=j;
3 X/ d3 v  D8 t% b" ~6 ?' [                end;
        next;
2 f7 a7 K- Z/ N* I' s& e6 l        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]);
" K5 F+ K5 y5 ]! z; P) T$ K        machine.name:=machinename;标识符未知
. x- j. X7 ?+ e4 T        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
+ c; \  F! a9 b" f        machine.exitctrl:=ref(leave);
       
        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]);
- {, ]; K3 h7 ]- U        buf.name:=bufname;
3 ~8 j8 M% ~% j; o        buf.capacity:=5000;
        buf.proctime:=0;
3 a2 v6 `. Q! z' R        .materialflow.connector.connect(buf,machine);
+ J# ^: z; q% q6 V: V1 [       
4 o8 t/ l  r) [2 F( I" P( c        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
; ]! H; t5 K' p- C  C; Cdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
! i  ]! C! n% t# Y7 dcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
$ f. y4 s! N0 \next;
end;
2 C, F2 x  ~6 v2 o: u% ]+ l5 ^