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

zooey

is
9 m& n0 A2 c, Z8 r* A9 K$ E        mark:boolean;
- }4 a) y! B6 l( |: v. p        dx,dy,ct:real;
; F8 e% ?; n  V6 p1 [* V: b1 X0 t6 r8 {    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
do
" ?. w. d$ z8 `        current.eraselayer(1);
* i$ A3 q! ?6 R0 D       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 A$ z1 X- J' v# v                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
  z2 T. C6 K- d2 Y' h  Y3 S                        print"yes";
/ j% D' [3 _3 d, f" t                when 32 then
0 o. y  [. l& Y3 M                        print"no";
                else
- F$ c1 M; s" J2 U* y                        print"cancel";
                end;
                eventcontroller.stop;
        end;
6 l4 T# y, a8 `1 f4 a       
- K; j4 q* a! Y) {" q, D7 {        for i:=1 to number_of_machine loop
% ]1 y3 _3 ~- Y3 ^) a& W        machinename:=sprint("M",i);
        if existsobject(machinename) then
0 T/ g: n& q3 b                machine:=str_to_obj(machinename);
                machine.deleteobject;
2 L2 ]* y/ R9 T* T/ _% b        end;
5 i- o4 O. R+ N1 A- u        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
  _- _1 ^# b5 v) p* k* `                buf.deleteobject;
        end;
        next;
       
! p' A7 q0 A6 ?, m3 @        dx:=0;
        dy:=0;
2 X) i, T. Z; a$ i7 Q6 H; E        for i:=1 to number_of_machine loop
4 U$ V( l* F& H+ W: o: R                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
, Y7 |% q  Z  N0 R' E                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
( U$ Y+ U& m6 R0 z2 v  h3 S                then
, h! l2 A% r+ X/ u1 a                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
  j, w0 j* g) Q2 F                        print activityspace[1,rows],",",activityspace[2,rows];
9 E# q# Q0 o( e7 M, l, N& U  k) t                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
7 d& X3 t1 P  P                        activityspace[1,rows]:=ct;
8 x' y2 ?; C2 O/ T# E1 K$ P/ x" u                        mark:=true;
3 [9 }1 i. F# e/ E  H                        else*/
% d! f9 t0 R( o. Y: W7 b                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --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;
            if activityspace[2,rows]>dy then
% j7 Z4 J7 S7 A/ w2 a0 P  @4 c                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
; c5 ?4 ^8 R1 \4 v/ h                        activityspace[2,rows]:=activityspace[1,rows];
. \- t8 I! I' V9 W9 e/ q                        activityspace[1,rows]:=ct;
5 s# T3 A8 j. ^4 A9 B2 [                        end;*/
        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);
        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;
& D5 d- Y* B9 b: N8 p$ b- A        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
4 u' t5 b4 G3 T2 v1 v% f                        if j=i then
# p( g3 m, a/ Y                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
, N! z, d" U, d, P9 a                                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);
! p9 r9 ~  R& D, U- {  {                        end;
7 }) B& y- b% G0 s; w6 }                next;
        next;
3 Y; g/ `# R% C5 ]9 @! i( O       
        lines:=0;
        partstable.delete;
$ ^( C: E6 Z! M" P, j! O6 `       
        for i:=1 to number_of_machine loop
- q  [3 E5 B0 j! f8 e                rows:=str_to_num(omit(machinesequence[1,i],1,1));
5 W& d5 `1 D% D! J: e0 Q                machinesequence[2,i]:=rows;
' i( Y0 E8 I/ K6 \. @; U) {                for j:=1 to number_of_machine loop
/ }6 z+ m* H$ n8 R8 T+ A! j                        if w_from_to_chart[j,rows]>0 then
) b7 d2 V: g5 Y+ m( n) q5 {                        lines:=lines+1;
. \5 L5 s' R- B6 f                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
3 D( M9 n! G# W5 e& j; f0 [                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
! G3 b4 Y3 h; p$ W/ l, Y. r                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
" p4 `: J9 T( G8 U; r! ~. L2 J                end;
        next;
        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]);
! @) W8 ~0 L7 C. c9 a" a        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
0 x: U, z0 h. `4 [7 j        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]);
3 o( d: S# D, n$ I        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
; D+ [7 T$ v! C, m        .materialflow.connector.connect(buf,machine);
       
8 P$ k: d  ]. [5 }( E3 }        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
# e! H4 y+ U; x: h5 F3 Ldy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
# @) g. i3 H% Z7 O9 Jcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
* M7 \( j$ j, E1 ]next;
% M& Y  p" j: ]( n1 Uend;