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

zooey

is
# H* s' G2 V% @; w8 p        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
+ W6 ^" F1 |( e5 N1 ^    machinename,bufname:string;
% P/ r+ Y/ b) }    machine,buf:object;
% G" D! h1 C* h, Ddo
; X- d0 h, O6 n        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 X0 p/ F, |* x                inspect messagebox("设施数目不对！请核查...,",50,13)
% @3 O5 R9 ]' ^1 f4 {. Y9 h                when 16 then
4 J7 E! L+ \, G7 ?6 i# O: }                        print"yes";
                when 32 then
                        print"no";
                else
) R4 N1 d( \, R5 s6 ~                        print"cancel";
( A' V4 |6 |- k0 T; S' A8 |                end;
# s" [; L- ~  a; Y( c- |/ k                eventcontroller.stop;
        end;
       
; |0 h8 M0 O8 ]+ D        for i:=1 to number_of_machine loop
+ z5 @, {  y. S& \* j        machinename:=sprint("M",i);
* [5 w3 ?7 Q8 X+ y        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
9 H" J- D. R1 T1 u3 C                machine.deleteobject;
# i% @/ b% e7 ?% W" R        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
# e# ^3 O. `) P, e. L       
% [6 Y* v/ c- N' X        dx:=0;
        dy:=0;
& _1 @# q5 }6 Z        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
2 ?' F6 c7 \( }" D- H/ S                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
# `9 H" x1 l2 f4 a% i                then
. F& e) C' n2 p                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
7 A5 g7 J1 l7 I* E7 B                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 l# _: M* a. W+ `; g' }                        activityspace[1,rows]:=ct;
8 A* ~0 h& F. ~                        mark:=true;
6 Y9 P0 ]! B* y  `' d9 [                        else*/
  X6 p8 ~3 G" A$ Z+ B: O                        y_max:=y_max+dy;
                        dx:=0;
( N3 U- t) k0 i# C( o' T                dy:=0;
                        --end;
                end;
- }# {# F# ]) s4 B/ F7 \  q) C5 l                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
& n* {6 v8 f9 B# [' f                end;
                dx:=dx+activityspace[1,rows];
* P' R0 ?* p( [7 L$ a/ Z- f                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 g; M- H+ {6 K                        end;*/
$ P- I3 ~$ j3 K        next;
8 {% a7 `2 y$ E5 @6 |# y        y_max:=y_max+dy;
/ s8 N1 ^" W1 [4 j, O        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);
+ |2 _9 f! @. D9 i0 a% I! k        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);
& V8 K! e4 U$ K5 l% w       
        rows:=0;
7 p8 o2 l3 ?- p0 g5 O6 z        lines:=0;
5 y9 W5 u" ?% Z9 w) U3 c        for i:=1 to number_of_machine loop
& r/ O' t5 }# w: K1 T1 E5 l                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
# ~/ Y9 W+ e7 g# a) Y% W                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 y$ f6 H% U* w  T& V; [  Y9 {                                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);
6 Y  o0 K3 b6 o! M. u                        end;
                next;
; ^# g  o/ n# p$ C# E( T        next;
       
        lines:=0;
        partstable.delete;
- `- V& ?2 o1 K- e; m( O0 _       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" v% _  J; [9 K9 ?) _* ]8 w9 ]+ u                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
( t, P" ?, S3 ~                        lines:=lines+1;
' F6 x6 w% ?4 l* r9 i9 f) o                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; k- p: q. x% G4 D0 d7 f3 |                        partstable[2,lines]:=w_from_to_chart[j,rows];
4 {, i1 X9 y( q9 X, U- ?5 Q                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
0 _1 `/ m8 v  {3 h8 k) `        next;
3 ^3 ^1 [9 H8 n2 I! w        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;标识符未知
; W0 `# o+ ~' S( ^        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
7 d8 J% r+ _! S' I+ M7 @1 N7 j2 ]        machine.exitctrl:=ref(leave);
       
$ F5 p! f$ j  K" H; O        bufname:=sprint("BF",rows);
4 i5 O( p) Y; }3 c- E        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]);
$ i; i0 }  K; q& X; N" f; c        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
) n  J6 w) W9 i, ^3 s) m        .materialflow.connector.connect(buf,machine);
1 |5 M. J$ O) }7 {) {# `! m, @       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ {, T, @9 K3 z5 z9 X, tdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
1 B5 }$ |9 f* e5 v# i5 V) ?' ?6 `current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
. f5 J3 H2 v: e! L8 H) W$ wend;
! i' t/ d3 a- \; i