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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
+ i, P% s: ]) p" a9 ^) t% Sdo
        current.eraselayer(1);
/ M9 O* i) m+ q" {4 c* b, V       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
! a0 p+ H2 L3 J                        print"no";
                else
# S4 Y, P  k$ N& Y# R, U6 @                        print"cancel";
                end;
8 H3 ?6 V9 [5 y; P. f4 v                eventcontroller.stop;
! {( `* l# ^$ T4 x3 m$ q        end;
8 x$ L) k) t3 G. N5 C1 r       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
8 w2 D+ ~/ J* v5 C2 P" C  b! k/ y" d                machine.deleteobject;
0 W  z6 E+ g4 L" b9 Z2 K8 h. ^        end;
/ @. d/ L3 _: I        bufname:=sprint("BF",i);
        if existsobject(bufname) then
/ G/ Q! Z! U' I. ]1 `1 R3 s) l                buf:=str_to_obj(bufname);
9 n5 h# I/ m6 B" P& g0 k                buf.deleteobject;
        end;
        next;
) @3 @" P- H: D4 b# _; d5 Z  r; i       
        dx:=0;
9 V8 e2 _" i1 K# Z& `; j6 n) ?        dy:=0;
) p/ Q, a* d' g, F. s0 R        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
) G& ^5 \+ v0 e6 a6 s( @$ h                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
5 T+ R+ K, z2 F4 U' k' o5 E9 C$ V. G: C                then
- S. Y, y: E8 G0 `/ a, Y; Z! K                        /*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];
5 N5 n8 D( m# N8 N- K& V                        ct:=activityspace[2,rows];
( M. Y( e- {; l, L, _% \                        activityspace[2,rows]:=activityspace[1,rows];
2 b7 [. c, a" |                        activityspace[1,rows]:=ct;
$ b' P+ P* n3 i2 H                        mark:=true;
                        else*/
! D( q) P7 a1 u6 V# e7 O& ^2 t                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
+ i1 E7 e# Z. C6 m                        --end;
                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;
            if activityspace[2,rows]>dy then
: N7 p" `+ \6 y                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
/ J! _9 H$ w- q# r# `; g/ D                ct:=activityspace[2,rows];
' w* r7 |9 m; Q' W1 J                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
" H4 L% R" S' p' X( ~( n0 V9 r                        end;*/
/ v! M6 Y6 x# v) W) [" k        next;
9 L' ?$ q8 s% p/ j! |6 ~        y_max:=y_max+dy;
/ [+ X7 i+ w9 D* ~- Q3 t, 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);
# P5 S9 L0 ~" c3 e, F4 g  k" [        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);
       
& G7 E# I: w7 H$ H! w: {9 j        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
5 ^$ c8 j+ k9 f! {- q) A" e                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
1 t) c3 p8 y. Q7 Z( {8 a) E! \                                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];
  o$ }! b4 O5 ~: u7 `" M8 L2 J& W                                d_from_to_chart[j,i]:=abs(dx-dy);
+ W; C* _% A4 d& u" G2 X                        end;
                next;
8 c+ G. i( {5 E) h/ J$ p- ]        next;
  I) d- M! a+ `+ G3 c, K) W1 ^       
9 i7 ]! s8 [$ I        lines:=0;
        partstable.delete;
" H- g& s$ Z9 w       
        for i:=1 to number_of_machine loop
5 L' j; @. Z8 `5 G                rows:=str_to_num(omit(machinesequence[1,i],1,1));
% u; d( I% {/ `* t- d+ Y- T0 N                machinesequence[2,i]:=rows;
: [3 w; U) r/ F$ u4 \8 l) M) q                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
/ y$ n' a* h+ y* H                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; O% a# s1 U" |3 S7 y                        partstable[2,lines]:=w_from_to_chart[j,rows];
+ A6 U8 j3 i; F/ R# j+ F3 H                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
0 C4 G" Q. C% T% C        next;
        machinename:=sprint("M",rows);
1 h8 @3 w# ~& M8 G        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;标识符未知
& V% u1 Q) X1 v        machine.proctime:=5;
) g1 F) Q3 S9 f        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
6 E7 w' m" N0 F0 l: C) e* @" y        bufname:=sprint("BF",rows);
. y1 L  Y8 o& k        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;
4 ?' i+ ~( t( N% G% J        buf.capacity:=5000;
4 W# u2 C- k* k+ R        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
( \$ G9 [. h1 N       
        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);
next;
6 ]; G7 {% O0 Qend;