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

zooey

is
        mark:boolean;
: o, h# h0 R" r        dx,dy,ct:real;
    i,j,rows,lines:integer;
' Y5 ~7 I9 M! j% H5 h    machinename,bufname:string;
    machine,buf:object;
do
( r) x. P8 x  r, V3 r+ M" S9 |$ k        current.eraselayer(1);
' b, x: k( P( {5 v  W* @3 Z/ s7 I       
4 a, Z: [% P) Y5 {4 p  _0 |/ E        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
! ]$ [' T8 j& H7 ]7 [& b' G( M                when 16 then
                        print"yes";
4 X5 Z7 n9 A( H9 F: b  B& N! C                when 32 then
7 ]' }7 u) z  F, \- C" C                        print"no";
' j- c- D: ~* j9 r                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
) H# E3 ^; k8 L) M        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
# |2 U$ _* j9 |+ d2 w0 A                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
  H8 u# d3 w! k3 B5 Y& b% i       
        dx:=0;
* |7 T: f( g  [6 [/ r        dy:=0;
5 N$ N" |8 d7 T* I  E: r  R        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
3 f4 o# I: E, j                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
$ I# P, M. c; l- W9 N" @  b" Q4 g                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
. A. m" t# p1 c; m                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
* o- T7 q' N, B/ G                        ct:=activityspace[2,rows];
( J4 J6 n4 b& D* b8 A% \: S                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
6 a) B* f5 \1 S* H5 {6 }                        mark:=true;
                        else*/
- ~, z2 I# q) n( j8 E& X2 s3 m* k                        y_max:=y_max+dy;
; u( W1 r- P8 \5 a' A1 b" N$ |. I                        dx:=0;
' w0 ~8 k: i  d/ D" J6 a4 E8 Q) x1 E                dy:=0;
) W5 ]4 G& _, K0 O: R                        --end;
                end;
                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;
4 n* m( t& N+ T# Y            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
: h/ L+ G  ^5 C, B- u) K                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
! k3 C  Y9 ^1 O, z                        end;*/
9 M8 i. {- `6 A% h: \        next;
. H0 _$ k$ v* l) V$ j2 G$ g; q        y_max:=y_max+dy;
; T2 @5 l1 m0 q! c, N        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 T3 L: W1 d& _3 G" v        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);
" e. f; H/ S9 q" `5 l       
) L7 q. ]" c5 t( S6 Y        rows:=0;
/ _1 g4 ^$ q7 a4 ]        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
' k* y  m; T8 d& K% Q/ G% B                        if j=i then
                                d_from_to_chart[j,i]:=0;
* F* ?/ q1 ]4 Y) r  i! p                        else
                                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];
' l3 j- S" B/ x9 Q4 _                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
3 i- V& @/ F  Z" _' m: m1 @                next;
2 u, q+ q: g3 v4 _        next;
. b4 s- d* S' b8 x: y       
        lines:=0;
) o. e$ A* a% {# |. n! i7 D( e0 {        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
7 M# _% v8 C2 w, [/ ?& j% u                for j:=1 to number_of_machine loop
5 d# {# g" n2 C) W                        if w_from_to_chart[j,rows]>0 then
. P& ?% [8 Z7 q                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
% o( |  Z9 N7 A4 Q  p                        partstable[2,lines]:=w_from_to_chart[j,rows];
8 L' p* ^$ i5 t, c. Q. f( k                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
& n2 o: a3 f4 U' e. t- K& a( M7 ^        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;标识符未知
: O3 }  ?( c+ J- A! k8 c' M$ q        machine.proctime:=5;
& w, {2 i+ y+ \        machine.label:=activityspace[0,rows];
: `- o- ]6 U8 V) y: x& a1 h# {, R3 {8 w        machine.exitctrl:=ref(leave);
       
$ }- P/ o; ^/ I' u: R3 O- N        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]);
( o/ l( S0 f, q5 L9 H        buf.name:=bufname;
; w+ T( {+ u- E; f- r        buf.capacity:=5000;
        buf.proctime:=0;
  [6 e5 ]# v7 Q5 N. u8 W        .materialflow.connector.connect(buf,machine);
+ D; h6 I$ u; N       
2 n2 e. Z  S6 F0 L# s- D* J# x- o' o) G        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
& C0 q1 i, S3 L# u+ S# edy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
" ?: ]4 T* J2 Q8 x- Y; Jcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
4 p( b: F; C( H& Knext;
end;
' X2 L" `" B  T# y& ]) \3 F3 F! t