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

zooey

is
# U( g  ?" N% c2 N7 I. L0 F6 v9 q, r) s        mark:boolean;
; g0 r* K! M" C        dx,dy,ct:real;
    i,j,rows,lines:integer;
, t" o+ b. {) d) |; x    machinename,bufname:string;
3 c4 y0 p% Z& ^: a/ i    machine,buf:object;
, K1 s* S* _8 K+ h( ?; @" Ndo
        current.eraselayer(1);
5 G( Q9 P$ s1 t# G$ c, T' G       
/ |1 }5 ~0 u6 u' O! a        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
( S4 X7 e1 w6 r+ O% r- u" G# e                        print"yes";
/ G8 S9 z! Y" r) b2 N                when 32 then
                        print"no";
5 n. g1 k# H# I0 `; T! x& ^% `7 @                else
9 ^6 J. W5 }/ R3 a2 @" j                        print"cancel";
                end;
                eventcontroller.stop;
. ?& q. X( [3 g* f, h9 t        end;
, }( b! O) ?  h' K- y) n8 h9 P2 _       
! s/ J" O& g, u) n# e% Q        for i:=1 to number_of_machine loop
/ n& k" t) I1 |6 X        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
% n& f  l% d$ L        bufname:=sprint("BF",i);
' {) l& `1 [* p6 x$ T- w        if existsobject(bufname) then
  d& H. X/ o* B  G                buf:=str_to_obj(bufname);
$ h, H9 E! T$ j( D1 J( c                buf.deleteobject;
. _; O# J8 d* h/ p( G) I        end;
        next;
, @; C/ Z; k6 w9 `9 ~       
3 L, s" K( p) q! W$ Q. h' c- y; _$ A5 f        dx:=0;
6 Q1 a4 h% g9 T/ _        dy:=0;
% X$ p- G: x+ s+ A$ ~, ?        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]类型不匹配
! E6 C9 v3 P  s1 V: [                then
, e; x( \' ~( T1 h; {                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  p/ d0 b5 X1 ^& y                        and activityspace[1,rows]<(1.05*y_max) then
/ q* Q" S' ~" M                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
; m4 {& a. h- ~! m+ ]! h" C                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
% j( ]' ^$ h; M                        mark:=true;
                        else*/
+ Y* i$ n4 W: @0 Z* Q                        y_max:=y_max+dy;
0 a  z1 D6 o" s! a" B& f4 \                        dx:=0;
                dy:=0;
                        --end;
                end;
                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;
* |& {) E5 r$ y4 U            if activityspace[2,rows]>dy then
( t$ X" X- i% j: a* J                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
  w1 Z% W9 P! e6 L9 @, |$ L; x                /*if mark=true then
                ct:=activityspace[2,rows];
- l; e/ t( k! n' U( f                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
5 `& o3 O8 S$ q# `1 d, c; _" G        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);
       
( S1 g; M  Y# W        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
; P) L# j" [& Q8 M, Q2 n6 s! P                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
! d/ p8 _$ j/ T                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
3 ]) r: R- f9 t- z! S5 u- B" G                                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);
                        end;
# K) Z3 m. {$ Z  ~                next;
        next;
       
2 I; _6 B2 @/ \/ p        lines:=0;
        partstable.delete;
- s& h2 z/ i; }2 \/ }       
        for i:=1 to number_of_machine loop
: G' O+ b, ]: ]2 d7 k                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 V. e8 t8 d/ C                machinesequence[2,i]:=rows;
5 p0 v0 Q$ u4 |: M* v7 v- ^$ _; c                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
' |! e" l2 F4 e7 ]) p1 L# ~6 g9 O                        lines:=lines+1;
9 s0 N7 O4 P! Q                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
4 ?. P4 [' F1 K  {                        partstable[3,lines]:=sprint("parts");
1 b' w0 [! Y% }1 P# P1 L9 ~                        partstable[5,lines]:=rows;
- M5 \7 p2 T$ W7 X# }- F" K                        partstable[6,lines]:=j;
                end;
        next;
6 u% C3 o5 [: c5 u& `. f        machinename:=sprint("M",rows);
8 N4 g2 B& H9 W; f        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]);
3 H# W& C+ T- L' c+ V6 i) Q        machine.name:=machinename;标识符未知
; }$ G+ s2 t- C' K; W        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
. i, P1 L5 K0 b) z7 ^        machine.exitctrl:=ref(leave);
       
1 j+ f1 x0 O# q7 h/ a: E        bufname:=sprint("BF",rows);
2 S! y6 X* Q. \. \5 _8 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]);
7 t* a: M) k* m        buf.name:=bufname;
/ O6 A% h, w6 H/ e. F4 a3 N        buf.capacity:=5000;
$ A: y# I. J7 B  J5 c6 r7 v        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
4 Z( W) x) J9 H: s& }" D& ^/ E8 `        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;
1 ]- r0 N' r3 Z& l. C5 kcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
! v4 h# _+ u9 N9 p" I0 ^next;
7 c7 \7 t  }% Dend;
& x8 L) ]/ o2 u