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

zooey

is
; ~3 r  V! P( U. F! |$ A: |        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
" ~4 s  b; c$ Y7 b. Q! \! Y/ J    machine,buf:object;
do
5 O6 |8 G8 O8 p: ~5 z        current.eraselayer(1);
- L& F/ K! t! \       
+ k6 l0 h1 N& T        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 z( n$ ^- p/ y( x0 E) J                inspect messagebox("设施数目不对！请核查...,",50,13)
, c* {+ E: ]/ I9 K                when 16 then
                        print"yes";
                when 32 then
4 O7 l5 ~0 |- d, A8 E7 g                        print"no";
: _( G; D2 S9 G' r                else
                        print"cancel";
) B- u" U0 I: L) J4 A                end;
5 ~0 \) k; y7 f; F4 ^                eventcontroller.stop;
/ E0 }$ ^6 j+ M0 T) @4 z        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
2 @7 ?+ [" ?. l5 z7 L' T4 z4 _; F        if existsobject(machinename) then
. v4 o# {+ h# o2 n8 J# q; Z2 _                machine:=str_to_obj(machinename);
                machine.deleteobject;
7 t* A: q1 X6 k! B* L        end;
- }0 Y. N; j" @" a) _' Q        bufname:=sprint("BF",i);
* ^3 C& i7 m/ h, ^2 w1 U% s+ k        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
2 m; o+ L6 C2 N9 _4 x# E5 {% W2 P        end;
5 }: ]+ ^0 ?: G        next;
       
        dx:=0;
        dy:=0;
0 O8 _, G1 X: Y  N* z        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
7 k6 y4 [/ d; n- m4 @9 p  }! y( u                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
  t( C) a: H. d4 H) D6 R0 s3 D5 h                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
( z; y3 H/ r6 @) n                        and activityspace[1,rows]<(1.05*y_max) then
, K/ |1 ?  i2 d! Z& H# J' s! U; f                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
% ^5 `% W0 h' W7 p                        activityspace[2,rows]:=activityspace[1,rows];
! E& s6 h/ Q' E* o9 T& C                        activityspace[1,rows]:=ct;
; }: _- ?2 j* w1 p4 X$ b                        mark:=true;
# q5 w% C2 }6 s! |* ], d! M                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
1 X% R5 Z8 m0 i3 M# G$ t                dy:=0;
3 S/ s( h* o7 y                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
. G$ E9 i4 Z: O! c6 ~# O                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
8 y+ m" l# @- o                        dy:=activityspace[2,rows];
                end;
* Q; [- W3 n& C) V3 k3 Y' n                dx:=dx+activityspace[1,rows];
                /*if mark=true then
% H! ^$ m/ A. \5 Z1 k4 O* H9 L# N) L4 F                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
9 Z% X3 X8 i! o7 D                        activityspace[1,rows]:=ct;
                        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);
, M( m* E, B7 q        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);
' D0 x0 W, w! \8 s& A' |1 D# x       
, k# Y' H( H8 ?        rows:=0;
1 Z8 U; `3 r' U. s8 Y% }        lines:=0;
" m, e2 }) S5 \8 D* I        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
$ ~* X9 a5 ?) b) I                        if j=i then
0 T9 X; m8 ~" c: ]3 e5 s2 p                                d_from_to_chart[j,i]:=0;
                        else
& y7 |3 j. {2 x1 l0 S                                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;
                next;
! y/ P. m5 M% i: n  u        next;
       
        lines:=0;
' R8 I- Z/ y; j; l        partstable.delete;
       
' q$ q1 Y; s7 ^+ y        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
( g/ j% d: G* Y; _                        if w_from_to_chart[j,rows]>0 then
, p2 S3 C* {! {/ o                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
! D: j) [1 d$ s3 O                        partstable[3,lines]:=sprint("parts");
6 A! X4 r3 K4 j  k+ N                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
* R# i6 l! @( O5 A        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]);
' c. T0 x* z& D5 N; a8 M+ n        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
: R/ y; r- I; U8 D, a/ j3 f        machine.exitctrl:=ref(leave);
, Z4 g  {; e& G0 t       
        bufname:=sprint("BF",rows);
: f! E# t6 v& `1 q# x# w9 W        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]);
# U$ ~! b' |. x8 ~; a        buf.name:=bufname;
" k2 Y5 }9 j6 V* u6 s# h. |: _+ z        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
* q7 B5 O8 ?- `1 e       
        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;