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

zooey

is
4 W& ?# `& C. u4 b3 c' I3 A        mark:boolean;
9 c% a, O3 `2 s: Z        dx,dy,ct:real;
6 i6 v( ?% E# R- s: {' e) [    i,j,rows,lines:integer;
    machinename,bufname:string;
( M8 O2 s( @7 o/ u* }    machine,buf:object;
do
        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
- T4 T. [: |6 U) P                when 16 then
# y8 ?+ M1 \) S% H, g) Z6 m                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
3 _0 S6 x' _" G8 C9 J, r' H                end;
                eventcontroller.stop;
, n  L; S6 M+ P        end;
       
        for i:=1 to number_of_machine loop
' u% l* [5 e& V  H& W+ u' k! j        machinename:=sprint("M",i);
+ ~6 ^# S6 Q# ?        if existsobject(machinename) then
4 t; Z4 N! {. J6 P" D' `6 p                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
( |! |+ b4 Q9 R" }0 K" K+ y0 s        bufname:=sprint("BF",i);
        if existsobject(bufname) then
7 t4 }) C7 K" y/ ?2 y* Y                buf:=str_to_obj(bufname);
                buf.deleteobject;
7 z0 @) X) i5 ?, N& I        end;
        next;
       
% M* T8 |( G+ X0 P5 [6 Y% h        dx:=0;
' t. |3 _0 A* v2 M+ l# k        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
' |; L& w! P3 U! c4 ^" Y& E! X  P                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
/ @5 ^* v1 b6 b' }- v5 _                then
  m4 N" E9 z. Y$ o                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
/ k, W% t" j8 @! u  d                        and activityspace[1,rows]<(1.05*y_max) then
" M7 n& x: a" T( u- |3 z! I                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
- _  f& }& b" O4 r                        activityspace[2,rows]:=activityspace[1,rows];
1 o) V' x& @0 @8 f/ p                        activityspace[1,rows]:=ct;
: u# R2 V2 K4 S( V/ }6 ^# E# o                        mark:=true;
                        else*/
* O9 ?% F! K! L$ ^1 X; i; {. [                        y_max:=y_max+dy;
3 E; C" y. h8 v" ^  a' U( y# f                        dx:=0;
                dy:=0;
                        --end;
' @. v, f/ f+ R2 E' F  V" r                end;
$ U' y4 J2 M* p                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
$ |4 t* X* v4 T+ i2 n( H$ e                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
: Y5 O6 I0 E' z* `6 l) m* T+ r* v            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
' j1 S5 s5 _# W7 x) V                dx:=dx+activityspace[1,rows];
+ F5 n: ]7 d3 d( ?2 i                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
6 n) b) u& G0 ^( Q* M                        activityspace[1,rows]:=ct;
                        end;*/
3 v3 A1 Y/ `: Q        next;
        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);
; j) d) W2 i9 K1 Q! ]4 p9 g7 \        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);
1 w8 r7 F( ]( Y% v% v) c! M       
. h  |1 i  j2 ~4 G        rows:=0;
" F7 O  T/ w9 W        lines:=0;
% l2 H7 j: ~0 S        for i:=1 to number_of_machine loop
  d) b$ ?# P3 x6 z. F- t% k                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
' w$ o7 C! {8 O+ e  B2 Y* W                        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];
0 X( O7 I5 i, g2 e8 V                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
' D" ?0 ?* ?* Y8 ]5 K2 d% D" o& P       
        lines:=0;
        partstable.delete;
       
; ?# W4 o) \; c. c' T        for i:=1 to number_of_machine loop
4 u0 x  s4 k( a+ m7 ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( T- a# S! k+ F; P) G" H$ h# c- W                machinesequence[2,i]:=rows;
8 F$ ]3 S: S+ D# h$ w0 Y                for j:=1 to number_of_machine loop
5 b6 _$ R; O$ w* G                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
! d6 A* x+ M7 Z7 ^0 j8 \/ v& l                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
3 C) Q1 K9 Q5 m5 z, V        machinename:=sprint("M",rows);
3 h  ?! U2 t" b2 U4 B$ I        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;标识符未知
, G6 f6 v0 D1 W2 @9 ]4 Y8 ~9 e8 ^        machine.proctime:=5;
7 f* x7 z( m3 N1 E' z7 P        machine.label:=activityspace[0,rows];
4 O3 N3 ~- G2 o, J) V! ^        machine.exitctrl:=ref(leave);
! z0 z* E3 m' }3 O( P7 m       
( q" B; A( c: U& M7 [; |7 F6 g% ]8 s        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]);
6 @! U5 }5 `$ Y8 t3 S( V" F        buf.name:=bufname;
        buf.capacity:=5000;
% P. F8 T$ C" E  N3 N        buf.proctime:=0;
" {! ~9 Q$ M( D) ]0 S  f* ?        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* W0 P* P9 H" t) Gdy:=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;