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

zooey

is
2 k" C6 I5 m! Y+ F        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
* N2 b* [! |+ x8 Q9 M        current.eraselayer(1);
9 {' J* F/ [0 g3 y       
        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
2 S7 N2 Z, n- [* E8 m- T8 i4 O: k                        print"yes";
: `$ g2 Z* T& H                when 32 then
                        print"no";
' \' S2 q7 a" n  C3 `4 j" G. }$ K                else
, p# t* L3 s9 R                        print"cancel";
                end;
                eventcontroller.stop;
1 l0 b% w5 l: b7 X4 h; w4 p- A  M        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
9 ]' f  i* h* x        end;
* w  {# {6 g. P+ j. }# A6 G% `        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
) f, e6 X$ j! |* ]# [( T' k1 o6 d( L        next;
       
        dx:=0;
        dy:=0;
: h8 ]* E: z' ~; `3 w. z        for i:=1 to number_of_machine loop
0 [+ H9 P' Z) W3 I2 K                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 w" `$ C$ P- M  C                --mark:=false;
                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
4 B+ d% A3 r1 _, s& i                        print activityspace[1,rows],",",activityspace[2,rows];
- e7 n5 F) ?8 V                        ct:=activityspace[2,rows];
5 }6 X* M/ h( p& ?6 F/ b6 C4 W                        activityspace[2,rows]:=activityspace[1,rows];
( U6 B) o6 c! T: t! E" }                        activityspace[1,rows]:=ct;
$ S" x5 P9 E6 n1 a+ w0 L1 z8 N                        mark:=true;
8 g0 R: S6 h" _; A                        else*/
7 h- ]- I5 y9 l7 g; m3 P                        y_max:=y_max+dy;
6 t) D2 i3 Y: F3 ^! y                        dx:=0;
6 N$ x7 J1 u1 y* \6 Q# O* G; R                dy:=0;
# `& `+ \9 p: {' s) t( |* o                        --end;
) Z/ g- ^8 I) y                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
& ~) U5 K+ |' ?$ u9 f                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
! E6 G5 `+ g5 Z1 E' N+ f. W0 G. ^                /*if mark=true then
, l2 e4 X# H6 j: D                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  c3 v; B& \( J& n                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
        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);
+ v; r) H. {4 n        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);
+ O4 }) ]$ P: b- L' e' ]' [       
/ l8 ]4 V$ L% a- h1 ^' t        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
% }. Z; F* L4 p                        if j=i then
/ B/ l5 f6 c# b1 L% z$ H; p- W( [                                d_from_to_chart[j,i]:=0;
) ?0 e( q: S$ H                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
: P* V; a8 K5 {4 S0 T6 `                                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;
9 r4 M$ s+ f# @* ?' q) s7 z       
2 K* w' B9 s, M; H        lines:=0;
- W+ C7 y' P" ]! r! R        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
: R( z- W, |4 F: `& G                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
3 r) m" [  x& x2 i, R+ p1 k                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
  N6 b1 {  x# d( k9 f7 u6 H4 x                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
1 T. i& q3 S) F6 z: |                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
% R- E* [" j# R0 c$ e7 D; }+ |% [        next;
        machinename:=sprint("M",rows);
8 I# [5 Y2 o4 x1 L" T        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;标识符未知
        machine.proctime:=5;
' e8 |5 f+ C* P: X* n" j/ g4 H' ~        machine.label:=activityspace[0,rows];
5 x0 I" S0 O& D7 i' S% M1 K- M        machine.exitctrl:=ref(leave);
6 E  n0 T* f" K9 }7 M' N3 }  P       
2 k* ^# D* q8 Q1 t/ l8 w        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]);
- ~5 h) z+ ^4 N" h# _        buf.name:=bufname;
0 {' M2 L! S0 p8 l        buf.capacity:=5000;
* s2 ~8 ?2 N' R: g, q# A        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        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);
2 X8 T1 ^" N( x7 P. D- dnext;
end;