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

zooey

is
        mark:boolean;
/ a3 X4 X3 U$ q0 J  Q        dx,dy,ct:real;
4 K) X' s& r* o! C% l    i,j,rows,lines:integer;
  ^# O# |/ N* n6 l( P& q4 }1 V9 M; |    machinename,bufname:string;
; [( R4 s" _6 K9 G* _+ q    machine,buf:object;
do
6 R1 s) V. Q' ?  V        current.eraselayer(1);
1 u1 _3 {. [. G4 s% y       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
& Q* ?; H$ h/ A                inspect messagebox("设施数目不对！请核查...,",50,13)
* w2 K4 S; ]! G) E  B& D                when 16 then
* [6 L& [. k5 u. Z8 C                        print"yes";
6 Z/ f5 D6 Q; q; w! C                when 32 then
8 }( ]( m) W: C: ~                        print"no";
# E  ]$ l* E" I# D' ?7 t: {                else
                        print"cancel";
1 Q7 R# T1 ^* ], G3 P2 e9 K                end;
                eventcontroller.stop;
$ ^$ G, C2 ~1 J5 I        end;
       
6 l3 t% E& i+ V1 }. y9 L8 B! M        for i:=1 to number_of_machine loop
: B0 s% r; @* a! N4 W        machinename:=sprint("M",i);
        if existsobject(machinename) then
2 q% \- }7 l4 w1 e                machine:=str_to_obj(machinename);
+ w% |7 F! s1 X/ y& J$ @2 U/ F                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
% m% P, p* D9 c) e1 b                buf:=str_to_obj(bufname);
. g" _& Q+ K3 G8 z                buf.deleteobject;
        end;
        next;
       
        dx:=0;
4 w' \; E' u# o5 {        dy:=0;
& Q# F- v) Y/ |" @        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
/ F, z% ?. S' C, `! J                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
' x7 s* Y) S" b; C" m7 `. c5 N                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 K/ {  T! R- i: ~: U* o                        and activityspace[1,rows]<(1.05*y_max) then
  Z/ j$ u( Q( I* p0 a                        print activityspace[1,rows],",",activityspace[2,rows];
6 I' O9 M* b$ {- K: X; b                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
- |0 E" r4 s* z9 i                        else*/
! [3 p: t1 Q0 t9 d                        y_max:=y_max+dy;
                        dx:=0;
' W2 A" S7 P$ g0 I' i                dy:=0;
9 r: P6 ]+ j6 ?6 C1 K; K: d( E                        --end;
3 a( o3 R8 h: k- y/ t% }% u                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;
            if activityspace[2,rows]>dy then
) J6 s) y  D9 q7 e! Z                        dy:=activityspace[2,rows];
                end;
% w' U$ ~! v+ h& b" d* y+ I) K                dx:=dx+activityspace[1,rows];
                /*if mark=true then
. l. |" G+ y+ J+ b                ct:=activityspace[2,rows];
5 s" {' G6 j7 g! d3 t4 k" W                        activityspace[2,rows]:=activityspace[1,rows];
' R  @. b# T% b, v                        activityspace[1,rows]:=ct;
                        end;*/
6 v7 C9 i8 l$ H; _* I  f1 y        next;
: J- E& f3 [8 S3 Z7 j. b        y_max:=y_max+dy;
6 N0 V5 e' L1 D+ D* I% ^7 ?! G        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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
, ~2 G/ Q7 @$ _, A  y3 ]                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
  B: B1 b) p* r1 _                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
& N! }4 `; f/ Y. L; C2 R                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
/ ^( E$ ^. R5 z                next;
! D7 ^3 v( N5 u% ]+ K" q* \2 M# |        next;
4 F/ d/ ]: ]1 f& H( b, ?       
        lines:=0;
        partstable.delete;
3 o' q0 m2 J. e+ V! D" k       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
; J: Q" v' d3 J9 Z2 d                        if w_from_to_chart[j,rows]>0 then
; ?1 s8 }# D4 Z% P* N- R2 W8 l                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
% r6 w& i. T# N4 {                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
& V* l) Y* O  \2 j                        partstable[6,lines]:=j;
                end;
        next;
* y# J3 T$ L+ ]& @, Z        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]);
' q7 T' I& {( ~% h        machine.name:=machinename;标识符未知
+ d3 J! G$ x: R- i        machine.proctime:=5;
- R0 n& k0 x  O& d% A        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
, F& ^' |7 ]3 w: B; L        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]);
, f# {* w; I# i! L' D8 Y3 i7 u        buf.name:=bufname;
  [& G3 X: M& t5 n8 p6 W  N; e% n: N7 n        buf.capacity:=5000;
        buf.proctime:=0;
" G9 F) X; u" V2 e2 R. T        .materialflow.connector.connect(buf,machine);
6 X/ i$ Q* ^; b/ g& x' P       
        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;
8 m0 F* L' g* _/ n  p