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

zooey

is
% V- y& P5 t+ O8 h8 d        mark:boolean;
        dx,dy,ct:real;
! S" ]9 Y0 L8 S$ ], a$ n9 b. P" ^2 m    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
9 p" S3 N6 N2 x. ^& ^$ p* gdo
        current.eraselayer(1);
0 y; R0 {: `2 Z/ ^8 @3 e       
2 v& t) i/ T: X" }; P, {. p- F0 E        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
                        print"yes";
0 C- ?: t0 z, n1 Y; y/ ~4 @                when 32 then
                        print"no";
                else
                        print"cancel";
/ @$ `: C$ g3 ^/ k                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
% l. @/ E. q  L5 w9 l        machinename:=sprint("M",i);
        if existsobject(machinename) then
1 Q8 D" E7 o% c4 b0 `& b" q8 ^                machine:=str_to_obj(machinename);
2 `- F8 I! j0 y6 f1 Z% m3 K  A                machine.deleteobject;
$ h" A* W& X" v; _2 X4 T7 y        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
4 K3 ~3 @7 N" L                buf:=str_to_obj(bufname);
                buf.deleteobject;
; q2 Z. y# d* f4 V5 ?9 L$ m        end;
/ V7 [3 ^0 ^8 m) N. S5 v        next;
       
        dx:=0;
; k: S! G3 u: L- P4 a* R        dy:=0;
$ G2 E0 M8 k2 J$ ]3 w        for i:=1 to number_of_machine loop
! k5 p8 `% }* E. ~0 {( p/ [: ^0 @! f                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. X5 K; }7 i" A/ ?! X                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* G* D; J: P7 E7 d& B                then
! C6 c3 k+ O! K6 {3 T/ A                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
1 Y7 d: l5 S, g& {; \                        activityspace[2,rows]:=activityspace[1,rows];
4 i( J, u% _7 S5 A' Z) H                        activityspace[1,rows]:=ct;
                        mark:=true;
5 E8 M8 ^6 f# U8 O: E1 q3 `& a7 q                        else*/
% b% b: X: z# y% e                        y_max:=y_max+dy;
+ h. v/ i7 a$ J                        dx:=0;
( P- Y2 {8 @& T5 w! i' k/ W                dy:=0;
' h. ^: \7 X+ \, }                        --end;
                end;
3 J+ \! Z$ |- i1 D! `8 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;
6 R; e% e3 _2 F1 A$ l0 `, R/ E            if activityspace[2,rows]>dy then
) E7 V7 \1 h% K) b0 k                        dy:=activityspace[2,rows];
, a' ?& h; O& x( H* f                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
  t% m. y9 u4 U) L- v                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
& B+ c  [3 \7 ^        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);
4 u# h5 K# q: g3 {& G7 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);
       
# F7 a! C4 |- d( o# |& R" ]        rows:=0;
/ Q% }9 Y2 _& }        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
! U5 s$ Q: {" y" y# B3 i' N                        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);
1 }; o% R3 A& p" @, i) w. h/ I* ?                        end;
$ O2 G% Y* s5 ]/ h8 }                next;
0 z8 R; u0 w# C+ t/ p        next;
       
- y7 Z$ d/ r) J        lines:=0;
% a  H' K, t* ~: n. g        partstable.delete;
       
$ x3 |" H2 [7 L6 P. C( F/ u) \        for i:=1 to number_of_machine loop
, x4 W( W" T3 _" R                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: F2 i( U0 G7 c+ ]" K                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"));
4 s( M: t: D3 @& Y: Y9 l& o                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 C, j/ S" }& v" H& x                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
8 y  L7 B) {; x                        partstable[6,lines]:=j;
                end;
7 w5 Y1 x" m0 G* R  d        next;
" A' W1 C) ^8 z        machinename:=sprint("M",rows);
# l* o; P$ m( ?) }( W# |* F        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;标识符未知
" [/ X8 k) @& [) R0 b3 D; I        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
        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;
$ r9 @, g5 O0 s5 C        buf.capacity:=5000;
- \" a  S9 T8 l" `! G7 B        buf.proctime:=0;
6 [& V- h; @6 w  }* `! K- r        .materialflow.connector.connect(buf,machine);
1 p5 P3 N, |$ o; d0 Y1 [       
# r! a1 o" U3 h- ^" K/ N1 l1 U# \        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: r1 O% M/ vcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
; p. H! |4 Q7 G% Z# y- yend;
3 d2 ]# D( k. j0 F; o