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

zooey

is
4 X$ R- W3 f' F/ x        mark:boolean;
/ P0 \$ D2 ^3 M        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
( a$ B8 R% s8 G' x9 f# ~                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
1 N9 {; g* N6 k& Y. u                when 32 then
                        print"no";
. `+ S2 g3 s: g6 k4 g1 y                else
4 j( [0 [2 U6 s/ g                        print"cancel";
. s# R% {! R9 {8 L                end;
                eventcontroller.stop;
        end;
* [- Z9 X' `7 J( J0 E       
# Q; Q0 a% J" e        for i:=1 to number_of_machine loop
: [# I9 A4 X- W6 O1 U8 u6 n" p        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
% s1 {* {% g4 w( {* r0 v# p        end;
; J) n  g1 H0 ?        bufname:=sprint("BF",i);
/ v2 `% @: F$ e( V) y( U        if existsobject(bufname) then
0 O. }  I: [4 s" T5 x                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
; Q, s( v' Z9 G, X$ r1 o       
5 ~0 h4 x- ^9 z9 p        dx:=0;
        dy:=0;
7 B* o/ a9 y6 v4 D$ B* Q3 @        for i:=1 to number_of_machine loop
5 Y, E3 i0 b. s5 _* i                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: M0 T3 P* |$ T' b, F* T7 y+ ^  H                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
$ w* y; V! h/ |: U8 \. V4 G                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
# e# `* ^& t5 L                        and activityspace[1,rows]<(1.05*y_max) then
5 k# N* E4 D( I$ N6 P( v: `                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
% w( t5 h. [9 d4 V4 m* R& K" H, E                        activityspace[2,rows]:=activityspace[1,rows];
7 L# p$ [: H; H' D+ }0 C2 r8 K7 P                        activityspace[1,rows]:=ct;
& t/ g. q/ e% S  _( i0 G                        mark:=true;
                        else*/
& o6 i3 D2 J# k- }                        y_max:=y_max+dy;
7 B" W. N6 G  f) p6 X' q                        dx:=0;
                dy:=0;
                        --end;
                end;
. O4 B  b, c# }6 \% \# ?- P                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;
            if activityspace[2,rows]>dy then
1 {0 x! S8 @2 [$ q% H6 c                        dy:=activityspace[2,rows];
                end;
7 K! A* |9 ?! @3 K) S                dx:=dx+activityspace[1,rows];
/ l5 t- L* X  N9 p/ B                /*if mark=true then
: N0 p7 d9 I5 h  p                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# c5 ?/ O5 v$ K2 H                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
) F: a: s* F( ^7 F( o+ ]" i        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);
; s" W. ]! f2 m, y+ f0 w# v$ I       
        rows:=0;
$ ]# O2 s6 e" {- y, V/ S- t        lines:=0;
& g7 @$ _4 l7 G% k3 J& s1 ~0 l        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
5 J1 ]% Q1 J7 f- C, s$ O                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
$ b% O" @9 ^1 B8 L- z, ^  C/ Y                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
4 X% s" q+ c) G( G  o                                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);
9 i: @. O( D& x9 o5 \: a1 D                        end;
                next;
8 K+ Z& v. n# j" t5 W; E; j- K        next;
: B1 _) p" G0 _4 x4 }       
1 f7 |! q) s( A' e% t, b+ K        lines:=0;
        partstable.delete;
4 R/ l7 _- q+ H, |' |( G. D       
+ n5 k4 L4 ]0 ]3 f# k        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
/ M8 I6 P6 O9 s2 J! k. s0 B                for j:=1 to number_of_machine loop
2 L( u9 ~0 l/ v9 {$ R                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
, `) L8 ]  y( r' L6 u# r* A                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
. G  {: |' w6 L1 H8 _" P7 K  p% |                        partstable[3,lines]:=sprint("parts");
" m, a: J8 s/ s4 a0 [                        partstable[5,lines]:=rows;
; o6 m- r1 U4 X5 E' z                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
* n& G: }5 ~7 U* X# y6 q        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]);
/ L. j6 @  y2 V% `8 b/ \        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
# K/ H) r- O6 Z8 \& U% h4 E2 T        machine.exitctrl:=ref(leave);
, C/ T/ D+ h& H2 a6 Z! d9 K       
: \1 E' P7 j5 @4 r$ _        bufname:=sprint("BF",rows);
; x  P1 S) H2 ]; {* o0 y* E        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]);
' i8 }, m" f3 G9 A* y4 X        buf.name:=bufname;
+ \6 b* }! L0 j; n        buf.capacity:=5000;
$ q+ z9 `  x. e- O" g        buf.proctime:=0;
, G% }$ @, [6 _2 I3 d$ O3 Y        .materialflow.connector.connect(buf,machine);
       
' }& n- i9 k$ z7 r' ?+ s        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 r6 o  I, Y6 ~dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
5 o; s$ a9 v* W8 j' t3 Fcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
, j! p4 u: `& `1 \next;
end;