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

zooey

is
        mark:boolean;
# z0 p0 Y4 A  ?, U' F        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
) N/ N1 o$ M: S+ edo
, s3 T1 d2 G/ M5 m0 s        current.eraselayer(1);
       
& B4 V  X: z1 [: x$ G% K  \        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
                        print"yes";
                when 32 then
$ b" V& P* w8 A  x                        print"no";
                else
  u  S8 ~( b- I' [+ @. ], i3 _                        print"cancel";
1 B1 R2 ~0 i3 z6 b                end;
" R: p! a- I  f' S                eventcontroller.stop;
# O& h$ E( ?9 ^+ R8 @. w        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
, I; q. _9 q" V/ ?4 ?        bufname:=sprint("BF",i);
3 R2 W; |9 G7 {9 `# B" B7 n        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
1 q; v1 t6 X( S2 E                buf.deleteobject;
        end;
$ T# g, e1 t9 F5 t0 w8 F        next;
2 I+ Q+ Q- w3 q5 {; V       
0 r4 A8 {* J' A+ g" ]. e  L        dx:=0;
( e+ l. G# O3 c  z' R( N3 F: s        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 F7 n& s! q. x                --mark:=false;
2 k& e" L6 N% S* ~" [, s                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
; ]0 t# c: d- f, t# U/ m                then
: U! w4 e8 e9 I3 m' ^! |                        /*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];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 k+ Z9 c" O/ A+ h                        mark:=true;
, H% c# w1 B9 \# I# f" Y6 Q                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
2 M- O3 n9 t0 a                dy:=0;
5 D6 f6 {: N- y. P; h& U* [- ^                        --end;
                end;
( J2 s7 \+ K8 n) ?/ e! `, Z9 O# N                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;
5 s# L% @5 ?$ }2 b            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
: s/ Q) Y8 I& ^' P4 _: J                dx:=dx+activityspace[1,rows];
; j$ h7 R' O& w+ n5 p/ S" s                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
$ R* f. P- |: @1 a* b# P- a                        activityspace[1,rows]:=ct;
                        end;*/
5 y) a2 R- B' Q* ?& \' E* k" S+ }        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);
! X$ @( k1 g7 m        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);
       
/ L! \$ d5 D0 {  l4 H# f        rows:=0;
( {- f* Z% _: c0 ~* f, K8 l; ~        lines:=0;
+ I( n5 L- f& r1 d        for i:=1 to number_of_machine loop
- M" N! J6 U+ `) G& W# H                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
1 I1 X0 k+ I2 h4 T7 U3 V/ I                        else
! ?4 ?3 q. k. T+ R% s. r                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
* m# I. F, q" u                                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);
/ m5 t# b# i9 q0 C5 B                        end;
2 l1 |: Q# v  ~$ f& R! c                next;
        next;
       
        lines:=0;
5 N* y2 `* @2 L/ c$ {% N        partstable.delete;
       
" n% E% t' A4 M1 K        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
4 X' |$ b" ^) W9 ~* A8 U  E2 b! a                machinesequence[2,i]:=rows;
8 }0 ~' r% l0 G) Q# S1 ^  i                for j:=1 to number_of_machine loop
! {/ ?) s% U- d, @' [4 b/ J" H                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
' }2 R3 h% Y# h2 O' A                        partstable[2,lines]:=w_from_to_chart[j,rows];
6 @) v+ H. F/ Z/ g' V                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
- L+ S' {6 Z( ^5 A9 M8 I( |, P                        partstable[6,lines]:=j;
                end;
: k9 U9 g3 ]; `  d! O; I        next;
        machinename:=sprint("M",rows);
7 d/ ~. j# r4 B4 e5 M% 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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
# Y! B9 B8 S) `/ i       
        bufname:=sprint("BF",rows);
% @  s$ k% z1 Q$ T1 j3 K1 f# o& D        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]);
4 C& Q- A( z- L9 ~# W) s7 y4 ^        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
' t4 E9 l0 J4 h        .materialflow.connector.connect(buf,machine);
+ r6 z/ |) t, @3 m# w       
" P) R3 z  c. u& t# A0 ^6 @9 h0 ^        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
! o4 E0 D  {: t# d) Kdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
; ^; K# q4 S$ B: {$ B4 A  y$ V0 e" qcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
# y: g. w+ r7 q- a3 s7 Pnext;
end;
7 t3 w0 |% H. v. n& M/ V  ~$ z5 w! F