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

zooey

is
! t# n. }- u! G# j( {; J        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
9 }$ A0 B9 {  _" K9 z! i    machine,buf:object;
& F) n% d* U+ g5 E5 \do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
4 u  Y* I. B" W                when 16 then
. C/ ]6 q+ P2 J( k7 O/ L                        print"yes";
# C  F- E) _( p0 K* _8 D% u                when 32 then
, F+ V& i7 R  [                        print"no";
# v/ h7 [' q; e4 C5 x: U                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
& m' E" ~2 `, h5 M" Y) }* d       
: Y3 ^; w0 W' i5 T2 W        for i:=1 to number_of_machine loop
7 E1 O7 C1 M2 s, M5 H+ o" Q        machinename:=sprint("M",i);
) D2 W3 l, Z1 l! r6 X8 u$ _        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
! H* E: A6 S7 W" p3 L# C% w                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
# U* s  N4 S  z" \6 \                buf.deleteobject;
        end;
        next;
       
7 d) a" S' |+ X        dx:=0;
- w' r- ^6 n, h& J( v$ m        dy:=0;
        for i:=1 to number_of_machine loop
& K8 a% l+ w! @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: z) \: U- d4 Q) j$ t                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
  Y1 l# ^4 Q# f                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
( H0 ~- [5 Q) ?9 p& [+ C& b# B                        print activityspace[1,rows],",",activityspace[2,rows];
( w! [" |. F2 D% H6 j& ^                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
1 x  j& n+ d% ]2 l1 \% C" ?& }+ V                        mark:=true;
                        else*/
* b& O# ~/ R# S/ V: y6 d$ o                        y_max:=y_max+dy;
                        dx:=0;
: Q5 c9 y, X* u' G7 m  `" J+ X                dy:=0;
                        --end;
' f& Q/ ~& ~2 x& y. O                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
: k7 L) h- a# |. J                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];
8 s  Q# O: N! A6 y. z& X                end;
. W; J9 q. ]8 `                dx:=dx+activityspace[1,rows];
, f7 _6 i, y7 m/ ]5 ]4 e                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
) w2 R" [2 O6 }8 w                        end;*/
) `$ @" {1 J- n$ E        next;
        y_max:=y_max+dy;
5 u6 h  ]8 s6 q9 E" `        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);
0 |) o  z0 m% s" O, F8 O        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);
4 ]  D0 k: i( t- f       
0 q# Z1 J# [) Q$ p7 G" @( @8 h        rows:=0;
: R6 [: H4 R* Y" o8 A1 Q        lines:=0;
5 P4 g3 ]6 e+ w8 o$ p$ \" N; ]        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
% m' w8 L2 ?! M# S$ Q# K. P* t                        if j=i then
8 @' K" c( i! K* [9 |- K                                d_from_to_chart[j,i]:=0;
) X! X8 a) `: C  v* I                        else
" G$ g! Q7 y! p1 I* p6 V                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 J! I8 Y) a( d* G                                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;
       
5 ~/ e) G8 _6 [% ?4 k        lines:=0;
        partstable.delete;
% A, w6 ~+ |* p  t* C       
6 t( P( G8 Z9 n        for i:=1 to number_of_machine loop
* M6 G! {8 }# I" J3 a' V2 w; E* u! x                rows:=str_to_num(omit(machinesequence[1,i],1,1));
8 p& X$ g4 u9 ~- F/ @) H/ U" E" S                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
% F2 C' L1 ]0 o7 `                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
9 T. l! _$ H! P                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
; J9 [7 d6 V2 u3 T2 N. [$ n4 x) P7 g                        partstable[5,lines]:=rows;
" U/ z  ?1 x; x                        partstable[6,lines]:=j;
                end;
# c3 t1 Q; J- R( R# C        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
' ~! D/ C# @6 }0 J6 |- e( {        machine.exitctrl:=ref(leave);
       
+ h: Q" e, ?) ^% R$ ~# x        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 l' k) k" p& Y2 t. \        buf.name:=bufname;
        buf.capacity:=5000;
. \9 N. B1 h' O8 A, Z        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;
; s5 v# k4 t. c0 V0 g2 O9 bdy:=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;
* T0 K( z: D: d' Tend;