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

zooey

is
3 _" |  u1 f+ z/ V( K0 e        mark:boolean;
7 Y2 _. N5 q+ ?4 p        dx,dy,ct:real;
7 v1 f  d3 D' h" M# m    i,j,rows,lines:integer;
3 m& b9 T- v) _: M+ r( y+ o. k    machinename,bufname:string;
* `) \3 X, a- p2 `; x    machine,buf:object;
do
  T9 R- u, j/ C* ^7 J        current.eraselayer(1);
# x; C2 m! g; S9 n- K- p       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
# ~7 _0 q5 ~& ~: {) j0 I                inspect messagebox("设施数目不对！请核查...,",50,13)
2 J( b( x1 ~* i$ P- d: n" U4 j                when 16 then
                        print"yes";
                when 32 then
2 N1 E0 C* m* F* J                        print"no";
                else
  J; |: b4 ]" u( \7 i# f  ]                        print"cancel";
                end;
; W' J4 l9 \7 _  n5 M2 F  T                eventcontroller.stop;
        end;
       
& U* {+ G' n2 R  y" a7 S' C0 p2 H1 E        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
1 w  g1 z  e. l: w$ S        if existsobject(machinename) then
7 f: A2 t/ P$ `6 K( b                machine:=str_to_obj(machinename);
( c# Y. e0 J: b$ G                machine.deleteobject;
        end;
3 P) J. G! {6 J; ^        bufname:=sprint("BF",i);
* T$ H9 }+ u7 z. k        if existsobject(bufname) then
$ v7 j0 |. e0 G' M" A" T  x2 ?) v                buf:=str_to_obj(bufname);
, K& A  t' A# x+ Q! w" N                buf.deleteobject;
; }8 R9 L5 i' h5 i: s        end;
        next;
6 d# t1 E5 H: i; V" p, p       
5 J- k3 k' Y) t! a        dx:=0;
4 S/ G0 D% L+ X& q: W9 v' X% v        dy:=0;
. R2 ^8 _( R8 E: C; {% V; m        for i:=1 to number_of_machine loop
5 E' j% M5 X% K$ `6 T& Y6 [                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& H! V6 v: l6 j                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
7 T7 j9 }" e* l/ ^/ B1 ]                then
( [5 |0 k7 M8 p( X8 N! V( l! A                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 K. f' S7 @2 Y- v9 Y                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
' k6 e( J( n9 |+ ?3 b7 K                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
4 O; J- ?- U) k1 M& M6 c, b' p                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
2 \/ \' F& E/ s8 F/ t1 C: }                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
9 G" F5 m+ [5 v: i8 e                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
" z) n7 h' A6 ^' E) y' ~; R            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
9 K) R6 ?1 V, u$ S6 L8 d                end;
# s: _2 p3 V2 [& m& q; x) f                dx:=dx+activityspace[1,rows];
                /*if mark=true then
" J- a$ b7 `! r5 j5 _  K* k; [* G                ct:=activityspace[2,rows];
# \# W& A6 \) S' R                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
. R, g( Q3 G8 ]- X        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 }% H, b/ U. Z2 R( B' \        rows:=0;
. w6 L9 N2 c* s9 L3 Z+ U3 F        lines:=0;
' k' I4 D$ D! I  ~% ]        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
3 m6 Z  F3 J! b3 W' F% A                                d_from_to_chart[j,i]:=0;
                        else
4 r' W. P* X9 \( ^6 z2 {3 o                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
, x+ q( d( A; z' @9 H, K- c7 W* s                                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;
- y' i) T1 B2 w+ S                next;
3 q2 X# D" Q* h0 {0 P) r        next;
       
        lines:=0;
        partstable.delete;
3 Z  {* ^1 m  @! N% s       
+ K& W! s% d! o7 r1 l        for i:=1 to number_of_machine loop
' l3 {7 U1 s) N7 y; g* a4 G: E                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' m% L# k7 J' ]) ]/ y6 z                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
# T1 Z* m- n/ C0 k8 ]; K                        if w_from_to_chart[j,rows]>0 then
2 w( R5 e* N7 v1 G) d/ V                        lines:=lines+1;
: i* D/ l; s, d! i                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
. y' T7 }7 \# }# n                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
4 l3 ~2 D$ e$ _& a! G6 w2 e8 G. `: f        next;
# T8 |5 Z6 G3 p. n- ~        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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
" J4 y. W, q; G% V  S       
" Q% a( _& `3 V        bufname:=sprint("BF",rows);
, Z6 B# j& C$ W6 D% b9 G        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]);
* |) ?, ~/ D- H& b% y( c. s, g        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
$ e: ?3 ?. b# Z0 }1 L        .materialflow.connector.connect(buf,machine);
       
        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;
# m3 s$ Q" _5 h* S: G4 Q5 ?