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

zooey

is
* T* l0 t  d* ?7 P3 m' q, o        mark:boolean;
+ h# X$ o% B" C        dx,dy,ct:real;
    i,j,rows,lines:integer;
+ m. U6 w5 l$ q    machinename,bufname:string;
    machine,buf:object;
4 A; @0 Z. T- ado
% |  u3 _, C" p        current.eraselayer(1);
       
9 k$ R# h6 A7 i8 b        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
# L  U! Z: _! O( @% T                inspect messagebox("设施数目不对！请核查...,",50,13)
, C2 V0 s" S3 B8 R! p                when 16 then
                        print"yes";
                when 32 then
+ _2 t& }: k# Z/ `                        print"no";
                else
                        print"cancel";
0 X% s/ P3 h9 s: V3 F& g& Q                end;
+ P; z, ~6 E" f                eventcontroller.stop;
        end;
       
! L, V" m3 E+ e$ ?        for i:=1 to number_of_machine loop
1 V+ z$ m  w* b, R% q        machinename:=sprint("M",i);
4 }$ e6 d' `9 z  k1 Q" z        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
# \8 m" a5 z$ K) i$ A* s                machine.deleteobject;
: u- X4 z$ G' }8 z2 q3 r6 G0 v" g6 u        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
0 u" a( o) m" J+ h* O* {. H9 e& S- \                buf.deleteobject;
; J& F9 M" Q! y2 l0 b8 E        end;
5 s( t9 O: _# _6 ~( @/ i6 @" c) L- e        next;
' R. {7 g% R1 Z) f  Z       
        dx:=0;
        dy:=0;
- t2 i3 W; D  U- C& t' o+ m' V( v        for i:=1 to number_of_machine loop
% j1 ^0 l2 p9 s1 _- w3 H  t                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
4 y% D3 u$ b( Z* c0 A/ k# ^$ m                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
) z3 D1 G3 b! ~* r6 N8 ?                then
% r7 H2 s% S- Y9 _5 n                        /*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];
                        activityspace[2,rows]:=activityspace[1,rows];
! ?6 I7 [- Y0 X  G7 U' ?                        activityspace[1,rows]:=ct;
                        mark:=true;
1 M  x* M3 o) ?) r                        else*/
' t; ^, @0 k( U; F# O4 g' ^                        y_max:=y_max+dy;
8 e, [; A% C: e: q  y# N1 u                        dx:=0;
# r7 @9 s) Y! |2 y2 y; ^) }                dy:=0;
                        --end;
& o/ k1 f' ?$ n( m, Q6 n                end;
( U& `2 }- \  I. f" V# E8 Q                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; [) p7 B( Y7 R5 z5 Y1 g! F                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
* A! Y0 D: s) S* p                        dy:=activityspace[2,rows];
                end;
& z6 n$ E2 R0 G, ?! u                dx:=dx+activityspace[1,rows];
4 s, `; B, C% O                /*if mark=true then
                ct:=activityspace[2,rows];
2 X1 N4 T( t8 n& S7 y6 U3 E                        activityspace[2,rows]:=activityspace[1,rows];
6 L" C& H" M1 x                        activityspace[1,rows]:=ct;
! I' [/ q. q& C' r# H$ l                        end;*/
        next;
        y_max:=y_max+dy;
& g5 A* v8 Q; r# l% l6 g        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);
. X# \3 J! O6 ]4 \        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);
! t8 O* O% t& C- b6 W% B       
        rows:=0;
# i0 [6 @. c9 Y5 D% b        lines:=0;
; [$ C5 J9 n3 U( [- ^* \        for i:=1 to number_of_machine loop
/ p2 Y' O; n2 ?" S                for j:=1 to number_of_machine loop
$ m$ Q- g% R, ?+ ~8 W+ V( O- j                        if j=i then
                                d_from_to_chart[j,i]:=0;
" r0 D+ ~4 L4 i# b6 O2 s                        else
& F6 w) q7 c& }& I$ j  B# g9 N% H                                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];
0 z9 j  Q/ d! S                                d_from_to_chart[j,i]:=abs(dx-dy);
' ~, ?) M8 R: x, Z* s8 t' L                        end;
                next;
; \! p3 P0 S  n        next;
       
        lines:=0;
3 |6 l" L6 t7 R) I7 f) K        partstable.delete;
       
        for i:=1 to number_of_machine loop
; s' m2 k! [/ F                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
+ \' q; \- R5 R7 X* E* K% S* |                for j:=1 to number_of_machine loop
) ]4 N' S7 ?( O                        if w_from_to_chart[j,rows]>0 then
9 _: c3 o1 S5 ^$ r                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
7 S% s4 Z- T2 b) Z! ?                        partstable[5,lines]:=rows;
0 G) `. y. f7 y0 ~2 [                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
# v5 G9 d. ]% _1 [7 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]);
        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
6 }, @% m# j1 [9 z! D4 G9 [+ t3 l# m       
0 x3 v# S/ B4 K& h$ x; e" I+ V$ a        bufname:=sprint("BF",rows);
$ n1 C1 v. c" ?4 i  R0 v" Q        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;
        buf.capacity:=5000;
% O: r, o- `! S7 b        buf.proctime:=0;
, Z$ C9 h4 y: b, J: j2 W7 ?9 W        .materialflow.connector.connect(buf,machine);
       
. r5 _: n, ?9 H        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;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
7 [0 S$ D" S. Pnext;
3 r8 d$ M8 K* E& g/ ]2 Z$ Lend;
5 Z% }! r) D( V5 q% ]