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

zooey

is
* r$ H: A8 L8 W2 o5 M        mark:boolean;
        dx,dy,ct:real;
' o7 r5 Z# b$ u/ A& h; @: X    i,j,rows,lines:integer;
2 V5 C3 b7 }  t5 k) W1 S, q    machinename,bufname:string;
    machine,buf:object;
do
1 J7 X6 Y$ Q# [, y) Y$ L# P        current.eraselayer(1);
& V; I" F" m# ~$ ]       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
# ^" W; H7 M, P! [, w                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
. {( i  e% ^& D+ ?                when 32 then
* Y2 K2 u. y+ h                        print"no";
* [. L" P; {1 S2 K$ N/ s                else
                        print"cancel";
/ s8 P, C5 w, E; r                end;
. I+ i/ Q$ p' r, U                eventcontroller.stop;
$ R- S% X5 a8 j5 d1 s        end;
       
2 z6 c6 [5 D) R/ t: F3 \4 C        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
- R* z$ p" o+ l/ o- i* N                machine:=str_to_obj(machinename);
) B- }5 d* f* L( ~; ]" W9 d" C- E5 P                machine.deleteobject;
/ x$ I% E$ h/ V5 j        end;
2 x: }: C& N' K, R0 C1 r0 w  v        bufname:=sprint("BF",i);
! b; l$ y* {! e! x! u/ g$ w( `2 C        if existsobject(bufname) then
/ p% W9 Y0 y) D6 F, K, y  `                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
! S9 `' t' p5 a  Z2 I: u4 n        next;
# M; u7 b, t: Q) s- u2 w       
& i) R! ~# w; ]. t        dx:=0;
0 s9 n2 G: ?# \" f- l        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
: I+ {2 {# g' N4 P& E" L                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
  T. S2 ^9 v4 D                then
# g( \6 E( S( j, L4 |" {                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
# \9 p1 E  n8 p: v                        and activityspace[1,rows]<(1.05*y_max) then
2 c+ z- _- ?7 W/ R# K* A3 u+ t: v) S                        print activityspace[1,rows],",",activityspace[2,rows];
% X( g  k8 z; e                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ k9 j' U0 {3 F# M# G                        mark:=true;
                        else*/
1 ?8 n5 l( ?/ z$ }0 z! ?7 a                        y_max:=y_max+dy;
* ~, k7 a* S0 p, k/ k1 s# R                        dx:=0;
$ L" k( }$ T' O: T# F. p                dy:=0;
9 ]0 v1 F$ [4 J# G9 s8 P                        --end;
% g  G  e: X7 b                end;
! ~7 K8 ]' w4 x: s2 d                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;
+ l& \+ F+ i, B, o+ G            if activityspace[2,rows]>dy then
% X% ?9 j8 C$ {+ I0 ^, d                        dy:=activityspace[2,rows];
                end;
0 s! j, K7 s+ P                dx:=dx+activityspace[1,rows];
( d: F( ~6 H  v2 l8 L" r7 Z                /*if mark=true then
                ct:=activityspace[2,rows];
" |. L, v9 r' C. B                        activityspace[2,rows]:=activityspace[1,rows];
& v# [2 G0 S. e9 z! Z1 t                        activityspace[1,rows]:=ct;
2 V$ h: P/ }9 J6 p/ F& _                        end;*/
        next;
* i4 j/ C3 a3 r0 d. ~6 ~6 x9 _        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);
        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
7 l$ n  Q! E; B/ P; I                        if j=i then
                                d_from_to_chart[j,i]:=0;
5 z& v8 n! ]) u, n                        else
+ b  g( c/ Z# F# a& K                                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];
: P7 Q$ v/ v/ }1 q) ^- X                                d_from_to_chart[j,i]:=abs(dx-dy);
' c; V  W+ u0 t3 V  _0 ?                        end;
8 J# B2 q- B% ]2 J; P6 G8 E1 e) [                next;
        next;
! Z/ [$ J$ S0 W9 m- b  O/ k; j4 c       
        lines:=0;
        partstable.delete;
       
% r3 c7 b* @& e+ `8 E9 _  B, a6 J        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
/ @% t) D/ O! t0 v  e2 x* O1 y9 ]9 J                        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");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
2 I3 W) ^( p2 q, _5 |+ T- s% r* j        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;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
. }; L8 C, w/ z2 Q. ]: Y9 O5 U: I        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]);
        buf.name:=bufname;
, [& N: }. l0 s$ o% R7 [        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
& [7 C7 @* s7 Y7 p" K       
8 a2 {3 V) m6 y  J* u  Y8 l2 D( M        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);
( E1 S! ~. q" s2 y; Tnext;
+ k. C# j/ B% V) A( l( ?8 @end;