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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
1 V6 l$ _/ b: s+ j% u! c    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
$ i) q6 `7 S' L6 W0 Udo
/ S% F' g# M4 I; l7 H0 @( H$ U        current.eraselayer(1);
2 z7 {7 ]* e& Z1 o1 X/ n. `       
        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
# z1 J5 U  {& I                        print"no";
                else
2 F' d4 U3 R: Q4 E                        print"cancel";
  o! ^8 l2 V8 n/ s+ O6 v1 L1 J                end;
                eventcontroller.stop;
        end;
# W. q: y* c+ h       
        for i:=1 to number_of_machine loop
# M) S# n9 J* M8 i8 t$ Q        machinename:=sprint("M",i);
        if existsobject(machinename) then
! g/ G$ R4 _' a8 R% T; {                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
' @5 V5 M% S8 w" }% F7 J        bufname:=sprint("BF",i);
        if existsobject(bufname) then
6 o& h1 W) n9 h  p  G                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
2 n% k& L# |# z& G* w6 B        next;
) m/ d! n9 ~: k. s% T% i       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
0 L( G; f; Z$ v! X" P5 g: Z2 |  b4 ]                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
1 g' L! k3 n7 y9 G" Z5 j                        and activityspace[1,rows]<(1.05*y_max) then
& V/ K. B- S9 g9 L& r                        print activityspace[1,rows],",",activityspace[2,rows];
5 R, p, e, e- C5 E4 S6 c1 ^$ v' F                        ct:=activityspace[2,rows];
) j3 @5 v* I1 ]1 O) p                        activityspace[2,rows]:=activityspace[1,rows];
2 p+ I3 z/ z: v: o3 u% @& `                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
6 C, P+ y$ t" {) D7 @) v& q                        dx:=0;
                dy:=0;
                        --end;
                end;
" M1 I) E; I7 R                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;
( q* R7 w& l7 W. L0 q$ {& T) {            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
6 V! Z' W4 `+ S5 g$ X8 J& ~  O                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
- |5 l* _4 G2 F: M# \! S: J& M                        activityspace[1,rows]:=ct;
9 Z# @, u! s+ M0 L, a1 p                        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);
       
, J: A: s9 P9 o. Y+ _; w        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
% y/ g: M+ J& y9 i- O. r                                d_from_to_chart[j,i]:=0;
% L% ]: q8 A. S* k3 X                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
4 y1 k: D5 c  z. R6 h) Y* M                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
0 r) t  R" N' l/ B; g  S" q                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
        next;
: h  E3 X, O2 y# P" P       
0 n! s# H) _8 F; L0 `; O' C        lines:=0;
8 F. Y' S7 O4 D+ e        partstable.delete;
       
4 C+ ]3 D4 N; h" @: J% l        for i:=1 to number_of_machine loop
! k9 X1 p- ^5 Q  I                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 Y8 c" F) F7 u' E4 I                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
5 C3 I- h3 m* z" j5 [                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
. R0 ?- V1 m3 b8 R" ~                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
3 X$ o8 W; t2 ^0 o: `8 B                        partstable[2,lines]:=w_from_to_chart[j,rows];
: n9 k( e1 A8 H. A) E                        partstable[3,lines]:=sprint("parts");
8 d: c, u9 i" o. X4 z  E                        partstable[5,lines]:=rows;
# x/ {8 U  S$ Z" n                        partstable[6,lines]:=j;
                end;
        next;
9 u2 V9 I5 E# m) [) R6 K& [        machinename:=sprint("M",rows);
' ?0 k7 D0 Z9 ^. j3 ~        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]);
& P/ o! p$ u5 G' \" ^        machine.name:=machinename;标识符未知
0 q' Z2 s2 Q2 j2 {( |8 G' ?8 ^        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
& N( x9 k) g( q& H/ ~5 `' y       
- t5 k) d+ b2 Y" N& O1 j4 p        bufname:=sprint("BF",rows);
, G; U2 X' F* R' U1 z        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]);
; ]" M# v/ u' [0 O2 y        buf.name:=bufname;
! i) x2 E2 L* {) V1 e; ?5 ]        buf.capacity:=5000;
$ x* z* A6 F: y9 M7 {- u4 T0 |        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
; ]1 Y$ C8 G9 K& Q- a. c7 U: s& n0 c        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
. E. Z* W0 r# _4 Y$ Hdy:=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;
) N4 A  J+ n! O8 Nend;