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

zooey

is
& W) U3 {: n6 p        mark:boolean;
/ Q- g% g% B1 }$ ]  g        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
) q  @+ d, ~7 ]/ y        current.eraselayer(1);
       
6 D! n+ a# Q  P, b4 H        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 F" j. t/ t& B                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
: \; N7 I3 Y$ z  |/ x                        print"yes";
) t1 ?- t2 A( Y  Y+ g+ c$ m                when 32 then
( D' X# N# r, h                        print"no";
                else
                        print"cancel";
                end;
( S* }- @6 q* O                eventcontroller.stop;
4 m  o* A( N! k2 ~; P$ N: a( z4 g        end;
, u7 }( n" r/ `) e% g* J       
# _" m. E9 R; B3 m; c% q        for i:=1 to number_of_machine loop
  M  E: N# }4 ]2 {        machinename:=sprint("M",i);
        if existsobject(machinename) then
* a0 Y0 {" ~4 {" I                machine:=str_to_obj(machinename);
. n9 J& S4 r" X8 W7 q6 o1 a# l" m7 N" r                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
* N( ~9 B0 g  x- e. \( o1 I+ q                buf:=str_to_obj(bufname);
                buf.deleteobject;
. o* ]" \2 r, i- n& V, N; ^) m        end;
6 O4 i$ Z1 ~2 @2 k, v$ C        next;
( [, d( T+ _2 I& R6 Z+ U+ @7 Z/ l3 K       
        dx:=0;
( R5 y$ |5 |% g# c  R0 A* i        dy:=0;
4 g" L  q, Z% |9 C3 r, d        for i:=1 to number_of_machine loop
5 R6 b2 x8 k$ w9 E* n' K# O8 ~* H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 d9 U' s/ f( R# D" M% Y                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
" q0 X( R+ H) N' W+ ]5 w7 O                        print activityspace[1,rows],",",activityspace[2,rows];
# F% C; s  ^% @2 W+ @; N: m                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ U- u7 [1 |' S0 _( b9 h                        activityspace[1,rows]:=ct;
9 r: @/ a! P1 _0 ]                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
3 }# V$ Q* @) J! {& S                        dx:=0;
  O) E6 }. m4 O8 q" B) a9 q% w3 l                dy:=0;
                        --end;
                end;
7 X" G$ x/ |7 }- s- ]                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 c, V+ b0 N+ r                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
) u* b* s3 j) s0 T            if activityspace[2,rows]>dy then
! ]2 i6 [$ t& g3 }                        dy:=activityspace[2,rows];
* m, B# a' D; _  w8 L                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
; X' W0 l- Z' L5 H" v  o                ct:=activityspace[2,rows];
0 @( N" v/ F3 _0 ^2 x* j6 _                        activityspace[2,rows]:=activityspace[1,rows];
) _+ E: t% D6 U$ H                        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);
       
6 q3 @1 w: Z# m; M! A        rows:=0;
, X5 s7 I5 t7 ^' F6 [! f+ Q        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
6 P6 N# I! U% c/ ^. p: w+ ~. m1 F                                d_from_to_chart[j,i]:=0;
  v8 O1 K9 c& b- |                        else
6 C' m9 m6 E: x" Q3 }) d5 M( F                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 j  U- l7 m, R! e' [                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
  p" A. c* f3 H" y. V7 r9 E0 w% m' L                                d_from_to_chart[j,i]:=abs(dx-dy);
. W6 ~" x/ K' V: N# G. i6 m                        end;
6 e% l, g) K3 S9 P+ v                next;
        next;
; C' Z0 G2 D6 Y% a# e: h' E       
4 N8 Z: {7 E, u        lines:=0;
) s: V- S5 b3 l8 M) E( ?        partstable.delete;
% \/ {4 }2 l+ D       
        for i:=1 to number_of_machine loop
$ Y7 o) m$ s4 L5 v- N7 `; |                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! k5 ?6 m" z! y& {                machinesequence[2,i]:=rows;
$ w: y3 i7 e; l                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
* `( z& X  I$ G! u+ _( C* y% R                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
7 t1 L& A! q! [6 U# j                        partstable[2,lines]:=w_from_to_chart[j,rows];
# I) C  B6 X7 `9 C                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
- M9 s/ Q$ W6 ?, J# \                end;
' Y# K& _' P3 ?4 u  o( z1 U% x        next;
        machinename:=sprint("M",rows);
        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]);
% M  q3 R' l; O        machine.name:=machinename;标识符未知
        machine.proctime:=5;
" v" g5 d* e0 Z: O        machine.label:=activityspace[0,rows];
8 s+ F5 i# J5 T& K- e' G        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;
        buf.capacity:=5000;
" \4 ~7 E  D- w# \9 O: c" O        buf.proctime:=0;
+ |7 Z( ^% y) F. A9 i0 f( i: a( M- h        .materialflow.connector.connect(buf,machine);
% w/ |8 A9 u. Y$ z0 R; o3 n# D6 H: l       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 b4 a6 ~. ]0 v3 v9 kdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
+ R! q2 J0 H+ i- B. p2 zcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
$ j( P" b/ \$ V) bnext;
: {4 D) [  W% Iend;