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

zooey

is
+ X0 q% l7 N' A" ~; A! x9 g) y        mark:boolean;
& Q) E: }5 E# p, G1 m& M0 j        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
# u# _9 v- n6 \0 ?( g0 m       
        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
                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
9 T( Z, N9 |+ q2 o/ x                eventcontroller.stop;
        end;
6 _9 Y7 J* E& P% Q0 n       
4 D* e! ^0 t/ Y" X9 K3 f' H        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
) G! P/ _6 Q, u1 N                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
9 J7 T8 ]5 v2 k1 ~8 s/ a" }# Z        bufname:=sprint("BF",i);
        if existsobject(bufname) then
  T5 ], N# k) d) k                buf:=str_to_obj(bufname);
; l* x; j* G, }  G3 }8 G                buf.deleteobject;
7 W% ^+ d, \( F! x3 m        end;
6 w0 L! l! K3 t8 u5 n( V        next;
) y/ s0 P6 ?8 M6 v       
+ w" |4 O5 b' B8 p        dx:=0;
7 Q$ A2 x! X  Y4 b        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) N) H. H7 j3 j7 b- r- H                --mark:=false;
* K6 c' F. p' y! G3 E                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 A; z4 F& q: B! s. J$ K4 }) e: ^                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) L9 h. [) W8 \                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
/ s1 G+ i0 s# n3 X                        activityspace[2,rows]:=activityspace[1,rows];
7 _5 S* B* b9 f! {                        activityspace[1,rows]:=ct;
4 @* w' a4 ?3 u5 [2 a( T, `                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
9 O1 C/ g. |! W1 y! K5 W                        dx:=0;
9 i3 l' z/ ]1 \/ k                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
0 X0 P0 S& O$ [& t" U                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;
7 n. A& ]9 z7 J" Z! b                dx:=dx+activityspace[1,rows];
8 a, r" {2 Q' H  u  k                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
/ q3 O9 v( |1 P                        activityspace[1,rows]:=ct;
; {$ K! X0 W+ Q" c, Q8 \" f  R                        end;*/
; Q+ o: x* q/ o8 u7 ?( M        next;
7 E+ l1 W+ P7 j0 ^        y_max:=y_max+dy;
" ?3 `# u, O4 k, q& \        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' a" ~: c8 u. }7 a( ]        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);
" [& P9 ]; p' z, {. J6 C6 v       
        rows:=0;
        lines:=0;
# d* C+ n8 s0 @4 F1 L        for i:=1 to number_of_machine loop
. J) d6 K& e# ?, u                for j:=1 to number_of_machine loop
                        if j=i then
2 T% U4 ?" J1 F0 k4 O, [                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
6 h. z/ _. }- W                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
4 _9 N6 I8 b" p3 h, n                next;
$ L" \6 E! b3 {  J/ T        next;
' L# W: U3 r+ l3 W9 d$ c       
        lines:=0;
7 j5 X* T. @6 [- {% A& y  P        partstable.delete;
       
        for i:=1 to number_of_machine loop
! _. ~/ j: E0 g- I: o/ |                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
# ~+ Y) m0 Q/ k                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
9 W8 u" g- |% A$ Q$ d, B8 ]  t  h                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
  {0 p* h+ a1 S8 q, Z        next;
& G5 F8 q. d. {1 `        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;
' l2 g; n) O# z% {        machine.label:=activityspace[0,rows];
  I; ?4 L- B* c2 \: {4 q. b% D. Y        machine.exitctrl:=ref(leave);
: u* J8 A4 l* u9 T; s       
        bufname:=sprint("BF",rows);
, y6 {' m1 G8 R( X        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]);
! b( l! K# h& s* A        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
6 x& Y! j  L7 n  g7 r% S. y0 `2 a       
* M. }2 w: Q$ {7 e! G2 V        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);
next;
  n3 u0 j; O0 [( Z) C$ }end;
4 n% ?* C: a! [5 M* J" a