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

zooey

is
) x; Q" A4 X. k( `1 f. [3 E        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
( p% p" a8 E# q; L! K    machinename,bufname:string;
    machine,buf:object;
do
8 c/ N# z. N! T& g4 r. ]: y/ L        current.eraselayer(1);
       
6 z# y' E- W% a3 W9 t& k( b        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
( p( f, d' |9 u                inspect messagebox("设施数目不对！请核查...,",50,13)
. W/ t! h+ ?" D/ F# ~9 H8 K                when 16 then
, {- K# A) w" G# L                        print"yes";
                when 32 then
- C3 j! S# S0 n$ ]5 @7 r# @                        print"no";
" `9 i9 s9 D3 ]                else
                        print"cancel";
                end;
# `+ g3 S9 U! i5 D+ z" x- p                eventcontroller.stop;
        end;
+ f: N1 B: F9 x) l       
$ K8 k3 g: h, {# B        for i:=1 to number_of_machine loop
5 g: q5 r/ m! Z2 R/ ?& u. b        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
5 [9 }9 t6 f/ ~; b, N- y9 p* R                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
" L3 Q4 Y5 E8 @* w+ t6 D        if existsobject(bufname) then
/ g1 d. p  h3 ]/ C2 b* T5 i9 g                buf:=str_to_obj(bufname);
                buf.deleteobject;
+ C- S6 Y$ W3 v  t0 X        end;
        next;
       
- ]* s+ u( n$ C' G* d- n        dx:=0;
        dy:=0;
% Z" l) k5 W* g. |0 s+ O        for i:=1 to number_of_machine loop
& B& v# Q% a% j; n                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 @7 g% C8 }" i. d+ Z& t                --mark:=false;
) s$ c4 J  G3 x9 \                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
, ~5 e9 F* t9 G                then
2 y( R+ p4 ~/ z% U/ a9 }& D/ T                        /*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];
, _4 u- z1 a) g8 z$ w. {: G, t                        activityspace[2,rows]:=activityspace[1,rows];
( d& v) m+ g( E                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
* L+ ~( B+ t* b8 p, N) K                        y_max:=y_max+dy;
5 C# q5 g8 P; h1 p$ S3 [3 v: L! c1 y                        dx:=0;
* G& L0 ?, l0 i, C3 L' ~) D                dy:=0;
0 s, z, B, F4 M& j7 G                        --end;
2 Y$ F" Z3 Z, i) Z* x. X+ @                end;
8 {) O, Y  Y, x6 t8 A                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
9 X. l5 y. @$ R5 h5 H6 x                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
. F% |7 b* r1 B5 v            if activityspace[2,rows]>dy then
& @% Z4 O) D' H# E                        dy:=activityspace[2,rows];
                end;
1 _3 I9 z  K3 C8 _5 v8 s                dx:=dx+activityspace[1,rows];
4 M! m* P; l: v; q" z' u5 E                /*if mark=true then
/ `0 j% e4 x/ l, c% M                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
& e$ X# u* o' z. C+ r                        activityspace[1,rows]:=ct;
                        end;*/
: i; x8 ?% y! K        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);
% J8 N0 |8 R0 k- K' Q. W& h        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);
& A4 b; P' k/ {! m       
        rows:=0;
! U" g9 }( n" G3 b        lines:=0;
4 `  K& ]5 x) \        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
- P9 s0 P$ q8 J& v& F$ d/ [                                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);
& ~1 m, s, J  q# Q; n( m9 O& P                        end;
, C+ g, m* a3 e; l4 P5 e                next;
5 n  d6 q2 ?7 T6 W" ]5 K( W+ ^        next;
; [* {( j' w6 n       
. G$ e  t8 Z& T! i+ [* L3 W7 s5 K        lines:=0;
8 `! P9 ~1 f4 T  {# u$ R3 h* P        partstable.delete;
       
  E2 w. [% ^% B. _$ p2 U        for i:=1 to number_of_machine loop
' |3 Z. b) R6 d( m2 }0 g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
& Q$ K0 t. T% u" t! i( y                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
: A* n' \/ ]; b$ ]# o                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
* U0 Z% C& B* Q) F5 K* A                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
+ ~7 n* }; N. w9 ~% z                end;
        next;
. g# c9 Y. J+ m7 _        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;标识符未知
+ k5 j  K$ {+ b4 z7 w* g$ p        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
: i8 _4 N# I; s  p4 @        bufname:=sprint("BF",rows);
        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]);
( j3 y' M2 z$ v! B1 D        buf.name:=bufname;
5 w* o  u' l, [4 O        buf.capacity:=5000;
        buf.proctime:=0;
* U; V7 N+ a! ]# H        .materialflow.connector.connect(buf,machine);
) ?" I0 M7 z0 V3 N       
2 Y+ o* V! V; }* ~- ~1 }; o        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
" f+ g$ Y% n/ T7 N0 ddy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
  ?3 f1 V( N3 R3 w8 ecurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
) N; v  [7 w& m4 |+ rnext;
- }2 \( H: e3 z1 ]+ P9 o5 X2 Q. `end;