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

zooey

is
9 r/ n& v* s( v# ^        mark:boolean;
7 C) X; i7 Z$ x, t  p        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
/ ~+ |: u$ y. f% u5 ~9 `. k) c/ \    machine,buf:object;
. d* V, @+ {) \) k- i4 Ndo
  S8 C4 t0 G1 _  s; `/ B( T5 o        current.eraselayer(1);
. _. j- P5 Z) |. @$ _       
+ N# z$ _" @  ^) d3 ^. P# `1 {        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
+ ]7 y& P( J4 V- l; x$ p4 R                when 16 then
, b/ ]1 c: L0 @! A2 I% \+ `                        print"yes";
0 q) v$ ?( g4 K$ m0 U5 T. J                when 32 then
; E% u; [: [0 {+ ?                        print"no";
" o+ f7 H( B- h, i, G; l: U                else
                        print"cancel";
" k- ^9 I" o3 p# j                end;
                eventcontroller.stop;
% J2 F2 n, Q$ t        end;
       
        for i:=1 to number_of_machine loop
  m7 s- t1 f4 F# o$ D' A        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
0 t! d4 b: m7 {4 X                machine.deleteobject;
        end;
' Q$ T5 h- U! x% u% R4 i. u! f8 M        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
1 y; _" I. q0 M                buf.deleteobject;
        end;
% M; c  U) A- [) b" I1 J- s        next;
       
! Z2 n/ s# J  Y2 {0 f( m" [        dx:=0;
        dy:=0;
, N6 _  L/ z9 L9 m" J8 m        for i:=1 to number_of_machine loop
+ D* q7 f5 a5 f                rows:=str_to_num(omit(machinesequence[1,i],1,1));
! N7 W/ |% ~* F  W4 J3 ?                --mark:=false;
6 U" o) I3 y" N, Y% M) y                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
1 g. y3 n/ f- Q9 U- `                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
: ~$ l/ |/ O, g& I; z                        and activityspace[1,rows]<(1.05*y_max) then
7 d0 J' K9 M  y- w" k5 s9 [  u                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
9 A" n& q2 b0 g" ~7 d                        mark:=true;
                        else*/
0 C8 M3 c% H! [( y7 G! G                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) f6 i1 @2 Q% [                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
4 j: ^! X% R' W. e& f            if activityspace[2,rows]>dy then
- l1 `- f, h4 t- u7 p8 T$ I. W                        dy:=activityspace[2,rows];
) z9 b+ C4 r4 J1 ~. C2 O- e                end;
                dx:=dx+activityspace[1,rows];
9 `' F6 T! Q) k3 W/ m( V                /*if mark=true then
( t7 P  t3 A8 `6 Q2 f                ct:=activityspace[2,rows];
( p9 y( b& Y8 n8 {                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
; ?3 d7 p6 G$ F" R6 q9 f        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);
" X1 X& O2 m, A8 P, N& @        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);
       
2 Z" n  h' ~4 J. U% n* j4 I0 ]        rows:=0;
        lines:=0;
+ @& U* f; D  ], ^! l        for i:=1 to number_of_machine loop
+ {8 t+ j! k* L5 y" ~" x" H. c& S  s3 R                for j:=1 to number_of_machine loop
5 g  S( B5 r; n, Z" q; Q1 z! E                        if j=i then
: W6 A" t! l. J4 H( j0 i  o                                d_from_to_chart[j,i]:=0;
                        else
* a2 `* J8 g$ e5 n: k$ V1 Y# d# E                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
                                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);
2 B  O+ ~' z% @# {4 _                        end;
                next;
6 Z) U& D8 C6 d        next;
       
$ e6 w9 J6 l3 u& @        lines:=0;
        partstable.delete;
8 z- h7 K4 ~& z" t5 `" Y% o       
/ F9 S0 Y% H% A/ u        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# u6 x1 O/ @3 U% e& e7 B# s# y; z3 m: {4 `                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
. Q1 e! `& ?1 _! Z1 T2 ~/ M                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
$ C* l0 B7 W: a, h                        partstable[2,lines]:=w_from_to_chart[j,rows];
  Y( o4 E0 i/ E) A/ H                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
4 g& M$ v' h/ g5 K9 G                        partstable[6,lines]:=j;
+ g$ W% ~4 ^8 j0 r! K( {7 W( N% p6 B                end;
        next;
, H% @* d% O9 o2 Q% m( x4 X        machinename:=sprint("M",rows);
7 e2 m5 m7 h7 y" w4 Q        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]);
# ~) [2 M9 s# w4 W  z        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
" B# `+ _. p  {9 K  t! q        machine.exitctrl:=ref(leave);
" o: Q  z9 F9 A       
        bufname:=sprint("BF",rows);
$ ^% V% A( I- b1 u        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]);
% V7 M( k) u2 D% i) Y        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;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
6 n; a2 k. I5 a+ g- Ucurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
8 _1 g5 X# @& w; {  Znext;
3 R" V) J- Y2 o! bend;