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

zooey

is
8 V6 m" p) L3 }9 R. H& n0 n        mark:boolean;
$ W/ a  n/ g6 ]. K! N        dx,dy,ct:real;
! ~+ ~) ~; z5 R+ e) |8 n. |    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
) E" w$ [0 T2 }4 |) M9 a        current.eraselayer(1);
( r+ Z6 t# b$ @5 q       
2 X  P" }6 G5 x! u5 J        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
0 o' [  G$ u5 e- H4 T                when 16 then
' P: \, M* s! O2 t" o                        print"yes";
1 C- F# F& w8 ~% h& ?$ f; E8 d                when 32 then
                        print"no";
                else
/ q6 w3 A1 X  ]- i                        print"cancel";
                end;
                eventcontroller.stop;
; M6 s- Y6 m) z; V3 {        end;
# q0 T& a/ X5 E0 [& C& c! U: j& F       
6 [5 |- {( u" [& E1 K3 x' Q, s        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
) }0 y3 C6 {) ]* w. W        if existsobject(machinename) then
5 U; J$ ?7 T$ G/ p/ j. d                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
5 z9 d, t+ \/ D9 L                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
, r, ?7 w# F) N" o        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
9 v5 y/ P! r' e8 I) x                --mark:=false;
" M* Q) }& r0 c( v% f                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
, F' s! c( {" S2 @5 N  l. [0 H, i% @                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 \. `/ F; `* r9 v  D- X                        and activityspace[1,rows]<(1.05*y_max) then
# N, h" E5 T  r" `' m                        print activityspace[1,rows],",",activityspace[2,rows];
# @& t' y7 f# O0 M4 Z5 ]                        ct:=activityspace[2,rows];
% Q, y9 H' X; P* H+ A, g$ ~& I                        activityspace[2,rows]:=activityspace[1,rows];
9 j5 g, @- O3 Q3 T1 j1 |+ [* l1 B                        activityspace[1,rows]:=ct;
                        mark:=true;
0 j# Y# C" F- W( C/ P                        else*/
  G- e8 g2 H+ k                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
; X3 G7 f9 n' J- A; N                        --end;
                end;
5 I, P( a2 M1 H5 Q0 w                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;
0 ^) A$ ]3 B! l% i% A$ p            if activityspace[2,rows]>dy then
) N+ y; `% G  l3 ]: w1 d                        dy:=activityspace[2,rows];
                end;
) v1 V( s3 j+ o; J6 W  ~                dx:=dx+activityspace[1,rows];
3 d/ i" A0 k9 ~  K                /*if mark=true then
$ {! I: }9 k/ |  l1 |                ct:=activityspace[2,rows];
# Y/ Y3 G3 L; P& h; H                        activityspace[2,rows]:=activityspace[1,rows];
# z# x% [/ ^; E. _* X/ V. |                        activityspace[1,rows]:=ct;
                        end;*/
2 ^% ^( _# j* q# n8 \; `, z        next;
% A! l+ q1 J6 d# k; q; W        y_max:=y_max+dy;
        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);
  Q7 F4 l" T! [        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);
       
& m, R/ }; m& Q  O, K0 ], 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
8 t7 L; g0 C- u2 w, ?% @8 v0 V                                d_from_to_chart[j,i]:=0;
. B" t. f. v  Q; N2 ]8 g7 E4 h                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
6 a- Z% W% T7 O) Y1 g3 E8 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);
; T4 a9 y2 m6 |, Z; l/ _                        end;
$ g4 H7 m3 z% a9 o0 ~, K                next;
# |! g% L6 h, I- @        next;
       
- R# |/ A4 T1 L3 A        lines:=0;
) H1 ?  J. j/ H; [2 u* h' ~7 e- w7 `        partstable.delete;
9 ~+ t! E! C5 c1 I# c$ f       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
( |8 C7 }) h8 P                for j:=1 to number_of_machine loop
1 w$ n# z! Z' U) p                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
( q  l. e: k, s% s/ W: {* f                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
  _; o  u  F- j& a                        partstable[2,lines]:=w_from_to_chart[j,rows];
5 j) r. X$ ]) E% e% Y! r- w                        partstable[3,lines]:=sprint("parts");
0 Y2 Y3 W% q7 e1 L0 ^                        partstable[5,lines]:=rows;
) w! q7 O& ~* U; K                        partstable[6,lines]:=j;
                end;
: x3 m/ e9 {( R/ ^/ q$ p        next;
; Z! `0 h" I7 S: @+ _7 {2 Z+ Y/ f" O        machinename:=sprint("M",rows);
+ Z* {4 s5 q$ R6 r        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;标识符未知
! v7 z5 B- m4 i0 [" M        machine.proctime:=5;
8 Z8 \  l$ }, J% p: B        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
" w7 ]1 @) c( E% ?" D: `        bufname:=sprint("BF",rows);
1 z- F: @; m+ r& D: E- a        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;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
; F$ X# F) `' y* j9 o7 A       
" a$ R0 [; n; B0 p# l        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 w4 g1 Y: q* m, F' bdy:=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;
  d7 t) o& x9 ^4 Lend;