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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
5 z! k# \" U- h1 E0 o/ j    i,j,rows,lines:integer;
    machinename,bufname:string;
& s( y0 j( P# j$ W    machine,buf:object;
! O3 d6 r8 h# n1 H7 Ldo
6 h6 G# f1 Y  m/ T8 N$ Y        current.eraselayer(1);
       
) @1 [$ b1 ~7 P3 H5 M        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
* h; h; `( }7 p& f! Z                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
3 w4 y8 F# `8 I  J3 y% o2 h                else
) |+ Z+ q. B8 m$ y, [/ ^3 N                        print"cancel";
5 s6 N' D5 r  x# j' C# ?                end;
2 G1 J) ^: O" P7 e# K3 v. C4 T                eventcontroller.stop;
        end;
       
( O3 D1 c& r$ z: ~4 o  O        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
1 r. C6 v4 M# r* m; E, H" x$ j                machine:=str_to_obj(machinename);
. y, `* m# v4 r5 t                machine.deleteobject;
        end;
: g4 u  r0 K; |5 S- U        bufname:=sprint("BF",i);
  ]+ O6 i& q/ S        if existsobject(bufname) then
- |: z& ^& X0 |/ |# s' \                buf:=str_to_obj(bufname);
                buf.deleteobject;
3 f7 e: e. K2 }, l: {        end;
        next;
       
        dx:=0;
        dy:=0;
        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]类型不匹配
( ]7 v: x% G  y6 F8 s/ G                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
% A+ S: q6 R: c( G1 t                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
2 @! o( R, p0 z- b) I                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
2 W; v; \" g. E1 B. y- M6 I+ v                        dx:=0;
1 u3 n9 G' J6 N( P1 Z/ |                dy:=0;
' h  ^# t3 h. A* t* J; y) D# V" _                        --end;
: \0 n# l: f$ p. ]5 R$ D                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;
5 @  y  g7 m* B) o8 I            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
2 w. t: k6 [& i) K+ l' Q6 c/ h6 _$ [                dx:=dx+activityspace[1,rows];
" i5 b% i6 O- F, l  U                /*if mark=true then
+ N6 w9 Y& w# I* n* z                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
3 v! d% }! N7 y        y_max:=y_max+dy;
& \# _- p4 l* K9 L        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);
       
4 F3 v% T# ^3 a: g        rows:=0;
1 q/ g3 J( L& u        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
; }1 @; A( Q9 H1 _, t: m                        if j=i then
$ `+ V. l, L; i* G% \                                d_from_to_chart[j,i]:=0;
                        else
, a3 k( D( O5 ^( }; ?6 R3 ]                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
0 ]1 O) n. E7 s' d+ S& @                                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;
  |# H+ s9 j7 `3 Y: ]! {        next;
; U8 J6 c7 i5 h7 m4 q4 {! S$ f       
4 n  z- u% t( S# ?6 Z% ~, c! v        lines:=0;
" j- z  K- z7 f5 ]8 }0 c1 {$ h        partstable.delete;
, J  y6 Q6 H- x9 K. D       
) `) t6 k9 O& V& @  I% d* u$ }        for i:=1 to number_of_machine loop
, r2 B2 S5 p+ Y1 D                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ f- D6 J! d$ g) P9 m5 @, C                machinesequence[2,i]:=rows;
& E9 j$ K: a! ~$ Q                for j:=1 to number_of_machine loop
, ^: h- \+ V) M  v+ T( p                        if w_from_to_chart[j,rows]>0 then
" l# V! F$ W* Z) N3 ]; A2 ~, l                        lines:=lines+1;
- n5 @9 R) q( R. b+ I$ y                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
4 F: W* `* E% g2 B  ]                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
3 ]7 F" ~6 U' k. Q# A+ V                        partstable[6,lines]:=j;
                end;
* R1 T" m5 ?, E/ N7 f3 O7 Q& ^        next;
        machinename:=sprint("M",rows);
+ S& A& s1 m' F8 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]);
  ?/ g/ I  ]/ Y! t        machine.name:=machinename;标识符未知
        machine.proctime:=5;
8 d- b$ l) |* w; [9 [. y        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
% q4 Z( k' G$ n        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]);
$ m* c- U# c, A+ A  J        buf.name:=bufname;
# o; Q3 r: H7 f" s        buf.capacity:=5000;
        buf.proctime:=0;
) d# M6 M- \7 d        .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+ Q0 ]% a! J. Rcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
' p2 R2 ]4 O7 y; W6 l' aend;