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

zooey

is
. ?; h% Z6 o. c$ i0 u0 t( J; T7 C6 O        mark:boolean;
        dx,dy,ct:real;
5 {3 J4 L! N3 D, w    i,j,rows,lines:integer;
; y7 V  p) I3 `    machinename,bufname:string;
    machine,buf:object;
do
$ ~+ w9 K/ T" w4 d. i        current.eraselayer(1);
3 |. L8 A1 @( Q, N       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
; G7 y/ ~$ m# z1 f                when 16 then
  ?; ~% |5 Q/ j1 Y. b2 j; s( j2 q                        print"yes";
/ S2 S' \" N$ r3 \3 ]" y                when 32 then
  b2 z/ ]7 k4 i. o2 M# c                        print"no";
$ b# Y$ p8 Z1 _) Q  p8 T- U                else
                        print"cancel";
                end;
8 m! ]% W" ~9 O; ]3 K2 t8 Z( y                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
7 z+ G; T$ s: o. N& J9 @                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
+ e3 P- B* L: V- m        bufname:=sprint("BF",i);
* a$ c  ]- }4 }* ]/ Q. D        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
- O& s, Y* U. w! x$ a" S0 I' y                buf.deleteobject;
        end;
        next;
4 Z" Z$ h7 w9 ]$ F- G       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
' U) ~5 v; s0 O; Y6 F: }) D3 A; \" a& m                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
% b" ^, V& ^. H                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 l" p* C4 u* }/ ^                        and activityspace[1,rows]<(1.05*y_max) then
* R& e3 G6 ^$ F+ P                        print activityspace[1,rows],",",activityspace[2,rows];
- o* n: b& X2 q* A* m                        ct:=activityspace[2,rows];
, t8 o& [% Y" M+ C' q; z. c/ i7 ]  J6 [                        activityspace[2,rows]:=activityspace[1,rows];
6 Z5 k/ ?+ O: F" v# ?                        activityspace[1,rows]:=ct;
                        mark:=true;
+ ?& W  i4 Q$ D  r# K( ^                        else*/
, g2 g$ F$ B1 P# u1 Y' x                        y_max:=y_max+dy;
                        dx:=0;
9 l3 P  X' V# Z6 j3 _8 S$ n                dy:=0;
                        --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;
0 P: J( s  G/ V            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
/ T& }, G' m+ T$ e0 L, x                /*if mark=true then
: E7 R- ~" ^: c8 R0 {1 s3 F                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
) \4 |# I6 C$ Q' N                        activityspace[1,rows]:=ct;
8 I  T- N* `2 P7 W" Q* j* A                        end;*/
; F* N8 b( s2 D# c7 B        next;
, O# D9 W, ~9 e/ Z$ o        y_max:=y_max+dy;
6 a' S6 x% t% }. O  v$ F        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);
2 v. w0 @- J' K4 L9 v       
% r* o$ [1 k; K  a* V1 Q0 N        rows:=0;
: Y/ Q( P5 T* d& [: D% n' ?# ?: U  W        lines:=0;
/ k" c' N4 m& r4 e/ Z" h: P        for i:=1 to number_of_machine loop
2 T4 H5 ]/ B+ K. s                for j:=1 to number_of_machine loop
$ E7 u' S) ]1 p" ]6 S  q6 l& ^                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
0 m6 s4 {" ^9 N$ u2 y  m                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
9 B+ c9 t4 G- s& o7 x  t                        end;
  C5 M: n9 ]4 S$ {5 X( g                next;
        next;
       
+ P, B$ P7 }  d8 t! V        lines:=0;
        partstable.delete;
4 b# Z% L( u- j' G) d1 Q; ^       
  n# d4 o  }% {8 z) N, h) c        for i:=1 to number_of_machine loop
8 F. }. n. z, U1 B& G; B                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
2 G' L+ I4 W* d, A                        lines:=lines+1;
, j4 R0 c/ t4 S# ]                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
3 m7 q6 H5 y1 \1 K0 m                        partstable[2,lines]:=w_from_to_chart[j,rows];
$ e7 b% P7 s& P                        partstable[3,lines]:=sprint("parts");
* w. \; S1 M1 f& [& Q9 E                        partstable[5,lines]:=rows;
0 s" u3 ^$ q1 b$ v/ a4 [$ m7 n                        partstable[6,lines]:=j;
+ v4 }0 t4 D8 F. N4 @' A# W  K5 K                end;
        next;
5 r6 S  @; O7 V8 G7 Q        machinename:=sprint("M",rows);
1 w( L  u5 W  B& o. g* o2 A; H        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]);
; F, D, y1 A; i/ O' E' s$ ~; `        machine.name:=machinename;标识符未知
3 U! y0 Z. ^  Y5 F/ {6 E        machine.proctime:=5;
7 J. n6 ~3 E+ l) T' Y$ X        machine.label:=activityspace[0,rows];
8 v$ b8 \7 B! U% E! l6 @        machine.exitctrl:=ref(leave);
% |4 |1 L- d5 u' C       
        bufname:=sprint("BF",rows);
3 p# _% d' U8 \7 D9 w        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;
+ Y; v7 y0 M4 y# D4 y* X; ]' h        .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;
8 E: o4 u" A- e9 I2 i. R6 k% f- \current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
/ y3 H7 G& m  ?$ @9 }3 x6 Oend;
! e# V+ c1 n7 X: K" T: Y