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

zooey

is
        mark:boolean;
4 Z7 W( z/ p" i) @! I; V: L5 b        dx,dy,ct:real;
    i,j,rows,lines:integer;
4 {& _2 j1 O" y# f    machinename,bufname:string;
) u" ?# X/ ?5 h: w) a- I    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
2 r) }) k- w9 o" d7 ~, q! Z                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
! H% J& r: E5 U. b                when 32 then
                        print"no";
* i. ~7 \2 C0 r' I0 J                else
                        print"cancel";
1 k. j* B8 l! d1 }                end;
                eventcontroller.stop;
. o8 V, w/ E: V2 C$ m& u' @        end;
       
        for i:=1 to number_of_machine loop
4 l8 c$ B" e) H; j        machinename:=sprint("M",i);
+ g2 ]2 A* s& l8 x' g6 Y% n3 m        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
5 V. D: s1 v* x- C                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
5 z+ X) S9 J2 T" F9 Z) w* H                buf:=str_to_obj(bufname);
                buf.deleteobject;
2 o9 P* V" a" c" Q0 j- i+ J, Z# m        end;
( p9 @3 ~8 H( ^, P3 l- W        next;
       
1 p! l7 ]7 U( x& @$ ^" e7 w        dx:=0;
8 ]6 \8 ]/ q: f4 ?9 V3 d        dy:=0;
3 Q  S9 @% p8 X8 E        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]类型不匹配
' V. z# i+ G' T0 R                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
3 u/ f; v* P4 p- V) s8 y* ]. ]                        print activityspace[1,rows],",",activityspace[2,rows];
, z3 A  m; P' N9 T8 J  l                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
! e, s5 ^6 V! i; e. k                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
3 o0 w1 D& o9 }                        y_max:=y_max+dy;
# }- I1 w; M/ }# X7 h- m; A                        dx:=0;
' I3 z4 L# X' x" i. Q                dy:=0;
* C* K: e, Q' z                        --end;
                end;
9 I6 B) ~2 ]7 t1 ~9 S7 g/ {; K, n                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
5 M. w5 G6 \; X7 r                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
6 ]' C& y/ i/ R8 n+ W# }6 u                        dy:=activityspace[2,rows];
% q8 K. x3 x: I8 m% z                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
! @4 s2 U3 V9 A: ]* Q7 j+ `                        activityspace[1,rows]:=ct;
  V! s8 S* Z% ~9 u, t5 I                        end;*/
        next;
        y_max:=y_max+dy;
  F: y0 V1 d1 V2 f! T        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);
! o& n& [7 g, z8 [+ z        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);
       
        rows:=0;
        lines:=0;
        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;
5 @/ s$ [/ |8 z3 W/ x2 Y6 v, Z$ \                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
4 g+ J& O! d1 J& {                                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);
  i& R  c1 a/ {$ W2 _; e                        end;
                next;
        next;
& U, r9 k  f8 l8 W, v2 T       
* P, p& S5 v4 Q        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
% u, |( R2 r4 `  @/ O3 b                for j:=1 to number_of_machine loop
  B  r! S) v( h$ i9 [+ z                        if w_from_to_chart[j,rows]>0 then
4 R) Y- y  N2 h1 f# l                        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");
8 @9 b' Y3 V( Y5 B+ ]4 K$ @; d! `0 k                        partstable[5,lines]:=rows;
; k: ?4 O% G; H+ c- k5 r                        partstable[6,lines]:=j;
                end;
        next;
% R/ y3 b* m, b! \9 n' n4 V8 _        machinename:=sprint("M",rows);
; V. B2 x2 k3 h9 M" _        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]);
- v8 M' R  n. w) f        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
9 Z9 w! x: B) Y. f' Z& _5 d       
$ S' R: @9 q" W  \" r7 d        bufname:=sprint("BF",rows);
- M+ G& \/ V$ s8 D1 ]2 A        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;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
/ N/ z5 k! ]( O3 r        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;
4 U7 y4 D0 k8 }) l( h6 fcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
0 C$ z$ E2 ~# }5 Y, T' }% Y. C* Wnext;
end;