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

zooey

is
        mark:boolean;
7 O3 v. g9 F9 C4 E9 E        dx,dy,ct:real;
, C" s4 u2 Y% J    i,j,rows,lines:integer;
. ?8 Q  ]% ?% f- z    machinename,bufname:string;
' j2 L$ K& c& d. d' r( E    machine,buf:object;
do
        current.eraselayer(1);
- D' x5 u6 G' i' G$ p       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
, v' m1 Z: l5 s5 W) [, e0 Z% t                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
7 @$ e4 }% T/ w# E2 U                when 32 then
                        print"no";
                else
3 w/ v2 \  ^1 R8 X4 a1 u                        print"cancel";
                end;
" K1 f, [% q5 E* p7 R                eventcontroller.stop;
2 O( I' J) b! b9 \7 m        end;
" k# E- |9 c+ l4 H$ j1 _! ]       
$ t  v2 X2 c. ^% G        for i:=1 to number_of_machine loop
' H* B2 \  `0 t# K  q        machinename:=sprint("M",i);
& z+ d/ q8 [) d+ X* {0 `( K        if existsobject(machinename) then
# ]+ s- @" v1 h                machine:=str_to_obj(machinename);
& l8 d" s  [- Z- R: r: a. a                machine.deleteobject;
  D  {& i% j' S; O' H0 m        end;
        bufname:=sprint("BF",i);
: J( w: \- p) ^) E: M        if existsobject(bufname) then
% I+ n1 X2 K2 `3 a                buf:=str_to_obj(bufname);
                buf.deleteobject;
" K9 U- N. B, _# U        end;
' u- E5 b% r  M- E9 }  F8 G        next;
       
6 p3 X- g1 t, a, S+ Y* \% h        dx:=0;
2 h% _" L# d! Y        dy:=0;
, Q9 O: z+ O; \        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]类型不匹配
                then
2 I9 q4 c9 Q% O8 b( A4 L# N                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
! I/ a/ q# J6 C# u                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
, }# L6 q/ p) \  W                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
+ h' \: O' W; h                        mark:=true;
                        else*/
2 X: \  g: I  a% S" I- V                        y_max:=y_max+dy;
! M0 `: j# k1 ]; C, X2 c& {0 @                        dx:=0;
                dy:=0;
( O) A3 D) W7 I6 y4 u                        --end;
- U0 c* ?0 n# e: \& w/ p                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
* z# Z! Z% Z+ N) I                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
7 A3 n3 o5 u$ O% H- q4 ~            if activityspace[2,rows]>dy then
4 Q) r9 h5 i4 s* l, g                        dy:=activityspace[2,rows];
( O9 H9 H/ ~1 [5 ?6 ]- a                end;
4 P! y+ {( ^0 \$ M- X1 T2 v- b                dx:=dx+activityspace[1,rows];
                /*if mark=true then
3 }! N3 I* G: s; y                ct:=activityspace[2,rows];
( E: f; c' p4 H8 \( u& d                        activityspace[2,rows]:=activityspace[1,rows];
+ i6 r: h4 f9 W4 v. a" t                        activityspace[1,rows]:=ct;
                        end;*/
        next;
8 v) Z: {; k( N+ B- r: T6 U        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);
% p4 j5 d. f2 O; V, T) ?       
5 Z1 H1 x7 Y1 B' `6 c- q        rows:=0;
3 ]- B+ e9 }( }$ v, |        lines:=0;
2 _0 D& |/ t7 K0 E, k: X        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
) [+ c2 ^3 L  Q# v: B4 w& B" L- m                                d_from_to_chart[j,i]:=0;
' v% G) \( ?( _" Y                        else
2 j: h6 I1 p# C+ ]7 G: x                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
" n0 t; ]% Z$ G" q% P                                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;
                next;
        next;
' n  R7 |+ P! H; ~6 Z       
+ C$ T/ s& b1 q5 i' m0 {        lines:=0;
  G5 g2 T+ C: l( M! }: W/ j        partstable.delete;
, D. {5 y) D& I! n4 {: I: P3 `! u       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ P4 X) o2 h, H% q& K                machinesequence[2,i]:=rows;
$ u5 z: ~1 t$ K' D) m& L( z- @7 Q                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
4 L/ ?: G; q2 v+ e$ [. O. \                        partstable[2,lines]:=w_from_to_chart[j,rows];
# i5 G5 E) F7 u- X                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
  B! u& k/ O4 _+ B+ f5 m                end;
3 ^6 C6 p: p3 n, \        next;
        machinename:=sprint("M",rows);
% X& l) a6 t! P7 Y1 P7 e        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];
3 Z3 E. u6 p  n9 T0 p4 G2 G- u5 w! a        machine.exitctrl:=ref(leave);
" A* a9 S; b. B0 A4 a       
        bufname:=sprint("BF",rows);
! y+ u( p6 m" h9 ^5 n3 N        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;
  X% Z  B  o" s* m        buf.capacity:=5000;
        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;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
  |5 \. y5 `; T4 p/ \+ e* dcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;