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

zooey

is
        mark:boolean;
) T1 V7 W/ j* `5 k        dx,dy,ct:real;
' J1 t& u* Q% ?    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
5 u+ P$ @0 o1 L! k1 ]8 I/ @0 g        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
  f7 ]6 [" X1 O9 n7 }                        print"yes";
1 s2 ~: w: E* Y, Z5 K5 s8 T                when 32 then
* Y$ j3 n7 K6 p& l0 y+ x" [8 V+ S! x: F! `                        print"no";
                else
, T# L  `! T  a  S/ d8 {) q5 u                        print"cancel";
                end;
                eventcontroller.stop;
7 q' k: ~* T9 e5 H        end;
       
        for i:=1 to number_of_machine loop
( ^! a) W8 Z" K        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
% [2 F4 H  k' @                machine.deleteobject;
        end;
, n0 n, x# N# Z' I8 x5 T+ F        bufname:=sprint("BF",i);
! X& G) b1 [5 S6 u' e        if existsobject(bufname) then
2 h) O2 O+ f7 k                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
6 L7 c( y2 N$ ^; d5 E8 m% b       
0 @* S  g9 h8 U/ L1 r3 q        dx:=0;
7 Q# o8 m$ d1 V# I+ A& O        dy:=0;
9 U: Z9 ?. w( _, J% I        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 j6 o+ t3 T' s. g                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
2 Z& z9 }* Z/ j6 h                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 [9 z2 Q) N$ f5 I  a                        and activityspace[1,rows]<(1.05*y_max) then
8 j4 z  k* `: u# r8 K3 |+ P5 Q! H                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
$ X9 d* E, v' W" i6 Z' F/ U# x3 T' v                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
) e" |# s9 ^: @, T" U. A2 h( f                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
                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];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
3 R6 z. L1 B* y+ c                        activityspace[1,rows]:=ct;
/ g; v7 }6 @& ?5 [) @# x                        end;*/
        next;
8 v6 T! _8 `" m3 B+ s/ r        y_max:=y_max+dy;
) s9 F. `) e( ?2 ]. p        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);
  u/ r  }( {. `4 `$ ~. R        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);
       
5 A1 H" @- n8 `9 I3 d, p        rows:=0;
        lines:=0;
3 b/ Y5 d  c  i1 J0 R8 r        for i:=1 to number_of_machine loop
. p/ K' s4 i% ~                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
# q. n9 {$ _$ Q  o' _* ]$ n                        else
9 N- u5 [- t: R                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
( ~9 [& n; G7 s! Q0 ]6 F                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
* P; t! k" _( _& c5 C                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
5 z) D# [& c, C  V! [, Q+ V        lines:=0;
$ l; |0 r6 u2 S5 {        partstable.delete;
       
/ C0 |4 N4 H/ L! z        for i:=1 to number_of_machine loop
3 y8 N' e4 U6 f& m                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 N4 i8 B- F* z/ [- c# [2 s: ^                machinesequence[2,i]:=rows;
, h' o( S  l' y8 R                for j:=1 to number_of_machine loop
  M4 {, d: i* M! n                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
* }( m+ k0 B2 g9 G                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
/ C7 D5 k6 N. H/ K: p) e/ ?                        partstable[5,lines]:=rows;
9 E9 g& }* x$ O                        partstable[6,lines]:=j;
                end;
. }$ u4 D6 m0 A3 b( A$ f        next;
6 Q0 N0 q, w+ q! ], z2 ?4 u        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]);
0 \3 l$ L2 F% R9 I5 j        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
  _, W; f1 Y6 p$ @9 O! V; K        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]);
9 j8 q, f4 @5 f6 T+ B* c        buf.name:=bufname;
. y" X7 D# h/ R& d* ~' H* D3 Q        buf.capacity:=5000;
        buf.proctime:=0;
& M0 ^' b0 T- B5 i        .materialflow.connector.connect(buf,machine);
$ C- {' Z' Z$ I       
1 K  }  R  {& }4 u: W7 B4 ?1 j        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 q0 d' E+ Q: ~dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
) i- m) J( h- y& z) @; Ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
0 M( s9 ~1 q- X2 _& r* Enext;
  |. g- e4 ]' d& l3 _$ p+ D1 vend;
4 D1 c+ f) U. y+ g" ]