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

zooey

is
* ~/ Q8 n0 Z& _. C5 C! ]        mark:boolean;
        dx,dy,ct:real;
5 U, B) n$ ~  L- a    i,j,rows,lines:integer;
3 t, `4 h7 w" V) D2 [    machinename,bufname:string;
% j" n9 j& [& D/ T3 s    machine,buf:object;
do
* p; a6 ~3 Y6 X% c% B& R; M        current.eraselayer(1);
  h' S& o0 x& J6 o8 X( W0 n       
) {; C3 \/ d3 @        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 f# s6 x. l0 J* H$ _! C                inspect messagebox("设施数目不对！请核查...,",50,13)
# z* F# n- y  [0 Q/ n$ g                when 16 then
                        print"yes";
                when 32 then
* C( ~& c4 d6 A+ d8 l                        print"no";
$ G7 |$ u  ]! w0 |1 N                else
: R9 w0 b1 p0 [                        print"cancel";
                end;
                eventcontroller.stop;
        end;
- I3 p" Y/ J6 x& g$ s1 T       
9 I! ~: A" c- F. c* W* F  {        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
* t5 ^9 i! y: E" ?        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
/ d4 L% ^5 ~( J3 {' k0 i0 }        bufname:=sprint("BF",i);
        if existsobject(bufname) then
9 y/ ]( m) P$ p6 t" C. U6 Z                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
4 T1 }! I0 f, l5 t0 G. ^1 ~       
3 k5 x* ]. p$ r  _& m' T& i        dx:=0;
% H, Z' o5 i5 N& c        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, x" W5 l+ Q& D                --mark:=false;
  d4 u, a$ `* T; c; s                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 X4 f0 g9 p; R  J$ i& {  q/ H                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
. C( v# F( i: A0 A; x; [4 E) S                        activityspace[2,rows]:=activityspace[1,rows];
9 `/ H1 s  [! Q+ M# K* y* Z4 B                        activityspace[1,rows]:=ct;
8 d0 ~" @/ i: _- T6 I/ ]" L1 C                        mark:=true;
                        else*/
; H8 c9 c/ d. u5 Z                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
: S- P& M- U" R+ t; s! }5 K                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
/ w7 s5 t( v" P. l/ Q                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
1 v9 w* @% `8 F            if activityspace[2,rows]>dy then
1 B* r1 x; y% @( i) h" v) |& y                        dy:=activityspace[2,rows];
                end;
% L( `3 u4 Q% Z7 V! g& m: w1 I                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
) M) l4 M7 Z, v6 W/ n" N4 {                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ `3 V* F$ ^! Q1 U, S                        end;*/
2 B8 _) i$ h% `6 M5 w% v# a6 [        next;
6 z7 b. _+ ]2 b' O2 N        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);
$ ~& ^9 s( K: t' |5 @9 {4 v2 f% H        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);
       
! t+ f' |9 A) L. L) U4 N        rows:=0;
        lines:=0;
3 z' b' `5 ~8 D) `; t. K* C; I* f        for i:=1 to number_of_machine loop
# w7 \0 e6 ~* w  A0 B$ d  R$ E* `3 }1 B' e                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
6 B( s4 g' t# d2 K                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
4 U7 b" V+ _' q. u' e                                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);
9 j9 p( P6 d$ c: q# X! m% T                        end;
3 O3 {# E, J+ ~                next;
" {  v' L1 u% j, n        next;
       
0 r- ]3 @7 f5 p        lines:=0;
        partstable.delete;
  }- Z7 M8 T5 W/ _5 U8 F. g       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
& L% p7 b* D% ~7 \) z                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
& r( v' C2 r4 O  E                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
; w5 j: N# I* X3 ~! o                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
, l. ?0 V3 a- V$ M* d6 v: X) p                end;
* l& I# A5 o9 n( K        next;
        machinename:=sprint("M",rows);
5 d3 W" B$ Z$ B        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]);
1 S. G; g" s4 q& Z+ q9 `8 w        machine.name:=machinename;标识符未知
+ k, K9 x& c+ }) i* y        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
1 Y) h4 Z/ z8 @0 p" m7 L  B6 s       
        bufname:=sprint("BF",rows);
) n1 e8 P& l- _+ B' }& }        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;
) `$ ^( Q8 z* Q" b        buf.proctime:=0;
( |4 t' m: {; I( c5 A8 F% Y0 G( x# P        .materialflow.connector.connect(buf,machine);
       
) j5 h/ s  T1 s  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;
) F2 B& k+ b& s, lcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
: ^* {! p  D# u5 g3 g