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

zooey

is
# s  Z9 F$ @" n/ C. U, R        mark:boolean;
6 E$ a, Z8 C6 E$ H+ p        dx,dy,ct:real;
    i,j,rows,lines:integer;
; P9 B4 k1 Q+ t8 p( |2 k3 Q; x    machinename,bufname:string;
    machine,buf:object;
do
        current.eraselayer(1);
* t1 p. Y% U3 B: j2 Q; O% f3 s       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
' b9 F3 g$ u6 ~( [9 K                when 16 then
! A$ P+ B9 X. \- ], ^% t                        print"yes";
, N9 L8 A) _+ ?                when 32 then
- L5 E4 r* E# s7 M                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
2 ?) m5 g. S  c        end;
# A) L: n- H) r* G# Q8 P       
3 X; P& n2 q9 E' Q- D$ Q        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
' L. Z* H) @, J        if existsobject(machinename) then
8 V, _+ M6 m: k                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
7 Z6 O' m' J9 |; c" ^0 J( r        bufname:=sprint("BF",i);
$ a6 q. s0 W( v2 ^5 r* ^: h% j7 c        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
* w, S1 Q7 ]! F        end;
        next;
       
0 C" }( ~4 E; ]8 H" e- C8 @        dx:=0;
" [2 u/ @  A. U$ c! d% W        dy:=0;
        for i:=1 to number_of_machine loop
2 V) L8 I, c4 g: \9 [& i) D1 T                rows:=str_to_num(omit(machinesequence[1,i],1,1));
0 K/ r  L% W( I$ d) w/ v9 [                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
/ F: r8 C3 l# a0 {2 \. `                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
4 G5 e! @6 l/ N* }/ {/ ~0 T; S                        print activityspace[1,rows],",",activityspace[2,rows];
7 G: j% p, Q) Q                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
  e- |* [3 {/ @. L% F+ U/ \                        activityspace[1,rows]:=ct;
, o6 T7 ]3 S( }* R) h0 w. a" b0 `                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
1 |$ F$ H% ^6 Y0 I6 V4 i3 R8 I                        dx:=0;
                dy:=0;
7 l# [9 J1 C8 y+ o5 I                        --end;
                end;
0 Y+ e  C! ?8 R  W                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;
. x5 l9 B; q8 c6 o/ a- P            if activityspace[2,rows]>dy then
, f: L; b; p8 x- d4 |  s                        dy:=activityspace[2,rows];
& m" ~9 C) ]9 t3 }* ?* _                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
6 W8 T8 N8 [: [: H( _6 p% M) `                        activityspace[2,rows]:=activityspace[1,rows];
6 Y. }) g8 X/ h/ j% e& u/ N                        activityspace[1,rows]:=ct;
                        end;*/
' G8 e5 s" Z9 e# g1 q# K$ Q        next;
" n; m# O! D9 r, {' B! B        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);
9 s) h& V( U6 L       
  m% ~/ ?/ G! i9 q        rows:=0;
: y, F; a8 y. G" @% |' {  y& r7 l        lines:=0;
. R+ M6 n5 V% b5 ]4 d" ^( @        for i:=1 to number_of_machine loop
, \& A$ U. C7 k: h, R& c" d% ?                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
6 [& Q" g5 x; A* X1 z# m                        else
% C( z% H& t& f' D) z2 g  @' f( J2 G  A                                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);
- k- ^$ r. }6 z0 C: G& Y                        end;
# r* }" ^: i  t0 D7 o                next;
        next;
  Y3 _3 C, o1 o! J% _+ m& p       
        lines:=0;
1 {) h" Z% [+ l: [, R" _        partstable.delete;
7 T& E2 d5 y$ g# u6 M       
" }4 O5 g! z+ h0 t        for i:=1 to number_of_machine loop
3 V2 n3 ?$ a4 }4 W- A( B                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
0 F1 ?* n! K1 o6 s                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
/ D# [: W* k7 K2 K3 f9 g# o                        partstable[2,lines]:=w_from_to_chart[j,rows];
* G4 L+ ~- \+ n: @8 E" H                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
! q0 C- @9 H9 j                        partstable[6,lines]:=j;
                end;
1 J- L' t9 A! P$ c  M' R7 R        next;
5 l  Z4 A' }3 F3 |% ]        machinename:=sprint("M",rows);
; s7 [9 |3 O  Y: {# E: L" i/ x        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;
7 C) c2 _+ O5 ~/ S3 `, T        machine.label:=activityspace[0,rows];
, T* x$ w  T* c0 m/ L( [% l        machine.exitctrl:=ref(leave);
       
0 R; d9 U( {/ E" q        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]);
0 }7 n4 O2 \. x# c8 \        buf.name:=bufname;
: R. I' d: K) ?3 f        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
: I+ Z$ b% E1 J" U+ B) o; `       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
3 B5 V7 T" O$ @: z- ^0 r  i$ |dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
4 H7 i6 n$ {& q1 o  v