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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
/ I) ?2 V" }( ?# R: B- D# X# B5 y    i,j,rows,lines:integer;
% c8 L" P) R& n0 X    machinename,bufname:string;
$ G' K1 @* K8 v9 C: w! N    machine,buf:object;
% p% c0 B- [: `. n7 }) |5 \1 Udo
        current.eraselayer(1);
       
% j) `& C: U* u% V" Y+ F: i        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";
: y, q7 T/ z1 C$ {1 ]+ x+ W                when 32 then
8 M, U+ d* ^! I4 z                        print"no";
                else
                        print"cancel";
& A2 C% y: z! i8 f6 G/ e                end;
# V) D8 R6 J/ B) l5 n                eventcontroller.stop;
        end;
5 {: S, S3 l) D' R       
        for i:=1 to number_of_machine loop
3 q9 f4 v: n; H$ w        machinename:=sprint("M",i);
% O( t% a& Y$ ~8 c" t        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
" S9 C1 A1 O! w4 {4 F. Y1 p. g' k        bufname:=sprint("BF",i);
" ]1 D! Q; v1 h7 f        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
2 v* _3 Q6 G5 [: N                buf.deleteobject;
        end;
        next;
       
        dx:=0;
% ^3 H& Q5 W) V: W        dy:=0;
        for i:=1 to number_of_machine loop
3 |5 R: m+ g+ K' E' H+ h                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, s& O+ [, v; L( j0 X                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
. c# E# P& p% I                then
1 h5 W5 o& X. m0 m* K1 P                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
- }- O$ t- `6 b, n  H# s                        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];
1 p+ u) @  s& W1 a4 v% ~8 Z. c                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
- L4 ]; v( S; n* B                        dx:=0;
                dy:=0;
                        --end;
: g, l$ B  N, m& f" h                end;
% H9 W4 }) {3 _) y' F                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
                        dy:=activityspace[2,rows];
# E2 f, H3 K: R. P9 r                end;
* J$ t, D* c3 B  D! j                dx:=dx+activityspace[1,rows];
( b8 T6 s4 b3 B3 t6 o0 Q                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# g) w0 Q$ V4 r                        activityspace[1,rows]:=ct;
; s/ g: ?" [; F# R& H6 M                        end;*/
        next;
        y_max:=y_max+dy;
7 P* }! c  n! C+ O. 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);
        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);
' V+ `. b: O7 i: A* ?       
        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
. s: S3 V1 j, c! r                        if j=i then
                                d_from_to_chart[j,i]:=0;
5 ?  H7 ?9 r! O                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
2 c% I2 H  h4 f7 L                                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;
) k& ]' _; p, x" r                next;
        next;
       
. G$ _7 L2 ^2 c" _4 B7 o& y        lines:=0;
- E0 S/ h& c1 x8 M4 e9 e& O        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
; e) ^3 O% S9 f+ M                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
) B5 C5 V/ |- @& c                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
% n- |5 b8 B: R5 B                        partstable[3,lines]:=sprint("parts");
/ P/ |, I2 N3 `5 v9 R# @$ B                        partstable[5,lines]:=rows;
- C: T3 ?" I4 z7 t" g& U& c. \  {                        partstable[6,lines]:=j;
                end;
        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;标识符未知
        machine.proctime:=5;
. T! k9 D! r" V% c! G" ]        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
. L$ b& f: V; r$ ^& X        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]);
6 F. ~+ ~' m1 b. S+ m5 ?& h, v        buf.name:=bufname;
9 F, Y9 ?% ]3 W: f# v/ b        buf.capacity:=5000;
, B& a6 E% U3 U1 x; f$ e, D        buf.proctime:=0;
! L1 ?: K1 }& g7 M. q" e. H        .materialflow.connector.connect(buf,machine);
) Y, j6 F% U) d8 @# h       
2 y8 j4 t$ G, k. X$ Z1 b" G" V        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;
$ |& ]* r; m- uend;