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

zooey

is
        mark:boolean;
7 R1 z( H) K" B3 Z6 E6 l        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
$ e- I% A3 E$ x! p# U        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
% M, E' [- f; C* J9 e0 ~                when 16 then
                        print"yes";
                when 32 then
6 a: j) L) H) K" D                        print"no";
, Q4 W7 C3 r' n0 B8 N: J                else
                        print"cancel";
, k4 Y  |! }; q# j% }                end;
! R6 ^  p% _# O7 ]9 O, @% c- F" Q                eventcontroller.stop;
! D1 T7 q; ]) p) ]- w7 {* }        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
2 r& m) U% ]; K' z5 P: ]        end;
. D5 n* Q. ^6 n, B$ [9 T+ }        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
6 q# g5 H) C9 ]9 H! ]        end;
8 s1 X' D7 e# n, S1 s. E2 }        next;
       
        dx:=0;
, ^2 N" h+ L$ x        dy:=0;
* T0 ]8 f5 b% b, J        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]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
8 n/ q% O7 a/ V. m/ b' S4 @( v# Q                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
% B: p1 s- k/ m2 V/ [4 ?                        activityspace[1,rows]:=ct;
- i1 ~+ C1 K; T& X# R; S; ^                        mark:=true;
                        else*/
' b3 G( U& Y" z' |+ U6 I. c0 S                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
                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;
% d1 K; ?& H. J; W$ }6 b- i            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
3 J) ~& C6 ~& e' v8 e                dx:=dx+activityspace[1,rows];
! h6 e) h0 a# p3 e+ Y                /*if mark=true then
% T3 I) u$ p4 Z* m/ \# w% r, }                ct:=activityspace[2,rows];
4 N5 v3 d" i7 z0 l* {- P3 h                        activityspace[2,rows]:=activityspace[1,rows];
& q2 Z6 e2 K; c                        activityspace[1,rows]:=ct;
                        end;*/
+ d6 @2 o* ?5 Y& G8 n+ Q        next;
: P3 c$ @, k  _. g) q9 x- d        y_max:=y_max+dy;
$ W  J$ p$ D7 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);
       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
/ f+ P/ |" O0 G' g( k& u5 d: _3 a                for j:=1 to number_of_machine loop
" \$ i8 s1 U! D7 w                        if j=i then
                                d_from_to_chart[j,i]:=0;
! z8 B. i3 u% B4 M                        else
# z0 m2 x9 i6 j, D$ l5 q; p- p                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
( \' g9 A  ^+ `) a6 x! n                                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);
( _) H- o7 o; f7 j+ b0 D$ E                        end;
! q7 D* T, [' G2 u% Q) c6 f                next;
6 b2 ]; I( c3 ~4 ]' B3 \& e% c4 ^        next;
       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# E" S5 p4 U6 Q$ b* q                machinesequence[2,i]:=rows;
6 V/ E9 O* {: V- Z  ^' i% y                for j:=1 to number_of_machine loop
4 @4 y+ S9 [0 u0 }  T                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' ]' A! T; ]6 F                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
. C6 Z  `& }9 g( d! V9 @2 R                        partstable[6,lines]:=j;
                end;
  M+ a3 F- i5 z4 i! B        next;
# c  c& c: O) o4 [' S5 c1 ]; j1 S        machinename:=sprint("M",rows);
; e6 K9 m# Q' Y+ i/ L# T        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]);
" J8 X4 J8 e% h, T; B3 x        machine.name:=machinename;标识符未知
        machine.proctime:=5;
) A! X' v; `; x1 l' y7 y. T# b        machine.label:=activityspace[0,rows];
, C1 ?$ w8 S# e  R" {5 Y! [        machine.exitctrl:=ref(leave);
       
) ]7 e' Z  N3 j9 o        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]);
# u, J. y$ N* E        buf.name:=bufname;
6 x4 P0 Q9 J: |% K# M6 q" V' w        buf.capacity:=5000;
        buf.proctime:=0;
9 s6 p' ^8 i: H        .materialflow.connector.connect(buf,machine);
       
        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;
) k: l! ?9 c/ ~& ~, z1 n5 ^current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
/ ]: m5 J) P, R) ?end;
2 x: A. |6 v. H" `$ R