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

zooey

is
9 L) ?. v" s+ [        mark:boolean;
        dx,dy,ct:real;
; A2 ~* ]! r, w$ p    i,j,rows,lines:integer;
/ ]( w) d! i$ q& V* R9 M: ]    machinename,bufname:string;
( K" `6 ]! Z/ o" S    machine,buf:object;
do
        current.eraselayer(1);
       
/ A1 W) z- b' b7 Y8 ^/ f        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
8 ~9 k# B# T! a6 m                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
/ W# O" D5 [7 r                        print"yes";
- M  }/ g$ u; L                when 32 then
                        print"no";
                else
7 y$ L5 R+ _9 t4 Q. Q' l1 t3 j                        print"cancel";
  A0 b, D4 ]) E) D! R/ r+ Q                end;
                eventcontroller.stop;
        end;
       
2 ~* s- Y! q9 Z+ q( s) t        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
+ V5 `$ K$ O& l  n* I- n4 D( j" |+ S        if existsobject(bufname) then
9 ]3 ?6 c& o" E6 U/ f, |* b4 J$ [                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
" U! Y! p4 U1 H4 p9 o% \, s# v        next;
+ ^* p5 Y4 j" [, Q3 V+ j, o3 F       
        dx:=0;
+ W2 d  ]* B; c- F; u4 Y        dy:=0;
9 K2 z$ I3 B. l) Q% }        for i:=1 to number_of_machine loop
* `; I7 y* E9 ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
# W% w) L/ ~7 G1 [& W8 i                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 _1 l! h1 ]! W" o                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
6 J; {# k( |& [5 G  m! ~                        and activityspace[1,rows]<(1.05*y_max) then
1 M% J' |4 n/ m( Z5 y" k- V" c( q                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
$ k6 w9 R) R* L( D% b! v8 c                        activityspace[2,rows]:=activityspace[1,rows];
, a2 z, n) Y  D& N  ]* N2 z                        activityspace[1,rows]:=ct;
                        mark:=true;
0 v) f# o" q; k5 v                        else*/
8 t7 g* @( i8 P9 n, \- `                        y_max:=y_max+dy;
9 d2 C2 h! A, ]! B8 q' a7 K. H                        dx:=0;
" o# ^6 r1 |. G# k6 W, _+ L                dy:=0;
- C# |" U  Y+ e. v- n. ]) X                        --end;
  Y' X$ @" @5 p/ g( G( I                end;
8 w0 c/ \* p) |/ n  F) L9 F0 H                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;
2 P* K9 T: Z/ `$ {' M  P" u            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
2 v4 [; ?- d; w& m0 Y& ^                end;
! L- W2 b$ P9 _2 i! R7 \' p& o+ s                dx:=dx+activityspace[1,rows];
! Q  C5 V, Z8 A' U# _$ [                /*if mark=true then
  C! a3 H* x  c3 U0 ~4 i- I( N4 B                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. P  n. |+ |) W                        activityspace[1,rows]:=ct;
* I6 @6 N# l6 m1 Y8 C                        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);
+ ]7 ^* Y2 C. {       
        rows:=0;
        lines:=0;
6 N; m: I3 s$ A; |) S        for i:=1 to number_of_machine loop
! p7 V' X8 \& T: k1 ^                for j:=1 to number_of_machine loop
, j, Y# `9 f, ^4 e3 c. D* [                        if j=i then
# I3 g, q9 n) e3 ~  E                                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];
* b% s/ y7 W/ U5 D4 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);
3 Z0 v- i9 I& L) L+ v  q# F3 d                        end;
' N2 ^* H! t  |' q1 v                next;
1 B& n/ {4 f: V8 T* A9 z        next;
       
        lines:=0;
3 r, U$ E7 G( w1 S9 N  k$ R        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"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
6 l4 r7 j) p- v8 O3 J$ M: ]        next;
        machinename:=sprint("M",rows);
9 u. G9 y0 W' f' V        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]);
, }1 H& d) W- b  w% Q        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
& S3 J3 V; q, l+ K        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( w. V' j8 N7 f  J5 f/ a        buf.name:=bufname;
0 `9 d7 B( ~8 K1 [* V4 |- t        buf.capacity:=5000;
5 }, `! O$ p2 n        buf.proctime:=0;
; Y6 k1 u0 c- d* p        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ E" p- o9 S6 a' }' 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);
next;
end;