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

zooey

is
        mark:boolean;
% ~5 @! E, `3 S& Z        dx,dy,ct:real;
) k  ~5 c' p+ V0 x2 j( G' @( u' a( `    i,j,rows,lines:integer;
9 e3 e1 P6 `8 t% f+ I    machinename,bufname:string;
2 ~5 z2 Q4 F& y7 k! F6 [/ E; b% K    machine,buf:object;
5 D! a& a# O7 {% E& L6 ~8 Vdo
/ f0 `  j9 s  P        current.eraselayer(1);
       
: @! s! ~; R8 a; V2 N! h$ t        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
5 }: E6 @7 v5 B                inspect messagebox("设施数目不对！请核查...,",50,13)
5 I9 T+ h  S2 n+ W$ a8 T# f                when 16 then
) X5 u% y1 w3 y1 X* i4 Q                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
                end;
                eventcontroller.stop;
; ]: t; }5 K7 V        end;
' g; C- H; Q; K% E. x$ ]       
        for i:=1 to number_of_machine loop
6 s) t0 R+ ?! J5 a1 p        machinename:=sprint("M",i);
        if existsobject(machinename) then
# t" B# y% q' v1 o5 W6 r                machine:=str_to_obj(machinename);
5 j2 ~- q; P  e                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
! k* S9 F1 U% l- O! M. r- l% X                buf:=str_to_obj(bufname);
7 z7 g1 b) O! p4 ~6 S0 ?" r( s* p' d                buf.deleteobject;
        end;
        next;
       
. C2 C! @0 W! P5 t8 ?) W8 l        dx:=0;
7 ?- u0 |+ W) l6 X        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
  m5 F5 o* }( C0 i$ X" q& ?                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
  B: S: m5 q% e. ~2 r                        and activityspace[1,rows]<(1.05*y_max) then
5 ?% N) R$ j  O5 I7 v                        print activityspace[1,rows],",",activityspace[2,rows];
, C4 }5 p) `9 K0 q& V/ i6 b                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ e7 v* z7 Z  b1 R) [                        activityspace[1,rows]:=ct;
$ I/ r; w+ v# b1 d# n9 u  D                        mark:=true;
, j2 G+ x( v, E* Z% t* t                        else*/
: p( |. P* l5 Q; b) f2 z                        y_max:=y_max+dy;
                        dx:=0;
                dy:=0;
                        --end;
  m. s$ F5 f/ ~' b9 x% U) t0 y                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;
* V  _4 v- o, g5 v/ e# A8 e            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
+ \1 i) c# _% \) j2 W+ s( m& r                end;
+ [, k) v% d: \3 X9 |$ a% @; S: {" f                dx:=dx+activityspace[1,rows];
% B" J7 O8 Z% _5 n! [                /*if mark=true then
                ct:=activityspace[2,rows];
: d  g5 P- X+ K3 Z                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
3 {$ j; P9 @4 c2 r        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);
+ @: z$ |8 z6 |% ^7 \2 O3 d        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);
       
2 v8 h: h- Z' X/ a. Q/ Q* D% n        rows:=0;
        lines:=0;
8 K) _% W2 i# f0 A5 c* q        for i:=1 to number_of_machine loop
9 K/ G6 \3 V* R/ {                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
! Q7 z& X/ |7 f3 X8 [: H                        else
; y  y" ?& r  T/ E2 P                                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;
                next;
        next;
% ?# [$ l$ n0 H7 t       
        lines:=0;
        partstable.delete;
       
4 G( B8 T$ o9 W1 l% d        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
2 }  o) ?* ~) _4 }                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
8 |) D, s! `& C3 @                        partstable[2,lines]:=w_from_to_chart[j,rows];
! i6 G* M  I4 r/ z# o1 D. H                        partstable[3,lines]:=sprint("parts");
! D5 j) |' f. ~, J  v                        partstable[5,lines]:=rows;
5 \; |0 p" o4 B7 z                        partstable[6,lines]:=j;
$ G9 m1 O# W$ K) O: u2 ]8 F                end;
        next;
        machinename:=sprint("M",rows);
0 x/ `* q/ K% Y2 F1 \        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]);
( X* R; f* k  l4 v$ n1 M/ _$ L4 ?        machine.name:=machinename;标识符未知
        machine.proctime:=5;
5 F: |# g! K& M2 S+ a4 y        machine.label:=activityspace[0,rows];
5 b! J" N' H( j) ^$ d# P        machine.exitctrl:=ref(leave);
       
# R2 c5 ~4 h8 x- D/ b        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]);
: `/ P7 n+ g, @        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
9 a+ V) Y4 [1 f& k  m4 @: F; W        .materialflow.connector.connect(buf,machine);
: K5 A) U- ?* n5 c       
        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);
6 T0 f! o1 j% n; \next;
end;
. x- C8 K0 ^$ Q! |2 \