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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
) ?! \1 m" r, O, b4 m) T    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
  @. o/ Q, x4 cdo
        current.eraselayer(1);
       
! Y6 u5 v# ^9 M        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
' L4 o9 z+ _% P                inspect messagebox("设施数目不对！请核查...,",50,13)
  I" n+ y9 J* S4 X                when 16 then
, O1 n# M" G' r# e3 m8 w                        print"yes";
                when 32 then
                        print"no";
% A4 C, ~# L: C7 `3 k& ~                else
                        print"cancel";
' \9 \& Y  J+ Z: s8 a) V1 w  g2 _                end;
                eventcontroller.stop;
) a3 v8 ?/ U/ [7 R% S3 l: U        end;
! I3 i9 T4 ?3 j  G- W: ~  ~% z       
2 _; b# H% O8 d; R. J0 e: L! V        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
* o6 `( o& s; S4 ]9 r: ~        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
+ p. {$ M. I; K4 N        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
  Z- R' X: X% r) k. o" y8 U, I                buf.deleteobject;
        end;
        next;
       
        dx:=0;
! E' m1 F5 c4 ]! O% k9 W% }        dy:=0;
2 |: J" {5 c/ ^6 ?2 d' ^& Y        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
6 O+ w" X" b& I: Z' E                        and activityspace[1,rows]<(1.05*y_max) then
5 f" c( D7 s& K                        print activityspace[1,rows],",",activityspace[2,rows];
1 @5 q3 W( c/ o, `% [/ d+ D0 T  ^8 O" ~                        ct:=activityspace[2,rows];
$ G6 j3 W2 Y: A2 p5 l                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
: W, m! y) A+ ?7 y& o$ h* @! `                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
; K6 L5 p5 U8 T; m7 o1 x                dy:=0;
                        --end;
                end;
2 c, R' G* q  S* s! [                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;
4 \! }3 [7 e+ [; v" b& l            if activityspace[2,rows]>dy then
1 U4 G2 G9 _* F+ \- o/ a$ _                        dy:=activityspace[2,rows];
" x, {; e  Z* g$ B  B# b$ b                end;
1 z/ g' m, b2 X  o6 i( N7 y& `                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
" E: }3 t$ ~* {' v5 k: `4 Y0 B                        activityspace[2,rows]:=activityspace[1,rows];
4 S0 W* z! H$ C! U$ c! o                        activityspace[1,rows]:=ct;
                        end;*/
. H( j2 ?7 h& l, X4 R# ]        next;
( f. I& }8 f* M. [9 c        y_max:=y_max+dy;
" M3 q; Q) L* [3 n- Z1 g, H        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);
+ c, j2 Z& G. N1 T. c# a6 [) F. N        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);
       
        rows:=0;
, R, U% L, l- X( r        lines:=0;
) Y. {  n7 l' Z        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
9 `3 l* D5 E8 D) H                                d_from_to_chart[j,i]:=0;
! `) d, u: i) [  _7 j: P2 D% U" [                        else
( ^0 O% x% A9 \& m# o: t                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
' H$ p4 H% v. p4 _( R4 v% d                                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;
$ Z6 ]( _: x, n: ^5 x9 Z( K6 K        next;
( Z2 B8 U- L( C$ Q6 ^  G5 B: @       
        lines:=0;
1 b. X4 d9 V- }0 q& L' }6 C        partstable.delete;
& w2 L. y9 B# ^/ W4 ~5 J* L       
$ |  q+ B  w! M" _- k9 Z        for i:=1 to number_of_machine loop
, j7 y* b' V/ n5 T0 f) I' c                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* j8 H" X$ \# S; y5 u3 r                machinesequence[2,i]:=rows;
0 z+ {5 \9 B8 r4 b. m8 l) q                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        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;
/ ^* s/ F6 {  W! a                        partstable[6,lines]:=j;
& C: h- ], ^; ?" E& X                end;
  Q( U* H2 [7 N; k        next;
        machinename:=sprint("M",rows);
' [; N5 t- P. o        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;标识符未知
$ }8 L; \& g' S  I8 C        machine.proctime:=5;
' R# }# P7 k7 |6 H$ d6 m. ^$ Q        machine.label:=activityspace[0,rows];
/ w/ \- h  m% \9 T. |" w/ R        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
1 D3 }  w6 }) o! {        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]);
. d& a2 z2 g7 h! s7 q; r" S        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
0 R; K6 r0 c  f) I. T# o  _6 {( a       
. J( `; O. F# S, d$ Z+ g/ H: I4 q        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;
; t9 u$ P5 B" Y5 ~7 tcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
' i  F* g2 b/ h, X2 A9 anext;
end;
: @% |. n* b# @1 E