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

zooey

is
" a% s; Q1 o* |, A        mark:boolean;
7 [: s6 j6 }' }% Q! H2 L        dx,dy,ct:real;
    i,j,rows,lines:integer;
5 A6 R- {9 L7 E8 @0 L    machinename,bufname:string;
$ m1 u! x0 H( c; V    machine,buf:object;
do
        current.eraselayer(1);
       
/ H0 E) x+ i" E. [3 h% f- u- d8 j        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
                        print"yes";
0 R: U: O4 S( b* @$ r                when 32 then
                        print"no";
4 b' r0 W2 H1 T! f3 c                else
                        print"cancel";
3 {  j0 J- m1 [- k# u6 R: q+ S( E: G                end;
! S; Q, w0 s  M2 R                eventcontroller.stop;
! t, s3 o$ n: H8 c6 {* n        end;
6 o# d  r2 u! r$ y5 }3 q       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
) q) h% C6 Q  L7 q+ x. E        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
8 C% T; ^8 C0 Y4 o/ @( X. i& _                machine.deleteobject;
2 F( o9 M( i" q9 b. W7 I3 g        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
  b3 F3 X- U7 n1 J, U# L8 Z/ X1 ]                buf:=str_to_obj(bufname);
6 U8 a- l& {( N                buf.deleteobject;
        end;
$ H! L1 |; ^  L' `; A& m        next;
0 ?0 s8 W, |  [7 F2 [" u       
        dx:=0;
+ s  f% T# l  i! g- P        dy:=0;
        for i:=1 to number_of_machine loop
* t# H: p- s: X& e! h: h                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 A) h' k+ A# i$ {2 ^$ p/ m                --mark:=false;
! ]! n) f8 @! n/ d% S                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
9 k+ D3 r% g/ g, Q6 h" J8 L                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
% t5 j4 m: A) u  m% F                        and activityspace[1,rows]<(1.05*y_max) then
) Q) `- {# j* ]! C3 g6 l0 g7 K                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
0 U+ ?5 m  ?2 s& R                        y_max:=y_max+dy;
                        dx:=0;
( [2 a. y+ {" R1 k2 `, [+ }& C                dy:=0;
$ o# p: P. y6 @+ ^2 F5 Y; B                        --end;
1 o( {+ c5 @2 C                end;
7 |) Q, u% K6 y% f7 w6 F' }* A                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;
: f# G- |( N, \0 }* ^0 t7 ^            if activityspace[2,rows]>dy then
1 G" o9 |( Y+ G* [6 T                        dy:=activityspace[2,rows];
8 f* V3 B2 w6 G) P( y3 y                end;
4 t' |+ V: F0 k0 y  a' i                dx:=dx+activityspace[1,rows];
9 l! S5 b* y7 S0 J! m; B                /*if mark=true then
' u( U9 [1 r" ?; Z4 @                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
. ^4 Q* F# h  y        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);
       
. X0 i$ z, Q. Q* l6 J$ Y- f        rows:=0;
9 q& [4 y1 O4 N& V* z5 n/ ]$ H/ q        lines:=0;
# S' v$ y, c; \( W        for i:=1 to number_of_machine loop
9 I3 v3 {. o, i                for j:=1 to number_of_machine loop
1 `! Z- Z4 V' u- y+ R) K  x- w                        if j=i then
/ g, t7 H/ c# @, k3 T                                d_from_to_chart[j,i]:=0;
                        else
# H) e$ p! J  T  `% W/ S                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
/ y( |5 h8 b0 L                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
2 b* o" [: E% G8 h% \# _                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
       
' L4 j; j! b( y8 G' h        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
1 X5 Y8 x4 D& @8 L" d                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 l# B2 [& z1 f* x; t                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
7 s- \% d2 U2 X& N4 _                        lines:=lines+1;
, a8 v$ M- N  m; [  m2 d$ c2 E- g* j! i                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
! ~1 X; E4 Y9 y. h( y- b1 G1 }; f                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
% M' w$ O' O& Y  i# Y% ?  c                        partstable[5,lines]:=rows;
) i: W: h( ^) z2 w) E* E                        partstable[6,lines]:=j;
% v' z1 i2 B+ j6 d/ F2 ]+ w) }                end;
7 G$ l" e3 z$ B, _) q9 C        next;
- S& Z- M0 [" N) d/ v% l& D        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;
  g! T& {5 K- ?6 m! \        machine.label:=activityspace[0,rows];
- o7 ?6 p; l6 `6 q3 u; o2 p5 X: I        machine.exitctrl:=ref(leave);
2 w- o& f" Q7 C2 v; o       
$ M% l% D; W) w2 T1 P4 s" h        bufname:=sprint("BF",rows);
1 i5 i8 L4 H: R2 z  v! C        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);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
( }* P+ w! l8 h% g* ^$ Ydy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
5 l5 l7 B* a) v5 c/ D% o" r) N( u' _* Zcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
! c7 l1 c/ Z/ w2 e' w" X  ~5 ynext;
% r8 |, N4 i+ l4 rend;
' ~! f" v2 d9 q" [. ^3 C