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

zooey

is
+ [/ ]* r6 ?7 I        mark:boolean;
        dx,dy,ct:real;
+ ]# d, I) b. n    i,j,rows,lines:integer;
, d" [* h; ^) O  y* a9 a    machinename,bufname:string;
    machine,buf:object;
2 c# A* W& }& f0 Pdo
% g( i' V5 j4 w        current.eraselayer(1);
       
* c1 p3 S3 ~% I% a8 u, A5 z$ ?        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
; Q$ w. e. y- F: ~9 N                        print"yes";
                when 32 then
1 d7 s) P4 I9 y: @8 u) M                        print"no";
                else
                        print"cancel";
- _3 E; p# C! I                end;
                eventcontroller.stop;
6 B; g; a8 g: c5 q/ Z        end;
       
% j6 b, u& `5 `) L, l" @! [  Z        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
! d3 F4 `) o( `. `) n                machine:=str_to_obj(machinename);
                machine.deleteobject;
! m1 P0 A, W2 z* D2 g3 @6 V# [        end;
        bufname:=sprint("BF",i);
+ k" Q5 j7 x" j+ c3 q        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
' p$ g8 o5 R/ C6 R/ |/ U& \+ L" V        end;
        next;
8 P1 I7 m# ~# `! Q       
# S9 i' n$ }2 K% Q, H$ ~1 p        dx:=0;
" Q- g5 d, n. B        dy:=0;
        for i:=1 to number_of_machine loop
- i) V# s( P  R4 }" U                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' j) F& {" C1 l$ E) A7 M5 j                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
6 z$ p: g5 O9 U/ P                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
# K& R5 v; x) S8 N3 v                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
( V( G  m  S! G: w# a                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
1 |9 x) a$ J6 c0 O+ z2 O% {1 N$ P                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
5 d8 U) u) b% E7 g                        --end;
& t) x2 b4 D; i+ o# [6 l+ x! ~                end;
% D; S+ }% M  d% G  U; s; t4 W                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
6 [, n: g8 o3 v: {. |% ~  k: q- W9 a                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
* l8 M. V5 i1 C  W$ }. d9 Q6 T            if activityspace[2,rows]>dy then
$ u( T; R- W; {4 g8 i1 i                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
, W# ?3 F$ b8 v: s, k- ~. f4 `7 F                /*if mark=true then
                ct:=activityspace[2,rows];
: r/ g5 a5 ~2 P, G% _( _, {, E                        activityspace[2,rows]:=activityspace[1,rows];
- L$ t# N5 ?; R1 V  g                        activityspace[1,rows]:=ct;
& Z! G* c/ a& H0 `                        end;*/
3 K  A* g8 }9 V- s: Q0 t- ?* [' }        next;
5 c3 v) [; V8 o3 o6 Q' h9 b        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);
9 Y6 h2 l9 r3 B8 e9 C8 P* M  y2 K* b        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;
; K; \+ B9 U4 c0 j% t' \& @+ L        for i:=1 to number_of_machine loop
  F8 o* e! o' L2 J! z" T3 Z                for j:=1 to number_of_machine loop
% V5 M! V' B, o& I9 d, S                        if j=i then
1 W* ~0 U4 w. g* {; s. W                                d_from_to_chart[j,i]:=0;
                        else
! U) \" z& i; A" E/ H. w  b' q                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
9 m, ^' a, O& _) ~                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
* m6 ?* ~* `" i: g. ^8 r, d% n                                d_from_to_chart[j,i]:=abs(dx-dy);
7 J1 ^' s. m: [7 u                        end;
$ d5 I/ j0 T% {' ]9 C: z                next;
        next;
( ?' r8 e6 p/ G- o% W3 X4 k       
7 Q) p1 N5 D: a- p' t  b        lines:=0;
        partstable.delete;
% f6 ?+ `, @7 J5 z       
/ J6 J9 y& T# a( ^* \        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
                        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");
$ w$ C8 ?# }. z: l7 j0 |# \                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
; P. T0 J" e5 M                end;
        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;标识符未知
        machine.proctime:=5;
- O6 U* J- g5 E: P9 w- j& c+ f8 E        machine.label:=activityspace[0,rows];
% s# {1 Y3 J. o- w' O        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
! `) ]$ |& Q! }. W/ S7 c        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;
0 t6 V2 F" V' P8 ]7 \5 S4 i        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
; S- q* x  d" Q8 D       
6 ?5 V! Y4 }8 }% j5 L        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;
) ]+ O: {5 r8 z6 ?current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
9 k2 |5 \: z, a! _( |next;
end;