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

zooey

is
. A) `$ V  e( h7 `/ c        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
3 H8 y9 P: @# q6 {9 N' b3 O    machinename,bufname:string;
: `4 m7 F& M. ~    machine,buf:object;
do
# e# O) G+ q( d% H, }        current.eraselayer(1);
, _. V5 y0 b" L. V       
7 i) X. s- A6 }# }( j5 \        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
3 ]# P# x( \+ `/ \: ^                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
: g9 J/ F- s/ o, k' U                        print"yes";
                when 32 then
, d9 @1 \( h3 \) M5 g  F! T# g                        print"no";
                else
% `& w3 d  d- c                        print"cancel";
: g) q& \$ B6 K+ t5 t                end;
3 j: h, d5 Q, o                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
- O' m! g8 d; |. F; Y        machinename:=sprint("M",i);
! R. q! u5 @2 @. K1 H% g9 Z        if existsobject(machinename) then
( g  K# x/ a1 E                machine:=str_to_obj(machinename);
* ~, b. Z" u) j                machine.deleteobject;
* f  f/ A5 z) r8 F) ^/ h        end;
' E& j' F. f, Y/ Q, P$ a        bufname:=sprint("BF",i);
        if existsobject(bufname) then
/ B; b- x: ^  t, k                buf:=str_to_obj(bufname);
8 C( X, b# D3 |, b. d" p* i                buf.deleteobject;
9 G5 L2 r' c* {        end;
4 d, Q) ?8 B; q: l        next;
4 R6 ], m/ R; C+ N       
! J" _0 ?/ R3 Z6 v: v        dx:=0;
1 B0 k# z5 F' C* ~; B        dy:=0;
        for i:=1 to number_of_machine loop
( u) s% W# i* }' _                rows:=str_to_num(omit(machinesequence[1,i],1,1));
6 f& ?4 O" N, k2 o& Z1 _1 d                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
+ E; P* p8 J* a# M                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
% U( w, v0 E8 S1 M* M% p                        and activityspace[1,rows]<(1.05*y_max) then
4 M$ S& |) A( b) Y+ k+ X0 A                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
# K0 {2 |3 A! m                        activityspace[1,rows]:=ct;
  g/ ^$ A( M! Q* u0 l* c                        mark:=true;
$ k( Y- p2 _9 r' t. \9 d" \. j& h) x                        else*/
                        y_max:=y_max+dy;
& w# }7 V- i- n# f                        dx:=0;
$ `" l4 h: P7 u& H9 o/ g! n5 y                dy:=0;
                        --end;
4 J  S4 ~0 [. U8 Q' L! b' [                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
- P: z% Z" E. ^: v, w& `                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
7 r8 G0 f$ `$ P' x: I6 U1 }* o) {. I            if activityspace[2,rows]>dy then
  f; u$ m/ V5 Z7 w9 d  }- l                        dy:=activityspace[2,rows];
                end;
; \& E3 n# @$ k* i# S                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
3 D  B; H" a* V! v/ u                        activityspace[2,rows]:=activityspace[1,rows];
! _* r4 z$ Y' w+ R' C                        activityspace[1,rows]:=ct;
0 E' h6 M) h  O+ h" A6 l                        end;*/
        next;
' z8 C( a4 O+ ]- F& F% @1 h        y_max:=y_max+dy;
- e; `" N  j9 D' x" z! _. k2 a) g0 X! `        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 y# j8 ]; I0 S+ R" v6 R% Y& h        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);
5 z7 q( A- g6 L# v       
$ r- {8 d" i7 g" {2 H  S6 r        rows:=0;
1 K- x4 c' E/ f$ R- m        lines:=0;
        for i:=1 to number_of_machine loop
. i' U- R' s; _+ c: }1 m                for j:=1 to number_of_machine loop
1 D. V1 D) U0 w, T                        if j=i then
                                d_from_to_chart[j,i]:=0;
1 T# N9 g& D- J5 P                        else
                                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;
0 v/ a/ R" f- ~$ N                next;
        next;
       
* y* @+ n+ G9 G7 Y        lines:=0;
        partstable.delete;
       
        for i:=1 to number_of_machine loop
8 B2 f1 _4 F8 ?                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
: Q; h% b: m4 d5 F% `: P                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
2 a8 e* x2 M- D! O7 H5 w                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
( {" B% I0 w! C& H                        partstable[2,lines]:=w_from_to_chart[j,rows];
9 p. n9 a  b  A: _                        partstable[3,lines]:=sprint("parts");
/ Y( J4 E/ K3 ^: R1 d, U1 k' I                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
" F2 \" k1 p( z' a) ^8 y        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]);
" J. n( {8 L' m: L9 M        machine.name:=machinename;标识符未知
        machine.proctime:=5;
: k& M; f  f) u0 V, X" M        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
4 G+ {' T- i" t$ L       
        bufname:=sprint("BF",rows);
7 _: Z' \: a9 d2 S* B' H  u7 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]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
( H& T( M" {% o8 T# p. l& n/ I+ T        .materialflow.connector.connect(buf,machine);
) G4 u2 K) g) |6 r1 r& ^       
        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);
next;
1 g# h! G* [% H% [$ a/ [( d+ u) g) D4 Qend;