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

zooey

is
, i+ s! ^& }* v  v; i  Z! ^        mark:boolean;
        dx,dy,ct:real;
! k' g3 E! s1 B4 a! a8 k9 G    i,j,rows,lines:integer;
2 u3 @& N/ ^- a# B: v    machinename,bufname:string;
    machine,buf:object;
( t: M/ Y* ^/ kdo
. k; \1 M$ \; T# [% q5 V        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
+ {! k& b% b) l1 z3 A& d                when 16 then
                        print"yes";
7 V6 u. m$ G2 D7 X8 i8 |! ?                when 32 then
                        print"no";
                else
' b! ~! ?! q7 U) L& `8 U                        print"cancel";
                end;
                eventcontroller.stop;
5 B! j: T7 z( W2 e( e+ C- a        end;
       
& y. K8 v9 e2 @; N3 n        for i:=1 to number_of_machine loop
: ~' P! b$ ^, ~( G6 |        machinename:=sprint("M",i);
8 t3 Y  v5 N! Y0 u; L        if existsobject(machinename) then
# r4 Y" Y# E& m6 I+ |                machine:=str_to_obj(machinename);
3 k2 B2 U1 l9 q: Y; p# A- u                machine.deleteobject;
& F" X9 S. E# g  v, l        end;
        bufname:=sprint("BF",i);
# |% M: m* C* U# Q        if existsobject(bufname) then
+ W! Z) ]3 u( Q                buf:=str_to_obj(bufname);
                buf.deleteobject;
# T, C, k1 S+ r  B( }        end;
        next;
       
        dx:=0;
: t" C. V) b4 X2 u7 a        dy:=0;
        for i:=1 to number_of_machine loop
. ^$ D! B5 F! s/ ?4 r- }* \                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 D' S9 T" \3 E                --mark:=false;
' x: [3 o5 H& k- Z( k3 ~3 W  t                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
7 |& q9 G0 b) U2 s                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
* ~" a4 m& C% q/ O                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
3 H$ a6 c( }0 Z  k' d! Z                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
# ]& K$ c. z2 u/ d* F! b                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
  @: k& D6 y9 P, Q                        dy:=activityspace[2,rows];
                end;
$ D( Z% ]8 W4 ^0 U3 g, W                dx:=dx+activityspace[1,rows];
                /*if mark=true then
: _5 D( K: {. G: i/ v5 P* @                ct:=activityspace[2,rows];
% m0 P; v8 ]1 X3 E% g                        activityspace[2,rows]:=activityspace[1,rows];
7 B6 _& \+ ]% v2 q, B% `                        activityspace[1,rows]:=ct;
                        end;*/
! G2 x/ a9 g# s, t1 L2 }- q        next;
; W" V: [; v3 f8 Z! H. I        y_max:=y_max+dy;
0 h$ m: f5 P+ m+ G9 Y( d4 D        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);
# d3 I# w; r0 W       
        rows:=0;
% H+ S$ D1 h4 M        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
2 I2 S4 X* V3 H0 K4 ?                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                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];
# k5 t/ Y' t& t) o- u3 F$ b# u                                d_from_to_chart[j,i]:=abs(dx-dy);
( N& d+ S/ m8 O9 N                        end;
( F$ R3 j5 W  l0 C! w# t" n( D% k                next;
/ ]1 g9 I# q+ T4 W0 O: B% B, h        next;
       
+ R. Y0 c+ X# W0 I# p$ e; W        lines:=0;
8 f5 T* J: J0 \7 l- Z7 a4 x, Q7 E        partstable.delete;
       
: K9 @* U' \! Y+ l4 k0 N        for i:=1 to number_of_machine loop
1 K% G. Y; E/ `# H+ I$ v                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 m! w/ {0 \: w' T$ S                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
/ Y9 u2 v7 f  `. w- l                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
8 Q/ }" C6 g$ C+ B$ c                        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;
  |5 @4 ]# c6 e" y- Y6 T9 ?6 I( `                        partstable[6,lines]:=j;
                end;
. ~7 H& N' p! ?        next;
6 E4 o, I9 o6 u1 C        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;
( Z0 k1 U. l& C, I$ S* n% m        machine.label:=activityspace[0,rows];
+ G4 g  ^7 \0 `9 y        machine.exitctrl:=ref(leave);
       
8 L+ X) Q* n3 I8 y2 q) }0 {        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]);
! `4 [5 c, z: i. N7 G1 A2 f2 s        buf.name:=bufname;
6 J! t* Q9 ~( V# ?% e: C. q; l- b        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
2 B6 c% P( Q& T+ n: ]# Y/ b2 H+ G       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ V1 N. k: c6 ^8 U' @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);
% L5 ?: Q9 M7 L3 r: ]next;
, ?* G  c$ g$ z6 S# ?9 n) w. ]1 |end;