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

zooey

is
' u% m1 O8 i+ g6 x$ Z0 ^        mark:boolean;
5 I$ V, @/ m  o0 u  Z% u; D( z        dx,dy,ct:real;
1 O& G9 Y4 ^* Z! I    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
% e% `3 A$ e: c( i        current.eraselayer(1);
9 [! Z8 W7 E8 e* z$ X9 ]+ L       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
+ O$ d# W- r2 S                when 16 then
  R8 _( X* w# j* c4 H                        print"yes";
                when 32 then
# l7 p# V2 E$ e7 o8 S9 d                        print"no";
4 L  F2 q0 F3 L                else
( B( Z- V/ S5 u8 H                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
7 i& B& G8 A: X        machinename:=sprint("M",i);
/ Z. h0 u) I: ?  S        if existsobject(machinename) then
$ Y; x1 @* @( [                machine:=str_to_obj(machinename);
                machine.deleteobject;
: u6 S: g4 d* {0 {9 K$ C, Y        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
* }1 k/ x& a- W  p* o( P                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
+ V  [& d( H$ y0 b  i: _# H+ t$ l        next;
       
2 ^$ l1 u- G2 Z& p3 Z6 I        dx:=0;
        dy:=0;
; {* v) F" T8 P2 ~3 g        for i:=1 to number_of_machine loop
7 j8 q- }8 ~) b3 E                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 ], P0 z' ]# A* R5 Z* f                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 m$ p6 ^) h: b3 @* X                        and activityspace[1,rows]<(1.05*y_max) then
+ V1 Q: `' f; {9 p                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
6 |* m5 r" a1 g# [" g- F! F* Y- J                        else*/
$ k, E+ _( w+ g0 C4 }1 v$ r" x                        y_max:=y_max+dy;
                        dx:=0;
" f$ J# Q* {0 h6 R) H9 N; b                dy:=0;
* ]' V0 [( j" I: I" V, H( F: Q& D                        --end;
# Z, A( ]2 w  b4 _                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;
9 H2 O$ u+ {3 g9 ~1 b            if activityspace[2,rows]>dy then
. K/ T8 ~- G; b8 h% d$ G) B$ h1 n                        dy:=activityspace[2,rows];
                end;
9 y, a+ J# I! V                dx:=dx+activityspace[1,rows];
7 |8 d% ]9 W  F- A) Z                /*if mark=true then
& u3 p- s" [$ u: G: P                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 H$ n, z! G2 ]1 e8 e0 R: ~                        activityspace[1,rows]:=ct;
, s, m9 m+ w0 }) b                        end;*/
        next;
% Z* L- v& ~; F* W        y_max:=y_max+dy;
! F" m" Q) M8 N+ l        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);
       
        rows:=0;
2 u# |+ [& v, t) g        lines:=0;
. @5 \8 O" H- Q0 t7 g- Q        for i:=1 to number_of_machine loop
" j0 m) p, n1 @- j                for j:=1 to number_of_machine loop
                        if j=i then
                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
! }; y$ R" C' i& s4 n( k                next;
        next;
6 U" l" ?5 ^. ~/ O       
/ F4 c, ?8 |. D        lines:=0;
( Z3 z# {- j* P+ Y4 b/ Z' j        partstable.delete;
       
0 D9 G# M, F6 e+ I        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% L* _3 |& _8 l7 ?& J& U                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
) u6 K* H/ f- l* ~                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
4 s( d$ Y  i. P; w; f' m                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
4 I/ D; f0 h' F; A" c                        partstable[6,lines]:=j;
                end;
        next;
: D* z! u! Z" J  [9 ^, v        machinename:=sprint("M",rows);
/ B( |, h% A  N: Q, 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];
3 U2 b. K* }7 `0 s" K: G1 }7 h        machine.exitctrl:=ref(leave);
! J! f) U/ i* u8 y$ Q0 x       
1 z# S1 `  E+ H0 R        bufname:=sprint("BF",rows);
2 b& u8 J6 h+ p  B, X: 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]);
# }; N* h6 Y2 R6 e  o* X        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
  M7 ]# S& B9 T7 y: e5 u& N7 F2 Q       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* {; P0 r: s; H- J% sdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
/ ~! h  l1 i  _6 A* Gcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
' e7 X, }. Q( q; f