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

zooey

is
$ T3 W1 m6 V0 T6 U1 T) l        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
+ c; q* H8 U0 g& g  a+ n+ I    machinename,bufname:string;
    machine,buf:object;
  [* ]  a. v; a+ w! k& t, i* O) Ido
        current.eraselayer(1);
       
6 B$ K% I$ |& `+ @7 b1 }        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
: ~0 X* s* R2 O0 v! w4 o4 g' H$ A" g3 l                inspect messagebox("设施数目不对！请核查...,",50,13)
2 }% W1 {! H" Y                when 16 then
1 ^  N2 p. P' i; X; T$ T/ c+ M) s                        print"yes";
" ]" m# |, N1 O                when 32 then
                        print"no";
1 I( ?& a) t3 j1 ?6 j, Z; Y                else
% G: {  k. c0 d                        print"cancel";
                end;
                eventcontroller.stop;
! [6 B5 z* C. h2 w. ~% N        end;
) v  d/ v# J4 ^/ m       
1 ?/ k2 Z" N# S5 Q        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
7 h/ j  P& t/ P. g4 t                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
$ i% ~/ p0 c# X( B& \  i        bufname:=sprint("BF",i);
2 G7 I* @( ~/ h, V8 f7 \        if existsobject(bufname) then
  J1 B  O& n7 @1 K7 ]* m* L                buf:=str_to_obj(bufname);
+ I8 _/ o3 `. K7 L                buf.deleteobject;
        end;
        next;
  S- {" L& v6 ^2 i$ A% |- d- n       
8 O: D( E6 Y0 A! E, P        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
+ f# i! T' p! j/ Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
1 t2 l$ k& Z* b; r8 g* X: C                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
) j- ^7 P8 O/ X  q! D* C                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
8 A9 S) V" `  Y. f" M                        print activityspace[1,rows],",",activityspace[2,rows];
7 b1 n) i9 [$ Z3 C/ y# [4 J6 K                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ m+ J/ \. P9 W" d; R2 }                        activityspace[1,rows]:=ct;
1 ?' K/ F2 O# o3 @! H7 S                        mark:=true;
  {0 u6 C' r3 g5 |9 Z                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
# m( l7 w0 l5 l2 y3 r3 z2 L0 Y+ I' [                dy:=0;
                        --end;
, Z* ^- U! B  s% l# X6 W                end;
8 U' t: b8 v+ o" a8 D                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;
2 c# y3 ~- a' f+ e3 Q3 I8 m& I. k            if activityspace[2,rows]>dy then
6 l' b& l2 O0 b7 F4 X3 }                        dy:=activityspace[2,rows];
# w* h  t% F& t* i                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
' H$ I- {, U: Y% ~' T% q* G                        activityspace[2,rows]:=activityspace[1,rows];
5 _3 u! I0 v2 _; G2 g' z                        activityspace[1,rows]:=ct;
                        end;*/
( K1 x9 F, o- k4 s4 Q$ ]8 q        next;
        y_max:=y_max+dy;
  ]0 R6 p% \, e8 z  q- ]        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);
, \4 p( ~, ?5 N( c- {+ a( J        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);
       
        rows:=0;
        lines:=0;
6 m$ G" a6 W) W- {* j$ d6 Y        for i:=1 to number_of_machine loop
  V* y9 p0 m5 I" d: H                for j:=1 to number_of_machine loop
                        if j=i then
# u% R( i+ K: u  R                                d_from_to_chart[j,i]:=0;
" }2 T0 h6 |# ]6 [                        else
4 a7 B8 k9 `) b                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
& `3 B1 a3 ^( u                                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;
; B- K7 ^6 ]  V$ a       
0 K* g; @0 v, n8 |+ K/ z3 ^        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
# N! u5 ?* O% v6 e  n9 c. k; p                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
  w. S. \% Y+ W                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 o6 G" r; p, L$ d                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
5 B9 o' D& K' @* j2 a" @# M                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
' g# `8 X4 c1 n7 ^9 v' |        next;
/ e( p5 p0 t- ]8 P) M+ o$ w+ `        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]);
- H( M* |0 Q4 R" K8 J; C, Z4 W        machine.name:=machinename;标识符未知
9 F- t# e0 o( P) [+ E) u        machine.proctime:=5;
+ {3 `% a$ ?3 O) c! ?1 q5 s        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
( v' L- M* s: o1 F" {8 E       
1 a$ g" z" S1 r8 \        bufname:=sprint("BF",rows);
8 Y3 v* B7 T5 H        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;
- z9 X' i( d% I        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
4 d- I0 w& `( ^dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
! K: p: J  r3 Z0 M- Ycurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
0 U& z" z3 P+ a/ v6 |next;
0 `% v& _. o/ @end;