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

zooey

is
+ @! @9 m# g6 ?2 Q5 K# C- j3 o        mark:boolean;
        dx,dy,ct:real;
+ t7 u( I6 l7 k! w  w    i,j,rows,lines:integer;
6 L) q. D% I' g5 k/ S7 c0 R    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
+ S$ Z5 D  z8 E7 W; j        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
4 t0 `, G- Q$ O# O/ ^0 G& P                inspect messagebox("设施数目不对！请核查...,",50,13)
  K$ ?; E) v7 o1 S                when 16 then
. W' k/ I: Q" J/ J9 A7 Z6 b% n3 }+ Q7 e                        print"yes";
2 F  i$ n( `9 X$ x                when 32 then
0 a8 o* z; p! Q- k                        print"no";
# S* o$ X5 l$ |  R8 n                else
5 U1 W( _3 {! I: Y% L                        print"cancel";
                end;
                eventcontroller.stop;
8 B$ i+ F1 a4 H" {. j; b        end;
1 y8 p1 \# Y4 |; b       
        for i:=1 to number_of_machine loop
, z1 p2 c+ @$ d        machinename:=sprint("M",i);
        if existsobject(machinename) then
& y5 o/ P+ M. O( r1 z                machine:=str_to_obj(machinename);
) Y' l4 d# T  w                machine.deleteobject;
( R& H* E9 G( L: A% B        end;
1 `) h% \# J: _, a  W! A" q        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
: H! \5 N0 a4 y- A3 f; ?( q# l                buf.deleteobject;
4 d8 C$ X2 E, J6 j& l1 M% u        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
+ z/ g1 X7 L% t1 }# {  Y$ Y& H3 a                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 \6 J# m3 X) s3 I) z: r) c                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
5 d4 i3 X9 N- ]) ]- ]8 S; s                        else*/
. o% n- q3 y, }9 X* d                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
# c- l( \7 S" D; v' s" }  u5 t                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
" d$ o! ]+ V1 }+ I, ^: d8 M                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
9 E3 H/ A$ J/ Z2 k( I/ C6 f                /*if mark=true then
# R4 E! p6 ^, C( H, G                ct:=activityspace[2,rows];
2 Z1 p; v- f5 }) O1 X5 J8 V; @                        activityspace[2,rows]:=activityspace[1,rows];
                        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);
        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);
0 k( `* g0 t" [' I: _       
        rows:=0;
        lines:=0;
" x4 Q7 o( P: a+ w9 Y        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;
/ Q2 c8 B( N( I                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
+ E( P& n$ R6 j( [                                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;
        next;
; g( q6 E2 h$ R3 h/ w$ w       
        lines:=0;
6 K3 A: O* d3 \! _$ S, q# N9 }0 l        partstable.delete;
- u8 I7 ]; T* K' `% t& \       
        for i:=1 to number_of_machine loop
- k& ?! {! F% x                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  ]& l3 w# g! B% \$ {                machinesequence[2,i]:=rows;
4 D& {4 \6 K8 z5 F6 l! Z                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
# f* N9 |1 a% |% {) v2 M( b% g: E                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
' A/ h3 E$ P6 `) ~                        partstable[3,lines]:=sprint("parts");
: l, I& J9 w" a# ]! C. S7 a/ D/ z                        partstable[5,lines]:=rows;
4 W3 U/ {2 N9 l0 K. r$ `                        partstable[6,lines]:=j;
- m8 h% |6 n/ e/ ?# `* z" p7 x( Z                end;
) @$ E$ y! E1 V8 Z, v( n( x        next;
& P) n4 [9 P% |* ~- Y, v4 E9 u        machinename:=sprint("M",rows);
$ q. Z% O+ 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]);
; X; R8 f3 S2 T3 Z        machine.name:=machinename;标识符未知
; t( U2 _; o) \8 n' a$ U4 H        machine.proctime:=5;
7 i7 b6 C5 ~, c9 E7 G3 M% S( g( s6 i        machine.label:=activityspace[0,rows];
. O+ n* G8 B" H. ?7 B5 _        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]);
" U; V6 t- c8 Y  i; D; ]        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
$ x% Z, M6 [9 O5 X: a        .materialflow.connector.connect(buf,machine);
( y4 v" e! P4 |/ u* Z4 N       
        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;