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

zooey

is
' h" P* p- `3 P9 Z7 M' @" j, ?6 Z8 I        mark:boolean;
( w" O' G9 C7 t( u2 z$ q        dx,dy,ct:real;
    i,j,rows,lines:integer;
$ `+ I. R- a: e: h1 ^' O  W    machinename,bufname:string;
; H' S. N5 m. w, O* G0 |4 D    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)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
3 _% d5 W. o( E$ E  `5 o" z1 [                else
( `+ `* J* U, j* v' q. T                        print"cancel";
$ C' R. O5 S: p                end;
# _! @! N/ W4 E+ t0 Z                eventcontroller.stop;
5 a1 J- A/ `- l+ J' T5 g        end;
       
$ o8 Q# [& j5 [2 q        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
  x8 D5 S9 Q- Y0 H: ^5 q- f1 g                buf:=str_to_obj(bufname);
                buf.deleteobject;
: R) X4 [5 ?7 ?) B& p        end;
2 P. [0 U1 `! I/ U/ {0 x, i        next;
: t# f% p+ `- c, @       
" y4 e* z9 E! s        dx:=0;
        dy:=0;
! J8 J# l- S4 B5 d        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
4 f% k* i" H4 q0 H* S( B1 c                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
* ~5 ^- _7 m2 U7 H) F4 d4 \                        and activityspace[1,rows]<(1.05*y_max) then
( x7 v0 N+ `) e0 R2 r  h  {& R                        print activityspace[1,rows],",",activityspace[2,rows];
% N. A8 O4 _; A( d( e/ U# F                        ct:=activityspace[2,rows];
3 |: `, `) v: H# X1 ]* C                        activityspace[2,rows]:=activityspace[1,rows];
; j0 Z; m3 C% t+ c: ^+ S                        activityspace[1,rows]:=ct;
  ~9 k( E2 j* F- C# r                        mark:=true;
8 w# n9 B  k7 w                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
/ k( ]6 f+ o0 J1 D                dy:=0;
                        --end;
8 Q" A. ?, j9 j: F                end;
7 F9 g, b5 K5 V; N4 _# w                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
; x$ c0 n5 g) V2 W0 ?; T. _+ `) k                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
            if activityspace[2,rows]>dy then
# t, ?6 t5 x2 W                        dy:=activityspace[2,rows];
                end;
; @7 a3 a' e& c. d                dx:=dx+activityspace[1,rows];
8 z9 n0 h$ ^/ F                /*if mark=true then
, e3 d$ K  {+ b, C                ct:=activityspace[2,rows];
% b( s9 n* H! l/ i3 S" I7 L                        activityspace[2,rows]:=activityspace[1,rows];
( ]. u* w* a3 I8 L                        activityspace[1,rows]:=ct;
                        end;*/
( h# A& {; p# k        next;
- ]6 V8 B% G. a6 Z  P1 _- |        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);
; y% C- Q8 a  m8 w! [3 w2 h       
        rows:=0;
' t1 R7 `: P! L) w! V# L1 ^        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
1 L5 v- \+ k5 n0 B) w8 h                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
& C7 _8 O9 a) ^5 m/ s                                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];
% a: }; r5 M& }2 I                                d_from_to_chart[j,i]:=abs(dx-dy);
; N$ a7 s' X1 d$ j7 P3 h* |: P" u2 E                        end;
                next;
! c& {( q+ u. ?& c( X1 r        next;
: D% c2 Q* A: k! o2 ~, b! R4 d% O       
        lines:=0;
% d9 _+ C0 m7 S! u6 ?$ v: }        partstable.delete;
       
8 }7 z: W0 H* G/ }0 r. l        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
( P$ R/ q0 F; d' ?7 j1 G                for j:=1 to number_of_machine loop
+ a0 J9 ~7 }; K* n7 f                        if w_from_to_chart[j,rows]>0 then
* G# ?6 Y+ a9 _4 T( x9 R7 W                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
* s! V- h  |4 j% `* |                        partstable[5,lines]:=rows;
& r& G# D, @% Y' N  K( a8 Q* r                        partstable[6,lines]:=j;
                end;
        next;
! H4 I; F. L. I1 Q2 z8 n! b4 b/ J        machinename:=sprint("M",rows);
" @: w1 I, w! P% K2 C        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;标识符未知
" E* l) Y. i5 ]2 N) E* y/ _        machine.proctime:=5;
% W5 A8 M: C" \7 ~        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
' X3 D; ?' f: N  O  o       
        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]);
; r: r& |% Z* ^  a7 a5 [        buf.name:=bufname;
        buf.capacity:=5000;
! Q; h7 y. {+ V# g9 {$ {( ~! R  V5 Q        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
; z1 K3 Z0 K: A; m. Q) Q% [       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
: [  }6 [4 ^3 w5 W% i8 V" z" Qdy:=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;
4 n5 V+ b4 G5 J$ bend;
( W4 l, ~0 I8 w. W