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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
' X3 g1 U0 q5 e& P    i,j,rows,lines:integer;
+ I) ^* N& i* y: @  l    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
! X$ a% u0 h- ]3 W       
        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
                        print"yes";
                when 32 then
                        print"no";
! F$ X1 W' T  x. K# \# ~, r* g                else
1 s, i+ ~* D: `, _                        print"cancel";
                end;
                eventcontroller.stop;
8 q: ?1 t8 N/ |4 U( S! ^        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
. n& t7 Z2 A0 }; z1 d4 ]4 ]7 I# T                machine:=str_to_obj(machinename);
( x4 f9 q! \2 b                machine.deleteobject;
3 p6 f( X) X& v- _6 I/ B        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
3 n; y% Z- T, N# i# @7 n                buf:=str_to_obj(bufname);
( N- n$ o- ?7 U5 y4 A5 F                buf.deleteobject;
6 j2 W. t, e; q; ^; L, G5 h        end;
3 Q: M9 y& s% P% I        next;
       
        dx:=0;
6 n& w' s1 A, o( V) {        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
, H0 [  |, A# }+ {                then
" {1 m8 Q* x- l" b. m2 H4 D4 ^                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  e8 Z! O/ w+ v; `: s                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
4 Y0 u$ {9 @. o4 i. B( z8 W$ r                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
' R" a$ r0 I& B$ H9 a: d( X7 v& W                        mark:=true;
. I3 W" b: [* W( r! Y( q                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
! f3 a- }4 N, W( K: b% F                dy:=0;
9 k/ K  c  Y3 [7 m                        --end;
' g" c2 F/ C% z7 ?2 o                end;
+ q' R* n$ [0 u' b' s                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
                        dy:=activityspace[2,rows];
                end;
. i& O' P0 `# N/ ~) `9 x3 e+ a                dx:=dx+activityspace[1,rows];
% v% k7 K- a4 ~% C1 B. `& a                /*if mark=true then
; r& o, R3 a% b2 i+ p) q! `                ct:=activityspace[2,rows];
) d# ~$ b7 {# R2 f                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        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);
5 B' P. J$ x7 s) z# R% e0 b9 v        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);
       
/ _+ a! M) q+ m! v+ _' ^2 G        rows:=0;
+ d* ]: ]0 j5 p4 f7 I9 q        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
# ?& C" Y( a/ j) U% e( C7 L; t                                d_from_to_chart[j,i]:=0;
. m% ^+ a4 x5 n+ m' y/ _% }                        else
$ L1 L8 ^' ~2 {  }. d9 r                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 F$ i! i1 t4 Q6 x1 c. S$ U4 B# J                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
4 N' A$ r2 y( \8 D                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
; s8 U3 X, S" b6 _! n% k        next;
       
$ d8 R* f; ]( z2 K* t- }        lines:=0;
  \% w/ ^3 d/ h. W$ F$ ]+ ?& z1 l        partstable.delete;
       
2 x$ o& p! Z2 s: W2 k% X1 @' G        for i:=1 to number_of_machine loop
0 U8 F  H. G# A/ u                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
# a, X+ O& t. [# H' n, r7 b2 U                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
5 @5 B' c# q  b                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
' A  l9 _1 K; p& H1 n                        partstable[3,lines]:=sprint("parts");
( M/ I3 `1 J+ d3 Z/ q/ O                        partstable[5,lines]:=rows;
$ ~5 k" g* D8 f& L. o5 ^6 s                        partstable[6,lines]:=j;
; m" h4 O! Y! I2 c) s7 y! F* a                end;
        next;
: s! Z2 P5 V' h        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]);
6 L9 {* c: w; b! g( Q2 A' ^' z        machine.name:=machinename;标识符未知
        machine.proctime:=5;
# N- \. T; n$ ?  p; p4 E7 J, D        machine.label:=activityspace[0,rows];
0 o+ b/ x5 D3 A' l% H0 {! F        machine.exitctrl:=ref(leave);
* r0 R+ Y" z  z       
* t2 F/ p8 L& i3 B0 ]7 n        bufname:=sprint("BF",rows);
- ]2 ~- a; o9 k( q9 d- ^  u: |) 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;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
' x: K0 @* j3 g! C5 i+ K& K       
        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);
9 e" v# D6 z) f+ inext;
end;