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

zooey

is
/ D8 j" Q8 B! |5 L$ k8 Z        mark:boolean;
" S. x: e* y; z. m0 Z6 d& F        dx,dy,ct:real;
. o  X* ]. ]# H+ G" j+ L3 t3 X    i,j,rows,lines:integer;
" `5 Z) E4 A# ~, s) b0 J% g9 [" w    machinename,bufname:string;
; `9 g! u3 v/ O" O2 h    machine,buf:object;
2 `# s! f% C) ?' A3 Ddo
; J8 I; C; z# G1 P        current.eraselayer(1);
       
- p9 J/ N* U# l& _/ j        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
4 q0 J2 m5 @( y* A4 s$ F                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
  y2 t4 |) ]& ?; T* k                        print"cancel";
/ E: @1 \$ s9 P( N9 w, N6 F                end;
. z5 x( k+ R% \: f9 I+ e                eventcontroller.stop;
( d4 H( x) ?5 ^0 V0 A        end;
# b1 m, y6 `* G0 t$ Q! G       
! k) r$ f* R" p. ~4 k8 i- @        for i:=1 to number_of_machine loop
8 o* {) U" b# a        machinename:=sprint("M",i);
, c( Y# S0 @/ `. v7 |        if existsobject(machinename) then
9 h( u4 u( U$ T' j" G                machine:=str_to_obj(machinename);
; m2 t" U7 v6 W  }                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
& ~2 }7 l% e& F4 a' ^                buf:=str_to_obj(bufname);
4 u- u( ^& U# Q; ?- `  [                buf.deleteobject;
        end;
4 l% o3 n1 X% G        next;
       
: _. ]  q* y( t        dx:=0;
        dy:=0;
) O1 `6 g: T; N7 g3 f        for i:=1 to number_of_machine loop
* h; S9 k: t/ L$ ~$ Y# O# h                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
* @& Q  G0 m( k" a                then
$ o5 X; j- m! B4 _( L) o9 ]                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
4 W* i: A( g  F/ v                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
% e' g& I: m7 t4 s                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
; w/ k( `7 K2 z: t0 Z  p# N                end;
! ]+ I5 q" a' b* [6 G; @                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
  b8 C9 E& [* m0 u                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
& E! s1 V; N* z, ?1 s0 x6 M: X                        dy:=activityspace[2,rows];
8 Z5 |3 g' d3 u4 j+ M: \' e$ `                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
% Q/ U; }5 Z2 {5 q+ H                ct:=activityspace[2,rows];
! V* b# }- B- p* g1 q) x! c/ t: i8 b                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
* d0 `2 n( }( S( Y        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);
' Y  [% N9 Q- ]: X# E, A        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);
       
. J4 F: @3 k* C3 o8 N, O# h        rows:=0;
* F6 N4 [4 }+ L        lines:=0;
' h6 A6 I+ J0 A9 a, x, `( Y5 e  X* K        for i:=1 to number_of_machine loop
9 Q: H+ S1 p/ [                for j:=1 to number_of_machine loop
                        if j=i then
% b# J$ ?4 d, ?7 R6 X' X& T                                d_from_to_chart[j,i]:=0;
) D! M& S* p4 ]7 Q5 D: D6 F# {7 }                        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];
. K6 ^, R: ^' K, z; ^! b; S4 ~* E9 x                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
' X) s, c' R+ c6 y/ @        next;
       
        lines:=0;
        partstable.delete;
# b- z. r& Y' B/ d6 R7 o       
        for i:=1 to number_of_machine loop
: i( V0 o  m/ X1 J                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
1 d8 @1 p+ \' y7 D                        lines:=lines+1;
8 f5 i8 l- k. ^  H% m$ m                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 j1 g* h% I4 D8 @$ L1 b                        partstable[2,lines]:=w_from_to_chart[j,rows];
" S. u, ?' ^6 h* `; g5 Q* I                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
  N8 Q( e1 j' }/ `, l% l* ?        next;
  v0 u, E( i5 }- E: V        machinename:=sprint("M",rows);
; A1 O8 S5 ~. Y5 w2 Z        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;标识符未知
' B# W* }& _3 f' {        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
+ a, W: I1 t/ E: i        machine.exitctrl:=ref(leave);
       
        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;
6 g; ]4 [5 e% X/ K7 w9 S) ?' s  w        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
( Q1 {0 x0 {% M: [; Jdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
  ?) a$ Y4 a, B) r- L# ]current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
6 T' B+ }7 P  ?0 C4 T+ A- anext;
end;