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

zooey

is
        mark:boolean;
9 _6 L; i& w" B. {4 {" r        dx,dy,ct:real;
2 E" _9 _' v5 T6 |3 O; Z2 ]/ v* F    i,j,rows,lines:integer;
% M5 v+ q) X/ J8 g    machinename,bufname:string;
    machine,buf:object;
do
2 g9 N' a$ @7 ?        current.eraselayer(1);
) u  o& f& o# g% B) B) f" Z  k       
! v6 Z4 B$ c; B, w  h# c) d: X5 u        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
2 i+ c% y( R' ?, c3 c" B                when 16 then
* G8 d: F( `  J# q+ ?9 o$ i                        print"yes";
                when 32 then
& {- V* m- s; x% E3 N1 G+ I2 H                        print"no";
                else
# L, R% ]) n/ u! r) d0 X                        print"cancel";
                end;
' K$ ^, E3 s/ n  k$ q5 f; m* n* g                eventcontroller.stop;
        end;
( u: U6 d! `) X       
1 ]5 U4 W' j1 y' R4 i8 p        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
( Z' _' U1 o  @6 D% t  K        if existsobject(machinename) then
% E1 |! \/ I# s+ x0 w( U3 ]% g                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
  s* t; `# R5 h# L5 D, o        bufname:=sprint("BF",i);
1 T8 b0 G9 C4 p! S        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
( p& ?. |  V8 f                buf.deleteobject;
4 R6 S% y( N" K7 ]# V2 s        end;
        next;
       
        dx:=0;
3 f/ u9 i9 @0 ?& l% Z8 w; w4 `5 r        dy:=0;
2 `$ `9 e) z+ U! {5 v7 D; U* g        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 B/ n( H; E8 Z) C0 X4 p6 i                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* r$ i" H$ a  f8 J0 U: z; h5 ~                then
6 t, K+ q7 ^) U4 k2 P6 F& K                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
5 v* D: y" r9 m% ~                        and activityspace[1,rows]<(1.05*y_max) then
+ v. b! i/ D, H: \                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
; \: u" R% T2 Z1 H& N& V                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
/ c: X) l& q0 t" G: ?                        dx:=0;
: P, _' ?8 p- y, u                dy:=0;
, k0 t$ N9 G5 I* x                        --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;
1 U: X  S) _% M7 k8 p! L            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
! `7 t7 \  N5 x# k$ {                end;
' C" W1 E+ T$ a: l3 \" O+ |4 G8 R                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
1 o0 P/ H, c2 W3 w, [( y                        activityspace[2,rows]:=activityspace[1,rows];
, J3 _; E: `! a' z/ }( y3 v; C                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
1 t4 O( B5 A5 s. g        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);
        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);
       
; I0 h- r" `3 u! e/ n% V        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
* ?& m0 N$ }; }( T! X                                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];
0 J# A, J) \* }  J- i5 r+ y( I( r. X                                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);
" R# M- p1 Z( Q, f& S2 n2 i* ^                        end;
7 g" d9 q7 Y# i! h2 u0 k; K8 w                next;
9 r$ A8 e2 S& j' Y& Z0 s        next;
: P+ j( |4 ]$ Q9 m, b       
        lines:=0;
        partstable.delete;
% ?& e, e6 [: }, |: L5 C. _       
  `8 D; D1 \# ^: f. i4 {        for i:=1 to number_of_machine loop
; a; Z5 X. r6 f4 n1 [2 o8 F, [5 b                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 d: S# d) b3 S8 Y: H  O                machinesequence[2,i]:=rows;
: d7 a5 k3 |8 z/ o( g  p                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
# P6 x% M. d( F# Q0 E( x2 Q                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
; L, u0 J: v# N+ y5 ~5 i& p                        partstable[3,lines]:=sprint("parts");
! L7 b+ f, _0 ~& L+ \                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
1 [% P1 ?; r" t4 ^& s                end;
% a) ~. f2 m+ f% W        next;
        machinename:=sprint("M",rows);
% U+ `8 B$ I) ~& i        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];
        machine.exitctrl:=ref(leave);
5 L/ H7 I& u6 n& v* }* z       
        bufname:=sprint("BF",rows);
/ E; T; Y( w) x) j& W        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;
0 i1 N8 |9 K/ i( G! @        buf.capacity:=5000;
+ z9 h: |1 N7 H; k        buf.proctime:=0;
' F: b. q8 k- t* u5 e, ^6 x        .materialflow.connector.connect(buf,machine);
       
        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);
3 E* P$ |# Z! Unext;
! P* W1 w; f  B% Z/ C- k- e, |end;
7 Q) `0 a" G5 \4 ?+ ?- x6 f- X1 X