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

zooey

is
        mark:boolean;
8 ^/ ~7 v0 s. l/ w3 t        dx,dy,ct:real;
8 n$ |7 k3 f+ X" H, D& C    i,j,rows,lines:integer;
* y+ b; I; R. v; R9 `8 U( U. L    machinename,bufname:string;
( f7 R% ^: J+ }! C5 o    machine,buf:object;
do
2 |5 m+ V+ q+ F- B! c6 u        current.eraselayer(1);
       
' g3 J9 H$ t( [8 A        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
$ W% ^( J" @" R4 H4 H$ h                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
8 E0 u# p  w, l! w: i* t" v3 @                        print"no";
                else
                        print"cancel";
1 i! G4 {: S8 y( T$ r; ?                end;
                eventcontroller.stop;
% u2 ~' A: z8 u) Z        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
& t: R, a4 z) A6 |        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
# |+ x. F  W) P9 {( v# x* V                machine.deleteobject;
2 l0 k) Q- u+ R, V- \        end;
        bufname:=sprint("BF",i);
  N5 }: g( e8 U        if existsobject(bufname) then
, x! z6 L! @& u+ [                buf:=str_to_obj(bufname);
' n8 y; S; U" u6 N& v                buf.deleteobject;
) R% \) M( |) Y8 k1 Y, G4 S        end;
/ }! D' [* C$ e+ z# c0 [/ g        next;
: E) J/ j  L, @1 ]* f       
& I# P) u  V& _4 p        dx:=0;
# F4 }" j* R: `1 B% e+ x3 e9 V        dy:=0;
        for i:=1 to number_of_machine loop
" E" T0 N3 P, u                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& Y( T; W+ I! e8 f$ A                --mark:=false;
5 c; ]# T# S& \) F9 {                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
- ^& ~9 c1 M! c3 g2 Z( c                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 j+ L. Z+ a% o                        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];
$ d# K( }1 d# D+ ?                        activityspace[1,rows]:=ct;
  {# N! F( W# H  G1 w7 t                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
1 ^! K  R" i6 D5 V- Z                dy:=0;
# m. N/ ]. ~. d  N                        --end;
                end;
! e( p$ y* w& Q% Z; d                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
: s! `: Z- j+ g7 {, t& g                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
2 s2 V5 I& c% m3 [) z. C( x            if activityspace[2,rows]>dy then
- n9 A( Y4 {. y* p, U" R& D                        dy:=activityspace[2,rows];
2 P4 G" [( X4 i9 s1 a3 @                end;
                dx:=dx+activityspace[1,rows];
4 \# R, X9 u) I/ f7 j                /*if mark=true then
                ct:=activityspace[2,rows];
% S9 Q' N$ X2 c4 S  g, G0 `                        activityspace[2,rows]:=activityspace[1,rows];
4 {: f. V  S8 I2 Z8 K                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
+ P2 f' v7 N% f6 q1 Z8 e        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);
) j1 c/ `; F) L1 F5 O7 z0 P- w        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);
1 V' H" @; _9 J! _       
        rows:=0;
        lines:=0;
3 w0 A; p) u$ i; c, `2 X* N  s& ?        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
7 r& h- c4 W$ T( }& G                        if j=i then
% v; }- g  b  k* J+ L: d, m, N4 y                                d_from_to_chart[j,i]:=0;
( P+ O' Z( Y: z: g  q6 |! [# Z                        else
" t+ D' c- [5 c                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
3 w& ~, M2 c" q5 H       
9 M( n, T0 k# k0 b9 l        lines:=0;
        partstable.delete;
8 }9 d8 |7 U- @       
* \8 L4 x: l. j8 @8 ^2 C( M        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; l2 B4 f5 g* z9 `                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
6 Y$ c+ h8 [5 N. b9 }$ ^                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
& Z) ~: }- u" a( ^+ }1 z                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
$ }$ l, ~7 F4 Q- `" k1 d                        partstable[2,lines]:=w_from_to_chart[j,rows];
% L: z/ _" U- c0 g                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
6 Q" b3 D* I8 T                end;
, d- y5 |* f: V! x( J' ^        next;
        machinename:=sprint("M",rows);
# ]; Z. T8 ^* R# O9 y7 D; W5 b        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]);
$ R+ f8 o/ ?) e& c+ s        machine.name:=machinename;标识符未知
. j  z3 z% x2 o/ l! x! j& O        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        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]);
! b0 a0 t3 {$ ]/ N( [3 ^        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
. D# {# `1 R- {& U        .materialflow.connector.connect(buf,machine);
! T( L% a* ^6 Z, F* |$ ~       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
( R# W% z; B6 `0 J0 jdy:=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);
next;
end;