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

zooey

is
# c, F% G+ r9 U        mark:boolean;
        dx,dy,ct:real;
# g$ Q' ~0 U% C% y    i,j,rows,lines:integer;
4 e& e$ D1 A/ f9 p    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
; a8 }7 u1 K8 p+ S2 o  t       
        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
' J( f, k7 w* `8 W1 ~                        print"yes";
- t0 H3 {/ @4 V( Q4 h8 I                when 32 then
) [/ N* X2 L- i" C/ L7 b# l1 w                        print"no";
                else
3 }* d* B8 t+ s2 l3 ^2 {                        print"cancel";
+ p8 l: x# ~- V1 P) [* n                end;
                eventcontroller.stop;
# t* \4 D5 @9 F0 `        end;
6 u* B' T  y3 j' C6 G+ J4 B       
5 W: Y! S% `( F2 m        for i:=1 to number_of_machine loop
/ U% e5 v* r7 d. [* F9 t4 Z+ Z        machinename:=sprint("M",i);
        if existsobject(machinename) then
, Y9 v; b& R- u, n                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
; s0 W, J( f4 S# u        bufname:=sprint("BF",i);
2 ^' F& q# s; U% r( U        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
  q  C) ~9 i4 F! W        end;
        next;
" k% Z1 N; A  a( [! x' c       
        dx:=0;
        dy:=0;
8 g+ d0 w3 D4 @$ i        for i:=1 to number_of_machine loop
6 _1 B0 c4 |, B7 K4 I' k8 o                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
1 W# d! O" M! B: B                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
2 x+ t7 E0 r8 a% X6 z$ j1 E                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
/ |* d$ {/ D2 j6 V# D# Q5 v  n                        activityspace[2,rows]:=activityspace[1,rows];
1 B+ ~) L) r1 S4 X; U                        activityspace[1,rows]:=ct;
0 L8 g; a4 V3 C8 n. x: C; [                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
* g- ?4 l- [& m, N& R9 _                        dx:=0;
- Y, u) A8 o& c; A- b/ l                dy:=0;
                        --end;
6 a2 f6 e" i! R" J7 W! M* y                end;
6 @; O- p, I) f, }1 j- A6 [                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
" r/ |$ A# g2 Q  W/ o5 \: a/ B                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
0 |+ R" y& c% c: K# `                        dy:=activityspace[2,rows];
4 \; U4 I$ f& A7 \' B! \                end;
! A7 b, l+ o3 c. a' \! ~1 |" V                dx:=dx+activityspace[1,rows];
7 c! B3 ^% r2 W  V# a+ N                /*if mark=true then
+ v4 }6 N! I8 x5 @7 r                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
, ?, I, i4 u! Q& h$ M                        end;*/
        next;
' i' y) ]) W# V/ U) t        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);
       
6 H- D; h7 L1 U8 d. A! X+ c  P        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
" Y1 v( |/ a3 o# O9 q3 q                for j:=1 to number_of_machine loop
9 m' |2 s2 ^! u% {$ S7 r  I$ A. f, D                        if j=i then
6 u4 x- V3 [5 u% ^                                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];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
  H" ]3 G3 k% R- K                                d_from_to_chart[j,i]:=abs(dx-dy);
- V8 y+ N, X8 U+ X9 a' V; g. i                        end;
                next;
        next;
       
        lines:=0;
2 r9 c7 i# H! E* A' a% n) W: R        partstable.delete;
       
        for i:=1 to number_of_machine loop
( p4 L' }) \( n$ X# {1 J) I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" n6 \+ Z* C7 E- X5 J                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"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
6 g: n1 h) r0 R; V4 C( z                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
( V# a( K  |9 K5 j4 m                        partstable[6,lines]:=j;
2 P' w' q) k8 p                end;
        next;
        machinename:=sprint("M",rows);
* ]# k$ }) w0 m0 \1 W( ?& [8 F        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]);
/ e% C! ]  ?! l# V' Z9 \        machine.name:=machinename;标识符未知
7 y! [  ]9 N. G$ E! d. E, o7 D' A5 H        machine.proctime:=5;
9 {3 C. O$ B# |6 w# h8 s        machine.label:=activityspace[0,rows];
0 R4 T+ n/ P. \        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
$ M' S! z2 M" b1 U' t# S2 h        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;
        buf.capacity:=5000;
1 V# U5 _" U& g6 U, F0 x( i$ H7 M        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
$ h  b( ^( ~8 ]' n5 u        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
/ y! c$ u! h; o$ udy:=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;