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

zooey

is
: U5 o7 V+ O& u2 h, s        mark:boolean;
0 U: \  r) i: Q+ `        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
& c) z+ O6 k: U/ x  n! @8 qdo
7 Q, P. {; o# N& o9 ^( W  J  F        current.eraselayer(1);
       
$ i; n. f$ k, K! p! r5 Z        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 [  o6 r9 C0 @& o* a                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
5 C, {( G1 _3 a' X" f% [                        print"yes";
3 p( w- f4 v; Z                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
- M! X. c1 x  Y' b. v5 V        end;
+ `# t5 v. V+ J* V8 k0 v# r, Z       
+ j! q' {9 y) {3 x8 y9 q        for i:=1 to number_of_machine loop
% ?, b8 I4 i5 w+ \9 F        machinename:=sprint("M",i);
        if existsobject(machinename) then
9 h+ H: l( ^) `+ g2 k                machine:=str_to_obj(machinename);
: T2 s+ A& d3 u7 k! n) j$ g) U: c                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
- g" D" o$ }, p2 S+ O5 L: s1 `. w        if existsobject(bufname) then
  M% d, ^% O8 M6 `3 F( `8 l" R                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
% r8 @6 P: H7 d: I$ h        for i:=1 to number_of_machine loop
4 e* W2 g- h1 h) b/ o; N7 B                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; a+ T# J" o" w' b8 g                --mark:=false;
4 u/ }& Z+ P, H( {' J/ d7 y9 L                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
& x, z3 [2 X; S$ |5 b1 Y                then
% g& s& w( {. ~- o$ ~3 V1 h                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
, W) R) g0 z  a" d$ L: e                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
3 l6 Z# `8 e9 @; \* L7 A4 V                        ct:=activityspace[2,rows];
& y+ \1 [/ E6 x+ v, A                        activityspace[2,rows]:=activityspace[1,rows];
/ r' G) `+ F# I9 |. p* ?  t/ ^8 |+ J                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
- k' d( \% _/ z0 |                        y_max:=y_max+dy;
: g, x" Y0 S# N# v& W                        dx:=0;
% d2 w6 s. }! Z/ D% X                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
  i$ w5 f" W' `  `0 k, X% m                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
% R/ {' A6 L2 p' k                        dy:=activityspace[2,rows];
0 g! c* V' y- Q! x3 n$ `                end;
1 V% e7 ]; S8 C' \8 [. o                dx:=dx+activityspace[1,rows];
$ w; Z3 K" b& N/ ^# w. @$ Z6 j8 T                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
* `# b, O% G' u4 V3 C% _7 p) a                        activityspace[1,rows]:=ct;
                        end;*/
        next;
7 H7 H6 u- Q/ \6 p        y_max:=y_max+dy;
: c0 [# _/ j, }. m        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);
! j4 z! s) Y/ g5 M9 C+ J9 I       
. R$ L3 {" T: T6 d! D1 z        rows:=0;
        lines:=0;
, t5 B3 V) v5 j. I) t7 [        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
: z7 g% S2 Y% A5 x8 }, I                        if j=i then
* D8 D; z5 B7 ~) n1 h& P                                d_from_to_chart[j,i]:=0;
7 H9 J/ G& g  Z1 h' N. C                        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];
  F% c/ [6 V5 S                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
5 b0 W" \; Y1 A0 x8 g$ b                next;
        next;
       
6 Z2 {; w" g- b* y, P        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 v# P: B2 U" ~# K$ X, J! Y0 K                machinesequence[2,i]:=rows;
9 ^- R. L5 E! f- [                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"));
' w4 U  g# G6 O8 M, U" Z, q                        partstable[2,lines]:=w_from_to_chart[j,rows];
# h9 p" n7 J) a3 n. D$ X8 ^                        partstable[3,lines]:=sprint("parts");
- A3 b  A9 `) \" {% g! f: n                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
9 [- c0 N! ~, ?, x1 A        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;标识符未知
: M. Z5 h- d. N/ R7 ~) x        machine.proctime:=5;
1 E. A+ a! i5 V$ H6 z        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
' f3 }8 ~4 k, P5 H" r( e        bufname:=sprint("BF",rows);
9 s. Z; N$ C/ G, m9 Q9 p        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;
) l# D4 ]6 _; A  e1 q* a6 I( S        buf.proctime:=0;
: J: C7 K/ b' E, U( K5 ^) v/ ]        .materialflow.connector.connect(buf,machine);
       
- d  O) G# G) B        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
- \" M* Z2 C5 D- V! udy:=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);
0 O, M* k8 B9 k) Q: Bnext;
end;