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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
2 s1 r0 M" ]% u' F0 |    i,j,rows,lines:integer;
! P' g9 z; d0 e3 G6 ~+ t    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
. e/ e6 J, ~! K! ]/ s        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
; R3 ~+ s2 j0 C8 @                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
2 Q0 c* H& x0 N6 z                        print"no";
                else
                        print"cancel";
6 n. g# h9 W5 g( F) H4 n                end;
9 R3 E5 p# c7 q                eventcontroller.stop;
6 T( Y) [/ |3 I- e2 \' s  g        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
( j3 r3 ^( n! J& O. G2 }- {! q& n        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
7 A! E0 E2 H, P( T# w        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
1 \- K& x- V# f- I                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
' Z& H, s4 R8 y& u- n        next;
       
        dx:=0;
6 m  u0 A' v& A* a        dy:=0;
' P* w, c+ O$ h# a        for i:=1 to number_of_machine loop
1 R$ `* a: Z" L3 d$ ?- i( P3 X9 v                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ g; l$ a" c. S0 @5 H                --mark:=false;
% W) L, t/ G% s- j- h                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
' d4 S- h  w2 P# }) w- g' |! y                then
; `8 |6 X  w$ o  t' J' P4 ?9 M                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
. c7 u5 R, t7 s; y* @! ]                        and activityspace[1,rows]<(1.05*y_max) then
; [. y: T3 j. G- h( \                        print activityspace[1,rows],",",activityspace[2,rows];
. {+ C& f3 S+ t- u* p. j3 o                        ct:=activityspace[2,rows];
, ]; w9 J2 f, `- A2 K2 q' ~                        activityspace[2,rows]:=activityspace[1,rows];
6 g& O6 s0 j. v& S8 }! S                        activityspace[1,rows]:=ct;
                        mark:=true;
  O: p+ b8 _0 T; e2 n                        else*/
                        y_max:=y_max+dy;
( `  Q% @5 P/ s. ~4 D                        dx:=0;
+ T0 l! v2 m1 ^' T                dy:=0;
. ]  a* D* F+ U  H6 g* n                        --end;
                end;
) J! w$ t: N' b& N3 v4 Q; H                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
" J9 t% `! K" s: c                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
' s$ t( @: s. U/ r4 K            if activityspace[2,rows]>dy then
  Z; U1 A, G9 k. L( z" O                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
# L# k1 Q4 e+ T                        end;*/
% U  N  `0 s" P7 @        next;
        y_max:=y_max+dy;
4 C  L( g& A3 E8 H' P3 c) @% E/ G        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);
/ H8 b* ?6 N( v. R* a2 T' D        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);
; f$ n( F# v( B: C' e       
        rows:=0;
        lines:=0;
$ ~, s: Y1 e# p- Q: p        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;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
" u% v. R" O" |: N, }8 }1 P                                d_from_to_chart[j,i]:=abs(dx-dy);
& V" T. ]  T9 m3 r: }                        end;
                next;
        next;
' t  o9 \5 M- p# O' Q8 D2 S: N       
. Z; D: @8 F0 H$ J$ O        lines:=0;
        partstable.delete;
/ u6 X3 y* G" b; a  d. L* M3 @       
        for i:=1 to number_of_machine loop
) F4 a. g- _: [+ ^# x( W( c- S                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
# r- U5 }) E- V. V                        if w_from_to_chart[j,rows]>0 then
- p0 g& `9 `7 k5 x7 N' g                        lines:=lines+1;
# i/ g& Q# ^% U' Q                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 g1 E5 r0 D  L0 R% A+ N                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
/ X! O& X% w' y9 ~  K) H: b+ z9 n                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
- V7 E# a& O: J6 e                end;
6 O3 ^) n9 F& o9 t        next;
0 v7 z2 g9 B* I        machinename:=sprint("M",rows);
6 E% `! `6 X1 X- E7 @% O& W        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;标识符未知
1 c9 [& V2 q6 A* t0 x1 z        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
. F; j* o6 i8 M9 g  q9 F        machine.exitctrl:=ref(leave);
       
1 B0 q6 D$ [$ s# j  a, A        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
1 L0 s" x& K9 o: s, u; C       
        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;