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

zooey

is
        mark:boolean;
. C6 B+ l1 e  V* ?! `        dx,dy,ct:real;
1 ?- z" v8 A4 z3 Z8 @1 T7 }6 R    i,j,rows,lines:integer;
& p: o! i) a# N    machinename,bufname:string;
3 R: o- j  }# [+ M, D    machine,buf:object;
+ D2 z/ |, R; G# m6 e. Udo
        current.eraselayer(1);
  {8 ^4 h9 H- r+ O       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
9 `/ Z; E0 s, u2 O+ ^- F& B                        print"yes";
4 z1 \" X! m% g                when 32 then
                        print"no";
                else
                        print"cancel";
$ @* m9 l/ B9 r) J" z- u                end;
3 y/ K4 E. }1 h; _                eventcontroller.stop;
+ }5 l1 L! Z1 Q; I" I1 r4 c        end;
( b6 g7 t0 u5 h; S' B       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
, g" e1 F: s7 T* x$ ]4 c        bufname:=sprint("BF",i);
  Y- R& R+ A& o+ ~        if existsobject(bufname) then
  I' J8 B- i+ E7 r% X. E                buf:=str_to_obj(bufname);
3 K& N* v) t1 ~/ L9 i7 H8 N                buf.deleteobject;
        end;
9 \) [! r, r! y& R        next;
       
5 R$ w" Z0 M0 \, t( {1 P        dx:=0;
: {) S3 n7 H% O  N4 A        dy:=0;
        for i:=1 to number_of_machine loop
4 S9 q' ?( e/ Z4 i4 X) k+ o                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- r6 ^/ Z3 \! d; p, b$ S                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
. i' g; W# g3 P/ P/ J                        print activityspace[1,rows],",",activityspace[2,rows];
1 k6 E  P; D4 W5 ~. S                        ct:=activityspace[2,rows];
; W, W& x! i# M$ J$ h# h" w" P# J                        activityspace[2,rows]:=activityspace[1,rows];
" Q5 U7 g" s, h: s/ W, j                        activityspace[1,rows]:=ct;
6 A9 W8 c9 w# W+ l1 s- y0 h- x1 z& E                        mark:=true;
                        else*/
8 V/ i8 c4 s% k, x* |3 d6 `7 H; A0 R6 o2 P                        y_max:=y_max+dy;
, o4 u' i* o1 U! x4 M0 t/ F/ Q/ w                        dx:=0;
                dy:=0;
4 \  Q) \) e1 c- a                        --end;
                end;
) U2 Q; }0 U) p; @  S# ^! g                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 i, V9 j8 k* p+ x' d  S$ @            if activityspace[2,rows]>dy then
4 E* F7 X$ `! d" w4 F' T8 q7 b1 C                        dy:=activityspace[2,rows];
                end;
( D4 u) G* g- l! Z( S7 t3 R) h                dx:=dx+activityspace[1,rows];
0 o- e6 `+ W/ I) T( @$ x                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. c0 n* N% r& D2 u* \* {                        activityspace[1,rows]:=ct;
# N+ j; ?* V8 ~7 w* \7 T* z$ [                        end;*/
        next;
        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);
        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);
; e3 O( M7 E  M3 F       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
; N0 `- q+ \: i. _8 T6 v                                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);
$ X: n9 e0 {7 d. ~2 H! C3 m                        end;
                next;
        next;
       
2 |% r- r& _+ V# G- H        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
+ Z, R! O# F- o* \: P" N% j7 J. }2 J                machinesequence[2,i]:=rows;
                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");
3 f1 |3 r8 }# y7 ?5 I, E  J                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
) U# }8 ]9 |/ b# a& U# @, [: y                end;
5 o+ \! ?4 r, H+ c( e. r        next;
        machinename:=sprint("M",rows);
4 K* ^. `0 l. v: h        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);
       
6 T3 Y- Q4 b& ~' L, a  ^8 G5 L        bufname:=sprint("BF",rows);
: Y6 K1 d" ^2 w, ]% h; T        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]);
' c. ?' b2 Z* N' T% r% f0 {        buf.name:=bufname;
        buf.capacity:=5000;
7 Q/ j- l% x1 z& y' w7 f        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
0 i0 G! P: m. b4 E4 |        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
( c+ A* @9 O5 sdy:=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);
$ J# e% c) N3 J, ~' @1 Lnext;
1 v5 N8 j" D- [7 g( ]8 @. Gend;