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

zooey

is
8 P' [+ x9 Z8 m: c2 z* l" ]6 D        mark:boolean;
5 X: [: @8 m' q) E  H" A        dx,dy,ct:real;
& O+ ^+ p) m2 s6 `& h9 G* U    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
, W: d: S/ g" K: X9 c3 a: {do
* f- B7 B  _2 R6 v        current.eraselayer(1);
       
: d# M8 Z+ E# [7 P6 l: F        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
; d: T8 ]: x) ?' X& i; v9 X$ Y! T5 W" r                inspect messagebox("设施数目不对！请核查...,",50,13)
" ]( [: y1 e+ K/ n3 v( L                when 16 then
3 ]) N5 j6 `8 m/ U# C                        print"yes";
                when 32 then
                        print"no";
3 [+ J" f+ |, J; L                else
                        print"cancel";
                end;
" z' v+ L; x9 \2 T& J                eventcontroller.stop;
. T9 P! J/ d4 @- ^/ k& k        end;
. o' {1 U3 X6 T5 x' ]8 N8 {; W       
        for i:=1 to number_of_machine loop
0 H# K6 X" ]4 s& J        machinename:=sprint("M",i);
& B4 R) p) R8 ^) n  Y; F        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
; W; A$ |& r0 U) T2 r/ D# n                machine.deleteobject;
. ~5 F, d! f" d! f0 o        end;
7 R  K1 k7 @8 e3 u! }9 J3 k" v        bufname:=sprint("BF",i);
        if existsobject(bufname) then
  i+ z& l4 j" I" g+ c                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
( J0 M9 T# j& b! ?$ A7 V. N       
        dx:=0;
        dy:=0;
; h8 m8 q2 M8 a  S) v0 J* v        for i:=1 to number_of_machine loop
* i; g/ p( ~/ H! k4 j% H6 ~# f$ O, @                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 a- h$ Q6 W) k# e8 n                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
, g( g5 l& F8 O2 A, b                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
! l/ C& e% b) |) X7 @                        and activityspace[1,rows]<(1.05*y_max) then
6 x, v$ P6 u2 n; a7 v. z6 k& g4 r1 g                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
# {0 z5 d4 x- l5 w# T                        activityspace[2,rows]:=activityspace[1,rows];
5 X( j. u; X/ k! _% G, N( ?                        activityspace[1,rows]:=ct;
# g8 K9 F9 d, M# D) ?, R; c4 |9 d% ?) K                        mark:=true;
5 j  V! o  V$ N( [- M2 E3 y1 i- O( o+ L                        else*/
2 G$ n5 y: K7 G, G. I) G* @                        y_max:=y_max+dy;
5 r% e* i9 B9 @- x                        dx:=0;
5 z5 M, k7 {3 W4 Q6 g6 w                dy:=0;
                        --end;
                end;
/ E' w2 X1 k8 Q4 G4 O                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;
& H( \% L! w/ s. h+ F. @( U            if activityspace[2,rows]>dy then
- G: D* b: ^0 j/ x' G                        dy:=activityspace[2,rows];
9 \$ Z; W9 d1 A6 a. ^+ I                end;
  n% J! V+ ~$ k0 L" I% r. E" d- m                dx:=dx+activityspace[1,rows];
" l% }" _$ ?7 ^7 |                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
. ?5 E& e6 j1 K' y$ j8 e2 \; l/ }                        activityspace[1,rows]:=ct;
8 K/ V! |. D& K; Z                        end;*/
        next;
        y_max:=y_max+dy;
3 F( S  F' I+ U5 m        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);
1 Y; ?4 [# q. ^& W1 s8 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);
       
+ V; T) N* q/ v8 R; b4 W        rows:=0;
/ E4 X/ }: _8 q: e5 R+ k1 S        lines:=0;
/ D9 C) O4 r: ^+ b7 Z        for i:=1 to number_of_machine loop
2 d  x9 a- o' o1 F                for j:=1 to number_of_machine loop
                        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];
5 e$ n1 X+ r9 V- ]# }                                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;
3 u) y# t, N3 E2 z8 T                next;
* b% J# }% m" Z7 a& m4 K3 H) S        next;
$ g+ c: R8 Y, H* x4 h9 I5 F       
        lines:=0;
        partstable.delete;
. N, J( y5 T2 m0 C       
        for i:=1 to number_of_machine loop
  P8 Z/ B& k' g                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
2 I6 V( v; t! Y( b/ w& i7 H                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
: v5 [) O7 [: R/ ^  S. ]. ^                        lines:=lines+1;
2 e- v3 F3 g  H                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
% F2 x1 h/ K9 Z" m0 n$ D8 p                        partstable[6,lines]:=j;
6 W) I' c# F$ P& D( O' Q, B) 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]);
$ {1 C3 T" _/ x. M        machine.name:=machinename;标识符未知
+ |' B' K6 N2 H5 z% A' A        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
2 X" m! O0 X6 f! A: r2 v       
: G' c! R& D; f: ^$ O9 ?3 M3 K        bufname:=sprint("BF",rows);
  T8 j& y. H6 \5 Q6 J8 |        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]);
4 q# j  X) O4 j* z2 Q' U        buf.name:=bufname;
- ], _* G; P1 x& @        buf.capacity:=5000;
        buf.proctime:=0;
! X1 r9 M; b# u9 ]        .materialflow.connector.connect(buf,machine);
' i3 Q6 g" I; R- w4 V5 d       
        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;
$ s. n- i: d3 @6 I6 q; N: [current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
* _# b/ q! z7 W( b1 k