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

zooey

is
) m8 l0 B  {5 m        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
5 ]" A/ i6 O& @3 L7 d$ _    machinename,bufname:string;
' I! m- {8 X6 T& ?+ e/ Q; u    machine,buf:object;
do
        current.eraselayer(1);
4 ?/ R6 I# w/ x* E       
: _/ q: t& o, e; O4 M. s        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
2 o6 W, _+ @6 Z9 t, R2 d                when 16 then
                        print"yes";
: W/ ~: u4 e5 }+ T8 L4 R. _) R                when 32 then
8 ]% w& v* q) v  H* E& ~                        print"no";
; l- F& Q# L1 c: q, d: e0 S" J                else
                        print"cancel";
                end;
, r" [$ j# C, I. e                eventcontroller.stop;
- t' m8 m) Q1 S        end;
       
) |# ]9 s# w  K$ d0 j        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
7 d  a/ C: D+ G; ?7 T* L0 x' i$ O        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
  `/ c) j4 }! ^/ r. a) g0 x" h        if existsobject(bufname) then
+ {1 v% r9 B/ f) l) ?! _                buf:=str_to_obj(bufname);
/ l- H6 j: |: ?' o% t  \( K                buf.deleteobject;
+ f. n. q- \) }1 r7 N        end;
* O2 p! X9 V3 H: w3 r        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
$ w7 `" O( f* w1 T! F                --mark:=false;
0 L. {4 A- G, n6 w; W9 |: Z; {+ E                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
3 M/ |9 K- y" X                then
- \) y( |0 {; X8 \% H' n; B                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  W7 t+ e+ W5 U) I2 ]3 C% N                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
) T; U/ r2 r, r, U3 E9 m                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. o% X! A: ?# _! v  y7 h& W1 Y# }                        activityspace[1,rows]:=ct;
                        mark:=true;
( S5 A# y, `" C" B9 G. N, q2 p                        else*/
# _& h6 @5 i: {  [: T                        y_max:=y_max+dy;
                        dx:=0;
6 j5 O# Y' i- d                dy:=0;
                        --end;
- w! B. j  P! Z1 k8 p3 x1 @                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
2 r2 D9 k. \8 V                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
9 Q2 l+ d2 N* q            if activityspace[2,rows]>dy then
3 W0 Q, I9 L+ a9 }                        dy:=activityspace[2,rows];
/ V/ {6 f# O+ l* @' n  I. Y' `                end;
, m# {: I% x: v                dx:=dx+activityspace[1,rows];
0 Q+ M# S% f1 X                /*if mark=true then
                ct:=activityspace[2,rows];
, i$ ?" u, x( @& x                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
" M* a- A! o6 ~/ A4 z, g                        end;*/
        next;
        y_max:=y_max+dy;
, v* a  p! I3 ^  e* C        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);
/ d# m4 o0 c$ J       
        rows:=0;
  x# H7 @  `9 ~        lines:=0;
        for i:=1 to number_of_machine loop
; h3 s8 c0 i1 L" `, s, [2 D                for j:=1 to number_of_machine loop
( `" {; v$ q" T' a2 Y: O. t                        if j=i then
                                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];
9 M5 F1 r- D) w# _+ `6 M  q                                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);
1 f, L$ l8 ~0 g  F% I2 j                        end;
5 q" N$ ?( Q  h                next;
7 p5 o8 K0 W; {& _; ?        next;
       
        lines:=0;
        partstable.delete;
       
! N7 J: h# r0 J( Z1 F5 v( E        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( P. k4 f  T7 h                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
) S9 Z4 W8 q9 a; g, ?( s                        partstable[2,lines]:=w_from_to_chart[j,rows];
2 U# A! z) |+ S1 z8 b" N; x                        partstable[3,lines]:=sprint("parts");
# I% x7 m, m: E- x& r5 D                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
/ Y# S+ w, o; `; b, y                end;
        next;
3 G  N# O" t/ ~0 P        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]);
6 V- x" ]; P1 _% l        machine.name:=machinename;标识符未知
$ r6 `3 d; j( S3 `- M$ w        machine.proctime:=5;
7 b/ Y: T/ R+ P1 M5 Y" N        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
$ F$ H9 h* B: Y# G       
' S' |9 G& `6 {8 \" ~        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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
, ]8 Z- Q, D  n. t% ^. c       
5 C8 Z% ]- }. M4 S; P, W4 C7 a        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
dy:=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);
4 R, q. i1 q3 G7 u% }next;
% _0 Y: ^- H' r, Q2 b- n/ Yend;