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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
' ?# a. B4 H: ?9 w5 R    i,j,rows,lines:integer;
7 ]' f8 t' E* X9 d, [, U- t    machinename,bufname:string;
1 n0 ?4 Z$ J6 }& U! T    machine,buf:object;
/ \( x, X+ t7 G* k% Edo
/ x- m3 s# d& A: v) j        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
4 {7 U! ^* z: h5 x5 a: `5 s1 Y                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
6 Y) F  l" w4 U8 y0 e5 L- F, o                        print"yes";
                when 32 then
+ H0 z9 Y# q( m0 C- ^                        print"no";
                else
                        print"cancel";
                end;
8 e! H4 W1 X; h: e' P. ^+ R2 Y                eventcontroller.stop;
' U" h& m% }- b        end;
/ q1 }- i0 m% m/ N1 S       
        for i:=1 to number_of_machine loop
3 j0 N) ]0 |$ T" z# @        machinename:=sprint("M",i);
! {0 }- X2 L/ y        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
' ]; |7 M) m% n; W6 ^        if existsobject(bufname) then
4 `+ B- |& {2 [( q  [* q                buf:=str_to_obj(bufname);
                buf.deleteobject;
/ C  k4 U8 G1 f7 T: F) ~        end;
) f0 K5 x/ z, P6 s, k        next;
0 B4 E2 S. z7 E( ?5 o       
7 j9 |% g5 P8 b* k$ B        dx:=0;
" ^% Y- O% r. N6 V, q        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
2 f+ F: ]" l6 O+ |& H5 ]                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
; V% w2 Z9 A9 P, j2 l$ N* {                        print activityspace[1,rows],",",activityspace[2,rows];
1 K8 p4 ]0 b" T$ w) Q. L                        ct:=activityspace[2,rows];
. N; z5 F& J7 B; s, g                        activityspace[2,rows]:=activityspace[1,rows];
  f/ c0 r* p6 n                        activityspace[1,rows]:=ct;
& K1 c' ~; F* `# j8 H! {) z                        mark:=true;
. K9 h4 A9 H! \( m" u* q8 ?5 K                        else*/
* Y% S5 }# s. r- I, s                        y_max:=y_max+dy;
                        dx:=0;
- q0 N3 `: o; m7 j8 j. C  `                dy:=0;
                        --end;
. _- g1 J$ s' E* M/ J/ v& k                end;
  p! S3 |% Y9 V2 Y% D4 w- F                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
0 ~' f- @5 ~, Q" C, T9 s7 e                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];
1 [* L5 \4 o1 y$ \: f0 N8 r                end;
                dx:=dx+activityspace[1,rows];
+ F5 E9 J$ x9 N7 l4 H                /*if mark=true then
                ct:=activityspace[2,rows];
0 c7 j- P0 y8 V3 f- y                        activityspace[2,rows]:=activityspace[1,rows];
' F0 j# Z% K, d  Y                        activityspace[1,rows]:=ct;
                        end;*/
" d. \. A1 x! O" z) A        next;
        y_max:=y_max+dy;
; q6 C5 @- ], S1 W$ s. f" u, k9 X        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);
) ]/ @' w, {* H- E& z9 h        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;
2 r% y! N  ], ^- V/ @        lines:=0;
        for i:=1 to number_of_machine loop
' W5 N$ M5 w0 c. X9 f7 f. g/ r                for j:=1 to number_of_machine loop
6 j$ U& j/ k5 j+ Q                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
$ i& o' E$ c, O, i+ G                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
4 ]- C3 J; D9 u6 {' t/ F' p                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
0 K2 X: a/ R7 q" Q5 a1 I% P2 T                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
3 D/ b. G8 w- U) H- i  M5 Y2 Z& X        next;
       
        lines:=0;
        partstable.delete;
( Q  W: b% E2 A8 t  p) k! i- `. X       
        for i:=1 to number_of_machine loop
% T9 V* h# k' P# Z! K4 p+ f( n                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, u7 p4 n7 u) m' x2 s. v                machinesequence[2,i]:=rows;
4 [2 g+ N+ S1 n+ U7 F+ b                for j:=1 to number_of_machine loop
& y) j" l! X% T; ]                        if w_from_to_chart[j,rows]>0 then
7 n6 G  }8 B0 }0 [9 n$ x# o                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
5 B: B* u. H+ g( j" }. c' ~1 [                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
. i* X4 z8 I8 M* B0 N( \' e" i                        partstable[6,lines]:=j;
3 O" b) R! U9 W9 t* q                end;
; v2 l- H8 ]  s0 Z9 K- L: \6 F' z        next;
5 r# `4 E" M" A1 O/ X        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;标识符未知
        machine.proctime:=5;
$ y  R3 E6 ^3 T5 _        machine.label:=activityspace[0,rows];
0 J, e9 n# Z# |1 F' E* H        machine.exitctrl:=ref(leave);
8 x- T2 f: [- z+ w       
- d$ ?& ?% O' h1 i; F) v        bufname:=sprint("BF",rows);
        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 U1 d6 T6 I  Y) N& o. R        buf.name:=bufname;
: G8 h% y: u. [7 n        buf.capacity:=5000;
" e( b. U) v5 @2 p) W5 t        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
/ x  |$ F& x* E7 T8 \        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
5 Z* \& s0 x& [! Vdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
8 U! _* j* j/ K1 T% v( I& ucurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
7 R6 ]( H/ x! j" Bnext;
end;
1 ]) |6 T# A' n1 Z