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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
. t3 G- k) N/ c; Q2 k$ L4 O    machinename,bufname:string;
    machine,buf:object;
" Z) ]8 }% f4 x- G$ Udo
7 i! o, |! V. o& i4 a( ]        current.eraselayer(1);
! L/ S# J4 p" e: g& Y       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ H* i; d4 e. ~" N+ K$ H, F; i                inspect messagebox("设施数目不对！请核查...,",50,13)
  ]# \( s' t% Q& ~. Q                when 16 then
" y; B7 \0 h" _6 b0 t                        print"yes";
                when 32 then
- S& _( H. Q6 Q# K' e' o' }3 z                        print"no";
) n) q$ }) h' u$ }8 n                else
                        print"cancel";
                end;
1 Y. {  P: j4 A8 `. T                eventcontroller.stop;
        end;
7 W% U  ]) |  W! a5 _7 [0 Y       
7 Q6 v' ?  ^1 Z$ e/ i, y( @8 G2 K" K        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
) V! G( r$ d+ s0 F+ e2 G        if existsobject(machinename) then
  p+ ~& q- P0 U0 @9 o* D) t                machine:=str_to_obj(machinename);
                machine.deleteobject;
4 c% v" c2 n4 V: o- |- c' ?" j        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
8 k) ]; C/ b7 F3 f                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
8 d( {$ ^' y2 o5 B        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
# a  z3 B6 |" P2 d                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
+ h8 j7 H( @' q9 h% ~0 Z! Y/ Q: H                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
# C) G9 i6 O* d$ M5 u                then
1 z6 b7 x; x8 h8 y& u                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
  J% h6 g- D6 f; V3 d# Z# Y                        print activityspace[1,rows],",",activityspace[2,rows];
# v, E$ U( C4 L& s+ L, l                        ct:=activityspace[2,rows];
' H, v' j. [! H/ `3 ?7 q                        activityspace[2,rows]:=activityspace[1,rows];
* P7 @0 X/ M/ r; Z                        activityspace[1,rows]:=ct;
) B9 r! {) v# B6 G& W                        mark:=true;
2 J- w: ^. i' ]# {                        else*/
9 b" g) q! G8 l# }% K" o2 L, W7 y                        y_max:=y_max+dy;
9 C2 c' |7 m0 R: u4 b                        dx:=0;
                dy:=0;
                        --end;
& G. I7 d) ~; Y1 ^                end;
/ _/ p; v) }* y% K                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;
% ~; X) ~+ X% M% P) g            if activityspace[2,rows]>dy then
# n; O# X% S! {; g7 u                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
9 C1 V4 B; C4 H8 z4 ?7 Y7 y                /*if mark=true then
, w7 b" A5 i  F- k( u                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
) P. |% E1 O: X5 J6 a3 @. E                        end;*/
        next;
        y_max:=y_max+dy;
, f3 l/ T% y# q& _; M        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);
8 I4 g: F4 q3 x  t5 r" g& @        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;
        lines:=0;
9 w5 \. I7 y- b& N0 G5 o        for i:=1 to number_of_machine loop
$ W8 ~* ]8 e  M) l                for j:=1 to number_of_machine loop
                        if j=i then
4 T8 ?7 L. D, p                                d_from_to_chart[j,i]:=0;
                        else
% P5 k: W$ O2 F                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
4 f$ O; ~4 E+ d  k8 W! v+ _5 y                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
3 {9 p* ^6 |# w: x6 E& I1 ~( t                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
1 ]2 X3 B5 u! O3 R8 ]7 R2 |; @                next;
        next;
       
. n! c; }- f/ R( |, Z0 p# J) s        lines:=0;
7 f; V) R/ ^* T! E% \7 e9 E# v" p        partstable.delete;
  |9 o! O7 M9 U       
        for i:=1 to number_of_machine loop
0 _/ H2 y+ l/ g1 Z. x& a                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
& T! N$ T5 Z1 i( j$ u$ M/ I                for j:=1 to number_of_machine loop
; ^$ b" z1 n( L4 N* Q3 Y, R! e                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
% y" t% \* n& x                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
" M7 D) v3 h& F                        partstable[3,lines]:=sprint("parts");
& L, O- z) x& e$ z                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
' m% L/ }- N( D2 I- u" U! z                end;
1 t9 H- U! _* U% j3 V$ ]+ K' d$ N        next;
        machinename:=sprint("M",rows);
1 R1 f8 v$ }" C$ ]        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;标识符未知
% |! S' w  h* ^- j# }3 f        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
3 }1 f- F- g1 ]" U& c3 F        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;
2 {# p2 f5 f$ [% }1 g7 E        buf.capacity:=5000;
# @3 M5 s+ A) Q& C        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
( E* _  g- p  y       
        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;
* J; B1 z4 O# M3 D- K$ tcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
2 R6 f5 i- W. jnext;
0 c9 X7 U; b5 a$ u6 iend;