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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
1 |+ w$ |, K/ w& Q3 ~" J7 O    i,j,rows,lines:integer;
9 l* g! B9 F* p- ]- u. q    machinename,bufname:string;
    machine,buf:object;
do
4 L5 `7 V& m* I        current.eraselayer(1);
& a5 y) A# s9 p) r( E' m: A       
' y9 e/ E; o2 d/ b8 U+ u! M4 z! u; \        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
0 S' }) ~/ \3 A! p0 S0 W                inspect messagebox("设施数目不对！请核查...,",50,13)
- C. c) K( W' ]' S, z                when 16 then
3 T' m6 Z& j9 W! c                        print"yes";
! e4 E7 ~/ |5 j# b( D* D1 q                when 32 then
                        print"no";
                else
                        print"cancel";
* W+ y" c' t: _                end;
1 A! [, P8 W  {7 s2 g! H- a                eventcontroller.stop;
( X* H9 ~5 ]: }! \, r+ Y        end;
       
# `3 w( q- R; \0 m        for i:=1 to number_of_machine loop
6 ?! t# y9 {2 o) b        machinename:=sprint("M",i);
8 }- F* o0 k( }% V% v/ n- `        if existsobject(machinename) then
6 b# |5 R7 W$ G( X& v9 O! y                machine:=str_to_obj(machinename);
                machine.deleteobject;
- ^# A5 R  F% G1 t/ W; T- t) W        end;
        bufname:=sprint("BF",i);
. ]; Z+ s9 T' J) ]: w  n) }        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
3 @* ^7 ~7 K, x% L  s# ?                buf.deleteobject;
        end;
3 @3 H* v4 Z5 {8 \' [: @        next;
       
4 G6 O! g) I/ `* V$ K0 Y; ?- |# G        dx:=0;
- z4 Q$ P% J% D" I* w3 U        dy:=0;
/ e/ `. T- [8 a) |        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
9 m2 V+ C) a& N( \" g9 p; l                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
( H% P$ G# P& c, \6 ]                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
4 R4 a2 g, c, w; T5 y" r                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
' \7 ^4 N$ G2 [: R% t6 ]3 H                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
7 `; @' K0 D% F! ^( C/ n                        dx:=0;
) N) I( k% |1 o, N" _, T2 G* V" [                dy:=0;
                        --end;
                end;
2 d$ \3 }( j4 b                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
+ W% C# t0 b1 L' {                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;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
7 a+ T+ q; i( b8 A7 G3 L$ d                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
- S& d7 D9 Y% J% [" ?                        activityspace[1,rows]:=ct;
                        end;*/
' L' G) H; {( o% \. ~+ a" k7 A        next;
! C: ]% O, v# ~* Z        y_max:=y_max+dy;
8 x# P( V; U. j& F' b* @$ k+ J        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);
  A' a3 }3 m& Q8 _       
4 k! H$ M0 X$ M1 @        rows:=0;
* ]- I: K! `8 ^. u' d' q, v  k        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
  W8 n/ l" o4 Q( R7 j  C0 q. r+ t                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
/ w' \1 e+ V% |% W. e  O/ i                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 z. }) m7 k6 U' g. c/ \7 X                                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;
                next;
3 s8 l4 m( A6 e- s# H' D  [        next;
       
) o' m4 {6 A8 L2 Y# Y        lines:=0;
        partstable.delete;
; w7 ]7 ?, j$ e: E       
        for i:=1 to number_of_machine loop
! K8 s* e5 C( c                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. ?2 L  W, i; W                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"));
. q3 X' W# |0 Q! |                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
8 r( u0 N- i! |                end;
        next;
        machinename:=sprint("M",rows);
$ R6 h& d# p% R' d7 d; y        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]);
- _; R6 |) i$ y) t  l6 y/ ]  H7 `- Z        machine.name:=machinename;标识符未知
        machine.proctime:=5;
2 u8 E6 v+ s. b+ C8 V        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
% O8 l2 f7 S/ ^1 d% y        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]);
! n- S+ W1 @$ s4 R5 B4 @$ S; _- G* f        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
5 |5 {6 k0 V! [! `1 g/ g        .materialflow.connector.connect(buf,machine);
! }. R9 Y* V; u6 c# m% Q       
        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);
/ \6 X; G7 P3 w( p- Gnext;
: j# |/ h: Q4 T; F$ rend;