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

zooey

is
# C( M/ [8 J5 A        mark:boolean;
( B# y, u8 j7 N* T        dx,dy,ct:real;
2 F) q( I4 I& g9 Y  D4 t% s    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
% b/ E0 d2 P2 x4 u5 B0 K8 _                when 16 then
) d7 A" a# Z- N! a3 M! u                        print"yes";
8 g9 v- S; a2 a: g                when 32 then
3 q$ x8 b  s1 q/ ~* M                        print"no";
8 I, E2 ], ^1 H1 P4 Z                else
- i! B7 T* F: q& g9 g  _8 G                        print"cancel";
                end;
7 _1 s0 W8 a# z6 ^3 e8 ^                eventcontroller.stop;
- h: y, M2 |4 h' D# V+ {        end;
% G/ w! M% w8 B* M/ t; q% c       
; `, _6 e. R# c8 l/ M2 t        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
( m1 p/ {2 h8 \4 A        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
0 q  v3 k9 T  c# }4 J1 N                machine.deleteobject;
9 R9 E3 X; V$ x2 |! T' K6 z8 I        end;
        bufname:=sprint("BF",i);
/ t& C% ?7 z- \/ h3 p5 B        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
( A  j. W7 \* y& L" {                buf.deleteobject;
        end;
        next;
/ G# [) |5 z, |       
        dx:=0;
        dy:=0;
. a3 c0 H1 p) Y% v6 m        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, U) k7 n$ Y& D, F. F8 I; f1 a) }                --mark:=false;
+ t2 C, h3 o7 l0 F6 p                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
4 K: F$ U' E- c                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
) ^$ x, O4 r  F% F                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
5 `5 g+ Z0 l1 e* e/ d  X; v                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
8 u# E0 z, Y0 `% h                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
% N/ j6 R" I& c) v  v& e: U) v! y& _                        --end;
, M4 z7 G$ u5 J4 J                end;
& U3 L; e6 D" i3 w3 a! o' M8 e                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];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
& ]* w9 m& C* m7 }! O$ [                ct:=activityspace[2,rows];
: d# F5 U+ K% b1 s; l                        activityspace[2,rows]:=activityspace[1,rows];
) W; w! A% i/ m- I8 x+ \% C                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
        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);
% O9 y+ L& u* N/ Y) @, {* X$ M0 g       
        rows:=0;
        lines:=0;
; M+ i& v% z! Q' J0 u        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
. d% k' ?6 l# p5 X4 q                        if j=i then
% f5 }7 x: t4 j                                d_from_to_chart[j,i]:=0;
                        else
* S: C- _) Y% n: P9 W: m  e                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
# G( h& M# P4 U. ?  t) 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);
& {8 a/ b/ X* S( k2 `8 h                        end;
                next;
: ?7 \& y9 b6 B. N; e        next;
& P3 A* i& u  k       
        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
$ V; M7 i8 M+ {* Y- g                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
1 D) S1 A- K) z, K( ~                        partstable[6,lines]:=j;
                end;
        next;
1 O8 ~1 Z. v5 a  E% z        machinename:=sprint("M",rows);
$ P) }8 T" n1 G$ [8 s        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]);
0 r% V4 D; t9 S" u+ s9 A7 w% c        machine.name:=machinename;标识符未知
) Q  `9 p% Q: R. O5 L% M& Y        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
( M4 Q  P+ n2 E0 n        machine.exitctrl:=ref(leave);
       
# M& U9 h' d' w& k2 G7 ]        bufname:=sprint("BF",rows);
( K1 V& b$ R: v9 Y& m        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]);
/ z( q; R% S7 \        buf.name:=bufname;
4 v$ d0 [: l% j$ H0 \        buf.capacity:=5000;
6 }5 w6 b$ B, n; ?: f. y% ^5 i        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
- _/ y2 Q: `2 m. ?- M: p6 e2 Xdy:=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);
9 Z, h& D1 S; f& f- i5 d+ E# Qnext;
9 F4 C  J. s4 s! Nend;