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

zooey

is
# f! D- s2 p! o& p/ @4 J        mark:boolean;
% o' k+ p8 z7 c9 h; |8 l        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
9 B* \# M- n+ W* h( d    machine,buf:object;
do
        current.eraselayer(1);
. Y& Z3 C# D8 `) h7 K       
4 `' c. d' J1 N% I        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
2 i3 N6 m# x( U4 B                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
; I( i3 M1 c) n. E' U' {                        print"yes";
, K7 u7 U5 j5 ?& n                when 32 then
' q2 f6 v4 Y2 w0 B4 t; V# H                        print"no";
                else
4 i" _5 g/ Y/ s8 l                        print"cancel";
$ A& e3 w9 Q1 g1 t; I& x+ j4 ?, E                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
5 M* O& v" h% i3 ^! g        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
* D) r% t5 p6 [2 z. F8 f0 J4 I                machine.deleteobject;
        end;
* M2 J. K: j+ W9 V3 j8 E: X( b        bufname:=sprint("BF",i);
        if existsobject(bufname) then
- ?1 F8 B+ z6 @6 P, o+ F                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
4 C" \* w% X' g, b! k       
: u! j; t) a) J- Q: Y) j  ~6 I/ M        dx:=0;
        dy:=0;
; M' d' ^" Z7 r/ c* o) U5 P' o        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]类型不匹配
0 ^# T6 g! S- n: P9 ?' b                then
# }! j2 n/ h2 a2 q# y# C' U                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
# Z0 b# e& |4 d0 z0 s$ r                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
# c; c9 L9 [( q# Z' Q) y5 z                        ct:=activityspace[2,rows];
% q" R+ Z% S7 r5 e                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
$ R' j4 _) x2 b# S+ I% o                        mark:=true;
" E0 j# I% H- c                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
8 _/ T4 \- d8 S5 h; F                dy:=0;
4 a. S2 ?' R* U7 m) c6 D                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; W7 a# H1 l. F( w  w+ a( L                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
1 B2 f$ `% N, L: @+ r8 }7 |" r                        dy:=activityspace[2,rows];
+ T! o: g+ q' |/ a6 c4 J; T* a2 H                end;
                dx:=dx+activityspace[1,rows];
) x; j& V+ S0 F9 e- ~" f5 z: p                /*if mark=true then
                ct:=activityspace[2,rows];
0 R6 p; g! L+ J0 [) Y- ?4 h                        activityspace[2,rows]:=activityspace[1,rows];
. e% k2 w3 r& \* F3 _                        activityspace[1,rows]:=ct;
                        end;*/
0 P7 Q0 m+ F9 y9 o! E0 E        next;
  n/ U  f& e5 _1 d8 ?        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);
, M* L* |) e! R0 U       
# Y. o" O& _1 m. K/ s- j        rows:=0;
# b" x, d; t6 s$ F8 P7 J& Z3 I        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
% {4 N+ F' E5 [# b                        if j=i then
                                d_from_to_chart[j,i]:=0;
6 }; r: e$ A" }1 U5 n                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
( l) h' j  m9 B                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
  R2 J# [$ m' b' A/ F  E                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
9 w# I- D+ m3 T  `) S1 O" n: N: w        next;
       
$ w5 J# H7 I9 R5 I3 A% ~        lines:=0;
* C3 k+ N3 y2 m        partstable.delete;
% V- O8 x, _+ }       
        for i:=1 to number_of_machine loop
# K( v6 H6 A3 N                rows:=str_to_num(omit(machinesequence[1,i],1,1));
; _  N' W# `0 G$ h                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
3 y) C( x) Q  ^) b                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
. Z+ r8 A2 @& V  m4 ]$ B/ h. g                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ {" P. b3 j  l/ |0 e2 ]                        partstable[2,lines]:=w_from_to_chart[j,rows];
4 [! ~# X0 N3 p0 ^! l. |                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
) e: r) z; q$ d$ D$ U& w                        partstable[6,lines]:=j;
( I8 ]0 q+ s/ t' p5 v$ m                end;
1 v: r; n' w: ~  `1 i        next;
- F' Z  Z7 L, `        machinename:=sprint("M",rows);
. b# u8 U+ E8 n7 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]);
        machine.name:=machinename;标识符未知
( a+ ~* o4 b7 L% `9 n4 E        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
& i2 Z( `# m9 n* i8 K3 E* q' O       
6 ?& k. F( b% w) e# J0 g' S$ P2 U        bufname:=sprint("BF",rows);
+ u5 R; J; f5 N7 I% Y        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]);
, l  T# r: ]: ^8 w0 K        buf.name:=bufname;
        buf.capacity:=5000;
/ d4 n0 |; |& _) s" p        buf.proctime:=0;
3 t; ], I4 D/ `2 H" P# K7 l0 m) p        .materialflow.connector.connect(buf,machine);
       
* r6 h. w: C  m( F        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;
end;
5 z7 B: G$ R5 L# t- t, n6 R