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

zooey

is
& M) u5 w! b0 a& s, v        mark:boolean;
& ?- ]" H# h5 @( L* ]- n        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
% Z7 k! w8 g4 x3 O) D2 i  n$ j    machine,buf:object;
6 [  [( g/ c+ t1 }- p  Udo
& O5 e7 [1 r5 m        current.eraselayer(1);
       
! U$ }7 y" f3 ^! D, r5 |        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 X, l& L9 O: ?! r' D                inspect messagebox("设施数目不对！请核查...,",50,13)
2 J2 j3 r  N: h; S7 O% |                when 16 then
( E8 r4 q, B$ j- ?                        print"yes";
                when 32 then
  Z" E4 h/ e5 W8 P  |                        print"no";
                else
$ p7 W: ?8 y9 U' {                        print"cancel";
                end;
4 h3 k. L* Y$ @  K                eventcontroller.stop;
3 ~4 }- f7 E) {, o        end;
! g, Q4 H/ ?* h! S3 c9 X       
! b; B9 r5 y7 ?8 D1 u8 a        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
+ h8 n9 `1 H9 N" [* @! ^7 }                machine:=str_to_obj(machinename);
6 Q, E' U5 i" \                machine.deleteobject;
5 v7 A! o: d0 q        end;
3 i  Q6 ~! H$ `1 V. `        bufname:=sprint("BF",i);
7 C2 S: V7 n3 q+ o% [9 C1 ^4 c        if existsobject(bufname) then
1 w% i5 Y' ]$ r1 O2 G* D% ?( C                buf:=str_to_obj(bufname);
# q+ n& P9 O* k  L0 h                buf.deleteobject;
        end;
        next;
       
        dx:=0;
% ]% B6 e, t5 {( @        dy:=0;
        for i:=1 to number_of_machine loop
( h# E+ x, v  ~( K% @8 R6 m                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 V. O6 k1 i  o6 S4 t                --mark:=false;
  T! X6 K2 _+ Q0 U! r' O                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 i( a7 _/ o: v7 u) f                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
% ~+ k2 d* ^% U; Y                        print activityspace[1,rows],",",activityspace[2,rows];
' s1 q# l' s$ Y. `/ L                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
, E$ y$ X6 }7 I; g# r3 X' T                        y_max:=y_max+dy;
! P1 p1 D% j/ o8 n3 {9 B, t3 Z                        dx:=0;
                dy:=0;
- g& [! m: R! A1 J1 a                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
6 k$ h; H$ U" M0 U# ?                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
1 l" Z6 b: f$ F- t                        dy:=activityspace[2,rows];
0 ^9 S* T# h9 y+ ]8 S+ D9 }# K                end;
' G0 @; f* y$ L& K& |; G                dx:=dx+activityspace[1,rows];
8 j6 B! j/ y1 g& s; I                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 H3 ^5 L# ~1 T7 i9 e. ~# y                        activityspace[1,rows]:=ct;
7 s- U3 A4 _) M2 V4 T                        end;*/
% O! L* g! i5 ]2 o# S  |        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);
       
7 d* p. m* g1 p3 o        rows:=0;
$ r  h% I7 E& Y7 o# f- n        lines:=0;
        for i:=1 to number_of_machine loop
# A/ Q6 L3 ^; W0 z                for j:=1 to number_of_machine loop
6 `8 T# Y, \7 r3 l                        if j=i then
                                d_from_to_chart[j,i]:=0;
0 M! N$ x; k8 k                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
: c& ]5 g6 L; x6 L4 e, M) Q                                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;
( k) V6 g" h9 p1 K* x# m                next;
        next;
       
6 c* V1 Q$ o( E) k4 z        lines:=0;
4 w. v& ~) |( k1 j+ f        partstable.delete;
9 v) [8 v, W5 J       
3 z* \1 a8 Z( T* i, m        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
: h, O' q: C- \! h                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
9 s9 a# J7 y! Q                        lines:=lines+1;
' k+ W& C! X5 ?, o/ O+ h! v                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 q; b0 A* N' F  ?, R                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
$ B6 V* ]5 \, }, o& k                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
2 |* e+ W) l# E4 x% ^                end;
% j& \+ w/ y. |        next;
        machinename:=sprint("M",rows);
7 q' p0 W; q1 l9 k4 [% Z: H9 S        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];
/ c" T5 ?, `+ i        machine.exitctrl:=ref(leave);
8 s7 m; a2 o: B8 ~6 W" X7 v- u       
- a; K, n6 j' M4 V        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]);
+ k# b# M0 n$ G2 U8 G, V        buf.name:=bufname;
! Y1 i! v2 N1 w, P. T, b4 ^        buf.capacity:=5000;
% J9 R5 H) G8 ]' |  o; Q. P( X$ }        buf.proctime:=0;
6 r" s/ T7 e% F8 U        .materialflow.connector.connect(buf,machine);
7 I6 |; J$ k- A8 e       
. Z) C8 x3 O- |, v' k( W# X- W        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
# G" n. G$ T4 {. P! E8 Q( qdy:=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);
# T9 D' d- c, u% Hnext;
, p7 y, c, \2 d  h" Cend;
* m; B/ u: ~0 T  k+ y6 H! V% ?