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

zooey

is
, u8 T' J4 n, r$ R        mark:boolean;
        dx,dy,ct:real;
* B" S, M. L' z' s/ q) {    i,j,rows,lines:integer;
    machinename,bufname:string;
/ E6 e; {* B) G* A9 `) K: F    machine,buf:object;
- f9 s/ M6 s  X9 r  ~- ^9 ndo
        current.eraselayer(1);
       
! t; q4 z/ ~/ q7 p2 m3 ?  U        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";
! \$ M' K7 A6 E$ f, g, p                when 32 then
                        print"no";
                else
9 p! K7 [) b' l% B9 P; x, r+ W) c                        print"cancel";
/ V5 [4 d8 [1 D. W9 d                end;
: i% b4 I: y3 k                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
& P7 W. W$ j* B+ l% n        if existsobject(machinename) then
0 c# t- @* I1 O. J                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
4 c0 W/ H! v/ p' n- y        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
. g( m! r4 y- u8 b                buf.deleteobject;
        end;
        next;
7 o$ ~1 k. g2 e- ?* }3 x7 H       
        dx:=0;
        dy:=0;
3 F8 d1 E, N$ c- ?        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
1 N& a2 n% V  j  V  Q2 y) h: \                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
0 a9 u' v. K2 b) {7 r4 ]$ }                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
' f$ k( \& d7 G" ~  I# F                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
4 A0 I. v! L9 y8 r                        ct:=activityspace[2,rows];
$ X# |6 W! G( t1 w/ w6 c                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        mark:=true;
: G+ c; [# C: h# @& m                        else*/
! S# B& M. X5 R( G8 H2 q                        y_max:=y_max+dy;
& O' u& P2 h4 J( _5 N                        dx:=0;
                dy:=0;
                        --end;
- d( y6 o8 G' d7 B  ?! Q                end;
. s: i2 y. y1 B                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;
, |& A4 B; W* [  e! |3 D( R            if activityspace[2,rows]>dy then
% T. T- u* a2 u, o                        dy:=activityspace[2,rows];
; W2 ^9 K* G' s' `1 x, ~* c: f: @$ [                end;
/ o2 O: E& F: y! z" I                dx:=dx+activityspace[1,rows];
1 m  D' L7 y, G- [                /*if mark=true then
! n, y* n7 \. g2 O5 _; S                ct:=activityspace[2,rows];
0 z! \0 Z0 l/ g/ ~2 X                        activityspace[2,rows]:=activityspace[1,rows];
0 ~! U# `1 M9 W) E/ w7 W( d( ]; p                        activityspace[1,rows]:=ct;
8 T7 b0 y9 N: R6 n# B. t2 p                        end;*/
6 d: q/ F  L3 P5 |2 X        next;
+ I2 K3 a2 Z% p0 f$ z8 e+ J/ G        y_max:=y_max+dy;
1 ?, M. P) W# H  ~% y        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);
3 @" P/ A' ]6 G" M        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);
       
) }) {" ]% k  {' e  T5 n        rows:=0;
% q3 J& {6 L# Z' t" ?        lines:=0;
% h" G8 n- t" W! ~, B. x2 T4 M3 ^        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
  I8 Q4 |0 o3 G7 t7 H  }                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
- Q( m& w  e* E6 n" X                                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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
) x8 ~' N1 S) r5 K. E( \9 m- y                next;
. @  P) M8 L1 J; m        next;
       
7 Q  F) z& \- C) c1 ~! ]        lines:=0;
        partstable.delete;
       
  q8 z6 n" C7 P) s' D4 C4 k) t! Z        for i:=1 to number_of_machine loop
% @# w! L: T* n! a* i8 s                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
4 M( C* g4 L- O$ h0 ]* H                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
& V, i" u, u  Q  k5 J- Q: P                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
% s8 X. Y! ~& S' K                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
2 |  b; c- p. i; e" l, o                        partstable[6,lines]:=j;
2 e) k# c6 R6 B8 h2 }1 C- e                end;
$ k1 D' q! ?7 d' O+ \, C: y' n( W  }        next;
        machinename:=sprint("M",rows);
# t" w6 ~# N& Y% u  I6 O        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;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
0 ]1 d, R/ J0 a& ~; m        machine.exitctrl:=ref(leave);
       
  `# S$ k# \9 c2 D2 E        bufname:=sprint("BF",rows);
  m. e4 Q/ E/ g3 Y/ n$ \        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]);
0 Y  h3 _4 a- ~+ [7 }! A        buf.name:=bufname;
0 r# d+ {' i5 q3 o, n9 k        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
/ F& d* j5 R6 n& y1 S        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* a% U! o: M+ i. l+ d# o. {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);
next;
! `( o# a; Z# L1 Yend;