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

zooey

is
( I6 x; h  G+ i        mark:boolean;
/ j9 s0 o; c; Y& C3 I        dx,dy,ct:real;
    i,j,rows,lines:integer;
7 s" D! U" S+ ?/ b    machinename,bufname:string;
    machine,buf:object;
# i  |5 V9 \8 P4 Y4 ~! U4 vdo
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 p! ?9 \7 p/ |$ y# X                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
! T; k9 b2 w6 D2 M- j6 I                when 32 then
% B8 L) Z1 ]/ w8 d$ ^" u                        print"no";
. Y9 m; l0 Y7 _                else
3 u( p8 `' f7 w. w" A                        print"cancel";
                end;
) p0 \9 i  {5 ]9 G; f* K( s. a                eventcontroller.stop;
7 ~* b# d* k% T$ e- z" |        end;
: h+ {+ V" R, @% D1 A' p       
        for i:=1 to number_of_machine loop
: Z) k9 y/ S0 ~9 J' n& K* z        machinename:=sprint("M",i);
        if existsobject(machinename) then
9 r$ h( q0 v, G, M& l                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
# [$ h( ^- |, m% o, k* k* O# e        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
" m; g1 k7 J+ E) S' c# V4 I: ^        end;
        next;
" Q; d4 Z& v6 B. [       
        dx:=0;
        dy:=0;
6 w7 C5 B+ L  r0 w# f        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
7 s$ Q) f4 {4 {- P# Y0 u3 V; h9 o                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
! H& u5 s7 |0 [$ T' B' U                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
3 q1 Z0 }! i# m2 G- [, Y  a                        and activityspace[1,rows]<(1.05*y_max) then
/ ~& t3 o/ R0 E( s) x                        print activityspace[1,rows],",",activityspace[2,rows];
4 n/ z; I" |; F6 R/ j3 J, Y                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
" {' U% J( F6 [                        activityspace[1,rows]:=ct;
4 U0 A# A+ d9 K6 H' \6 M                        mark:=true;
2 c9 r: I% x* K                        else*/
# p3 X/ A# n2 g                        y_max:=y_max+dy;
/ X; P) k/ Y- b! Z% o& X! O" e                        dx:=0;
$ B# [3 Q' W; X+ C% i2 M3 }                dy:=0;
                        --end;
' a$ ?* o; A) h. j* V                end;
5 v* _! V. Q$ o  E                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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
  i1 p, {8 Z1 K# F5 e                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
- \5 j) `0 n: b& f+ O: C9 {* c                        activityspace[1,rows]:=ct;
+ `" e% o+ H) v                        end;*/
6 h7 F: ]$ U' f+ T3 `% b2 j2 O        next;
# X: n4 q! Z% e& ^- d        y_max:=y_max+dy;
4 a2 W' B( t5 ^6 A9 X0 o. L        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);
/ v) A0 S, u: `8 j; y7 ~       
        rows:=0;
        lines:=0;
1 l% U, @4 s& w% W  @1 @        for i:=1 to number_of_machine loop
0 n  k0 E  d% k5 q6 c- T                for j:=1 to number_of_machine loop
4 J: }4 U/ a# |+ z# S$ s' `                        if j=i then
                                d_from_to_chart[j,i]:=0;
0 w' p/ `; s% o/ l( X: T                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
6 P: C# P+ w3 b# p# s/ Z% M                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
6 i  j, i$ t/ M2 A; x                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
, l9 q2 _  V6 l; `: e7 ~# k) l                next;
        next;
       
        lines:=0;
        partstable.delete;
       
$ y4 J. `! b# J# u8 h: H, M        for i:=1 to number_of_machine loop
- x  w8 m- G7 N; n9 m                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
% f4 ~* Y2 s% W# y3 e6 K                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
, x3 U0 s9 X2 ?' E0 m( }# p                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 F' J7 {/ F& Y* Y% g                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
2 ]' h1 l: x, \2 a% o                        partstable[6,lines]:=j;
                end;
. D7 K& |$ t/ I  u2 D        next;
        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;标识符未知
8 t) `& h$ g! K- W7 p0 O0 m9 L        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
7 L6 _% y  d) W; T4 u        machine.exitctrl:=ref(leave);
2 I% |1 @$ r5 t3 A5 j& l; t0 l       
! ?' e: ^  m$ ?) {1 p# _        bufname:=sprint("BF",rows);
4 c+ u" g: X3 o1 \7 \. j2 O/ V        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]);
$ C" Y: x* d2 p3 t        buf.name:=bufname;
. |4 c) K1 G6 r4 l        buf.capacity:=5000;
/ c1 Q/ d- s/ R* _# N9 u* _        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
+ u: x$ \! m) D+ sdy:=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);
/ U. h7 g! S2 P9 c* Pnext;
& I9 Q  ?+ l9 c' m  Iend;
  a( V1 v" Z. ~