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

zooey

is
        mark:boolean;
9 m* k9 u) [, S/ e        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
' p7 `9 v- s$ X' {: t- x. V2 J8 v+ @    machine,buf:object;
/ |$ P  F- x% Q1 H  _, V6 \0 g5 fdo
) F2 u5 K& C& t2 A        current.eraselayer(1);
       
# ?$ m. S. }8 f        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
" |3 I2 o9 C' C+ {/ W8 Z3 }8 d                when 16 then
                        print"yes";
' T( p1 n# I6 A0 \" N) z                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
7 Y# B$ @3 R4 e. R3 z5 n: p        for i:=1 to number_of_machine loop
; e# q  x/ E0 j$ r7 o- p& k8 K6 G        machinename:=sprint("M",i);
        if existsobject(machinename) then
' u  E$ G6 A) D. K                machine:=str_to_obj(machinename);
; V4 s+ r4 L4 C9 ~7 }& Y' X  n                machine.deleteobject;
! F6 z+ g( ]6 A& o3 j        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
) A% R# P& b3 y7 S                buf.deleteobject;
        end;
/ j) T6 w% x0 M( `0 C        next;
- m) }* W! z6 b+ W# D. V' n1 v0 {3 v2 C       
- ], l) v& e1 g& X' w        dx:=0;
        dy:=0;
. Q& _! P* c* X8 C( H% t8 ]% R* U        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" V8 A" N; {6 w                --mark:=false;
3 A& @' Z* P' Q) B                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
( j6 \+ \% D9 e( e                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
: S# p: d6 I) }7 W% a                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
& h, a8 N* p) ]9 t, P* E' w# g                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
$ O. j' r4 x- H1 T; f0 d  o1 Z                        else*/
. p' W; i) k1 Z! R# {9 N$ Q                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
# i% U8 W6 `$ Y+ z9 j( g* j                        --end;
0 S2 I, i3 I) L% H  }! G( x8 v                end;
% f; ~4 u. H3 t' a6 j" D; {                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;
5 R' {, T& U" o& Y. U  F            if activityspace[2,rows]>dy then
. H1 O8 n* w* r' \# p% ~( q0 d/ u+ E7 ~                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
4 e* U. {/ z5 p1 b. R9 O                /*if mark=true then
                ct:=activityspace[2,rows];
2 s0 U5 ^1 m7 c. ?% \                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
9 h. i7 Y  t, \( A        next;
        y_max:=y_max+dy;
; V. u7 Q- T: d: n# ]( ?        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);
. n& X2 o# p: |' _+ N- X& x        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);
" d5 j( G$ i: ^/ b9 T- c       
( g; w. \/ n0 T) x# G- t% ]7 X        rows:=0;
        lines:=0;
- d; j( q8 `/ U" p+ g        for i:=1 to number_of_machine loop
# E9 D. _/ P( F7 S' b9 A                for j:=1 to number_of_machine loop
" c' e  E& [6 W( V( |                        if j=i then
; k, Q* z( U+ P2 e/ C, o2 _                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
$ k5 n! c$ c' f( |4 m9 X$ g                                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);
7 y$ U  _3 B- _; h& i# a                        end;
3 y$ Q, f( k+ j                next;
3 o% ?7 j! z8 D$ r8 o( q3 z3 U: g8 s        next;
+ {( U4 N9 Z& I7 w  @9 i       
        lines:=0;
        partstable.delete;
       
3 i0 C7 A1 u8 R        for i:=1 to number_of_machine loop
+ v" ^( T* Y5 e, _                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
6 p+ z& ^  D0 j5 O& f% l( I                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
. s) E  f* s1 Y6 e2 f                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
6 K8 t9 w  _, j% a+ K( F" Y' z3 Y; K                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
7 u# i' ]0 t" k4 c, G        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]);
        machine.name:=machinename;标识符未知
5 v1 ~# v" ~1 t2 g        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        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]);
* C9 Y8 f' L/ l9 U1 G3 v        buf.name:=bufname;
3 n* q3 [" D+ s; J; p2 ^0 j2 b        buf.capacity:=5000;
        buf.proctime:=0;
+ w0 [% R% l  @  q# @        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 R/ R/ P) o5 P3 r0 R2 j  b9 l* @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);
" r: c2 d8 C, }  o& ]4 n$ Gnext;
end;