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

zooey

is
5 L* ?4 s' k6 L        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
1 _$ _; s, _6 E7 V; _4 J    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
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
& A& S+ V3 i0 I0 G$ C0 }, ]! H                        print"yes";
% N8 k8 h% d  ~* B+ B2 Z                when 32 then
8 Z! |$ U0 R3 R$ E5 ?                        print"no";
2 b+ n# c# k8 T0 E, P; i                else
                        print"cancel";
/ V  Z; w0 {6 O& r                end;
                eventcontroller.stop;
$ z5 P1 n# ^* T        end;
& I# E1 X' O2 V( s, V5 n       
( ?; U0 f: F8 K% h, R4 r) ^        for i:=1 to number_of_machine loop
, }. b% ?, y+ u) i8 i9 b' r        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
! ~& x& V3 t+ @4 t                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
; H! `  P" Z$ W; \                buf:=str_to_obj(bufname);
% ]& t# ?2 a6 O" a1 b+ p                buf.deleteobject;
2 Z1 T6 |6 S5 C        end;
        next;
+ R3 b1 Q: T, R       
' C# c; m) L8 P; o$ _        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
+ L, B, _  e8 ?) [* H                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
( u- }- Y  B2 V6 u                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: G5 ]9 c7 [7 B% T" e9 M                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
3 g6 x' W% ]/ k2 J                        activityspace[2,rows]:=activityspace[1,rows];
+ z, [" T- U. j8 H/ \) D3 H                        activityspace[1,rows]:=ct;
                        mark:=true;
% Y+ ^9 @5 \1 d' `+ f( f' }, ?                        else*/
3 }. s$ X1 s* _, I$ s2 @& |                        y_max:=y_max+dy;
" ]) i" _7 c! ^: ]                        dx:=0;
; d8 R9 w- ~) q/ i3 `                dy:=0;
$ p9 b  }  W1 I# R1 @2 @  L                        --end;
                end;
                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;
: X- s( |* `8 t$ f" ^% d# R            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
1 U& ~9 @+ z* q8 J7 N6 S& e                end;
                dx:=dx+activityspace[1,rows];
$ Z# Q* y5 F" H7 d  t" E0 y$ y8 A/ E                /*if mark=true then
                ct:=activityspace[2,rows];
* @  X& @! O. z( @) h/ I! u                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
7 N/ K& D& F  y2 c& e* }                        end;*/
6 X8 i( G5 B2 ?7 j# i& Y: w        next;
( r' L1 ?- z# w+ Z/ ~* n5 N) s) v/ |        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);
4 e: @* f" \( ]7 D1 g8 ^' ?        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);
       
! j  J  U3 U& `$ X8 |+ Z        rows:=0;
) j! G7 S0 H' O# h( j; F        lines:=0;
+ l$ F1 D( C2 E1 C        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
7 w- P; ~; j, Y# N6 b9 W8 ~                        if j=i then
+ ~; s6 c( s' B; s0 V, G% I                                d_from_to_chart[j,i]:=0;
                        else
6 A# I& j. t4 R( Z, O& y                                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];
0 D! z3 T5 _9 X/ {3 t* b- L6 ?                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
  b: @1 k: k: U9 T- \                next;
. L4 i5 q# D2 K; ?* s+ q9 g8 h        next;
       
9 @: p, Q' n* L: ?        lines:=0;
3 M3 Q& U9 U! Q9 g) Q) y        partstable.delete;
       
& O0 D3 p1 c6 v3 }, |, `, c        for i:=1 to number_of_machine loop
- R9 f) c0 M/ i  o0 B- y% L                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) B, y) X/ p# [$ O                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
! C& _0 a9 f. k6 k) C$ k                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
" e7 ^  c- G# t& P  m' d! w                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
  E, }& n. I% d7 t5 u7 g% ?  |        next;
/ H9 {, ^/ [4 e2 w& r. Q1 A        machinename:=sprint("M",rows);
; j9 R9 Z4 y3 z        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]);
4 {1 O2 {8 c& Z7 H5 s% {        machine.name:=machinename;标识符未知
2 K- Q$ b- S0 _6 O        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
2 q% ~/ b8 X: Q$ o" Y. u7 b0 Q        machine.exitctrl:=ref(leave);
       
1 }; ^  I- T  \/ B& J& U; u# J* Z        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;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
7 v- b' R5 e( j1 u+ }1 A2 ~+ e       
+ ^" M: g( g1 _( R" o' E6 c% h7 ~        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);
1 m5 N( @' p) Nnext;
! y' |7 a4 W  Fend;