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

zooey

is
& Q$ @8 v+ g. M3 l+ p6 m2 U2 y        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
' }! v; p& n4 ddo
( A( s2 c: p) X1 Z3 A        current.eraselayer(1);
/ B2 N: l1 Q5 r/ R( ~. ~/ Z1 a0 r6 G* ^       
9 V4 f1 t% ^5 u, p5 ?        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
- ?: Y5 B5 b% n4 g+ C, {                when 16 then
, J) F8 |- z5 N+ ~, F6 d                        print"yes";
* p- q* _  K: {* ]( |' t                when 32 then
9 \2 c1 Y) u# q$ X. k1 {* D/ C                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
; N  e/ j0 D; R) P# k; w        end;
  G4 X4 l2 q: Q& f8 B       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
0 @0 n6 h  M9 ]% Z8 O$ M        if existsobject(machinename) then
4 v7 v2 u. D! Y8 T# P8 N' r, u                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
) i4 Y- Q8 G& v                buf:=str_to_obj(bufname);
- k* |1 P2 c: k3 {6 J                buf.deleteobject;
        end;
5 U' A/ S0 _# k        next;
2 s. v; @/ u7 ^; @9 X       
        dx:=0;
        dy:=0;
$ F9 J5 H9 T: t* v' m( |        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
! l' e+ d* X& s2 C( O! Q                        /*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];
+ _# O2 t; b7 h4 w( [% d                        ct:=activityspace[2,rows];
! p* e# @) u6 ?! O  m+ G; _1 V                        activityspace[2,rows]:=activityspace[1,rows];
1 n$ w* A8 K& N( G7 @                        activityspace[1,rows]:=ct;
7 C1 r  k0 ^, I% V1 A8 }* Y8 ]                        mark:=true;
3 I+ f( d1 b4 Y; L8 u4 }                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
. }9 s7 r5 L: g) |4 M                dy:=0;
                        --end;
6 H+ ?7 Z7 r  l. J' W4 j                end;
- j1 U4 ~& C+ U5 N" \& P- m' C, {                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
! R$ g. f* X' ]( ?6 w# E' |+ V                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
7 J1 D2 S" P5 |            if activityspace[2,rows]>dy then
" L1 }, E. K  e/ Z$ e, H                        dy:=activityspace[2,rows];
4 C/ f/ a2 o2 ]                end;
9 M* k( u  j9 b; P' W! c                dx:=dx+activityspace[1,rows];
# J1 {  T; y2 ]8 F8 z                /*if mark=true then
8 w9 f2 l3 L+ E: m0 V: S" P# {                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ w( \5 M% w6 ?' z                        end;*/
! D* o: R0 ]8 G  Z# v        next;
        y_max:=y_max+dy;
) [- e- g- M- G% |$ I        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);
. M8 v  E" O( B0 T' F0 ~0 x        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);
$ X5 A. `$ c2 @3 R4 b8 Q, q       
        rows:=0;
6 |2 g% y' f2 J5 ^/ J3 }+ c        lines:=0;
        for i:=1 to number_of_machine loop
$ v; f; }  W& n% |& x/ D, ]+ \                for j:=1 to number_of_machine loop
( b* b; k% C' Z# }: v  f4 A                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
3 \- P* y! x7 J: w, Q5 a5 b                                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];
# a: x) F9 M$ K, K0 O                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
1 t" h% Q# [8 T/ s4 j                next;
% Q0 I8 x( ~7 C' @( ?9 L        next;
; d% H3 ~* L/ ~. k- z9 w& d- c       
        lines:=0;
        partstable.delete;
  t& n. d1 }; |! d       
6 I5 r7 O2 |* l' {+ `        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
2 _9 ^* U- g4 r* P' Q1 N                for j:=1 to number_of_machine loop
. v" q( ]7 Y6 L9 h- t& D3 R" q' i                        if w_from_to_chart[j,rows]>0 then
7 K% w! @4 c( S+ Z* T8 L                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) Y7 R/ M. c1 V% I% s                        partstable[2,lines]:=w_from_to_chart[j,rows];
% S5 J$ c# O3 G" j- [% X9 F                        partstable[3,lines]:=sprint("parts");
1 ?- @. S! L, X0 R# n                        partstable[5,lines]:=rows;
5 k1 \7 o8 I& U0 g( e" q6 D: E0 P                        partstable[6,lines]:=j;
                end;
. l1 C& s' K2 `; R5 I& c; y        next;
        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;标识符未知
* f$ O% Y4 m1 [4 \$ V& v' }2 J        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
3 @9 d! t) V8 Q9 U" x       
        bufname:=sprint("BF",rows);
: s" u9 M8 b' E5 y4 U5 m) f        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]);
. P- A* P. g3 f2 t3 B( k5 F        buf.name:=bufname;
        buf.capacity:=5000;
* c( p# S/ i2 `8 D3 L2 c        buf.proctime:=0;
) G- a1 @6 d( [- v* Z+ b        .materialflow.connector.connect(buf,machine);
       
! O2 F  P$ K  e: O! U0 V$ }        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 B8 S2 F( Y1 X7 kdy:=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);
- B* v. [- Y: I( }5 k0 \1 X( M/ rnext;
' o, e6 o3 d9 v+ F* t. aend;