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

zooey

is
        mark:boolean;
# }- t  s7 G! V# E$ i$ {        dx,dy,ct:real;
, U8 z. R" `9 c& c0 V. I    i,j,rows,lines:integer;
4 s2 |* s  B4 Z- P# n    machinename,bufname:string;
    machine,buf:object;
6 ]4 h8 a7 }* c  U% b% g) Odo
8 H9 Y- W. v# Q. f4 s/ g# E- r        current.eraselayer(1);
  x7 ?( f0 y* z& w, k4 Y       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
5 Y6 R, q& ~2 c4 U, M( F                when 16 then
4 a4 p1 H: P( S- d+ h9 P6 f" L                        print"yes";
                when 32 then
. P2 p# {8 b: C" x3 {                        print"no";
7 d- w. [9 R7 f- [9 r/ ]                else
                        print"cancel";
1 ^+ R6 v* M8 \* g4 N2 T9 g                end;
" n+ Y+ ~2 m% b                eventcontroller.stop;
        end;
       
. y# e  @$ Z2 n, ~6 {* |, G) f        for i:=1 to number_of_machine loop
) G+ }) |' L1 t) A' a: p' ?        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
& }- B2 }1 Q. Z# V: `" D                machine.deleteobject;
3 C, K3 r# c) v' Y/ p4 M/ U. V        end;
        bufname:=sprint("BF",i);
8 T& L7 F; ]( w0 ?: P        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
6 G( s# x3 j6 Z+ j        end;
        next;
" O4 Y% p5 |; U3 d9 Q       
        dx:=0;
        dy:=0;
0 ~1 f1 [' I& t9 _+ s9 z        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 s+ x. Z. i" O& |) z9 p                --mark:=false;
* p& @) P2 {+ @6 u" V4 j( Q+ a                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
( l$ |3 p; R. y3 P! [' @                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
1 [5 f% {0 E7 E                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
; A9 \9 c4 L* N) M; X# J% x/ s5 [                        activityspace[1,rows]:=ct;
  }! P2 r% F7 x% e7 b; }0 Q( ~' I, P* Q                        mark:=true;
4 j" J& K$ `: U0 |$ h4 e2 ^' C                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
* Q: B' P2 ]/ W                dy:=0;
2 I2 c# _3 s. X  e) H( P  m                        --end;
* B6 F, r! f! p# f8 b- C5 U2 w                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
) M+ ]# t1 F7 `1 Y4 {                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
8 |" S3 \; v3 D" \4 H( e            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
# f5 }! H+ j/ R6 K$ p) S                end;
                dx:=dx+activityspace[1,rows];
( M  f+ X$ @+ Q$ W" L" Q9 d- W                /*if mark=true then
( y9 s1 Y$ y! Z/ U" x& {( I8 O) K                ct:=activityspace[2,rows];
* k% E" a; S9 \6 o8 a% H$ m: r' Q+ B                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
: U, I$ a/ J' K9 ]( ~7 _                        end;*/
0 M# K" E; U' N5 W; o- K1 F/ d        next;
- p* x$ o3 `# U3 w! m        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);
; ~, R/ h3 [) F9 q6 F        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);
       
        rows:=0;
1 N+ B) g' H. x& h+ Q  n- Q/ q1 m        lines:=0;
2 `# N6 l9 D( E. c- z& r/ m* K        for i:=1 to number_of_machine loop
+ q  D, {  C; q3 O! L- q                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
/ p) p# h2 ~  s! C# ]1 F                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
( g2 G) H* m( c2 h4 G; 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);
                        end;
: D6 B& \5 ]# D8 T, u* ~* i                next;
0 G+ F( T: _3 E        next;
/ H( Z, t- m6 h$ e' L5 w  A8 W% R       
        lines:=0;
        partstable.delete;
       
( j5 M$ Q( W3 M/ Z2 o8 J        for i:=1 to number_of_machine loop
! u, S  v! |3 I' ~                rows:=str_to_num(omit(machinesequence[1,i],1,1));
( H7 Q) `2 _, S, M* a7 F9 w: D                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
9 ]1 X" G8 ?7 o# f1 Q! H, j! B% [                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
; R' \% O4 g9 _                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
% k+ M. D& \4 Z8 u7 k" l2 i                        partstable[5,lines]:=rows;
  M2 Q. X  C' D                        partstable[6,lines]:=j;
+ D" i; }! |! v( X                end;
# Q) D4 Y! [0 V* M1 L: _$ F        next;
  o4 d4 N7 D) L9 p4 Q, \7 K        machinename:=sprint("M",rows);
! ?4 T! f7 D; b7 L; J3 p5 R' ]        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];
        machine.exitctrl:=ref(leave);
* g# L  O4 g7 p# p# S: Y$ t       
; b2 E: r4 ^# E: y4 O; G- z        bufname:=sprint("BF",rows);
% X5 w  z3 Y- j        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;
; _$ e* C  |; P: u        buf.capacity:=5000;
' {. S( z5 _" d3 P        buf.proctime:=0;
6 s, |# @' Q  f4 K+ y4 M        .materialflow.connector.connect(buf,machine);
$ H. F7 H7 T) W       
2 s5 v) l: L$ [3 H# R7 }. `        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
9 t, c+ X" }; L0 ~dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
: b2 a; V" {. D7 A' y6 D( ~current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;