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

zooey

is
5 N+ d( k- A# _0 v) a0 f& Z        mark:boolean;
        dx,dy,ct:real;
+ E: l! L2 V7 j8 N2 q    i,j,rows,lines:integer;
* F% H* d9 g! |3 @5 R" x/ i    machinename,bufname:string;
: w- S& u& G. b4 l1 Q( a; Q5 r    machine,buf:object;
: E7 O4 D4 M/ Y* Xdo
& s; j$ K* s" ]! l+ M1 F        current.eraselayer(1);
! d/ V$ m% q) I3 U" ^+ d       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
+ c* j" Q" v: n+ e% A* a* P/ y                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
                when 32 then
                        print"no";
                else
+ p% x9 r- O0 U8 a( Z. |                        print"cancel";
                end;
7 X' A. U# k0 o* d' x8 A                eventcontroller.stop;
+ V9 G2 n. ^6 w% f        end;
       
' U: h- _+ n; d/ `# x- K) T# Q        for i:=1 to number_of_machine loop
# N# }( g( L1 j* _        machinename:=sprint("M",i);
        if existsobject(machinename) then
9 l. Y, r! r; |2 N                machine:=str_to_obj(machinename);
1 `6 X0 n' q$ O5 E                machine.deleteobject;
$ S$ G3 z3 E( N) Y        end;
6 J( E+ o+ B% }% O/ u& R9 F! S        bufname:=sprint("BF",i);
$ P' H4 t  K% s% g2 Y' }+ _8 Q+ j0 j8 k        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
. G9 B  y7 B' F# l: W9 Q                buf.deleteobject;
        end;
% n" R5 ?9 `6 h* J, |  X0 K        next;
       
        dx:=0;
        dy:=0;
% V0 ^0 B8 H/ v        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. v. H! R3 P5 t8 w' f                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
" s2 p7 A* n# g                then
7 z$ R2 n8 G. ~; T& }" G                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
6 Q. q# c) i6 E                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
2 G1 d4 l* n% R! M7 l                        mark:=true;
1 T; }7 G, ^+ B4 C* J% v                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
: d. F, |$ Y+ i                dy:=0;
, Z; Q5 E& z/ y" t                        --end;
5 k" b& w6 [& p8 U$ j- J# @                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;
9 T+ ~4 I0 j# {/ @4 ]+ v. H$ u            if activityspace[2,rows]>dy then
) k3 S& U% v1 F  w  E, e                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
# |# L+ s# c& D* _0 @- x                /*if mark=true then
                ct:=activityspace[2,rows];
: I. y' H7 t, s/ J6 k* {# ]' b                        activityspace[2,rows]:=activityspace[1,rows];
3 e$ a; X/ d; \' C/ r! q                        activityspace[1,rows]:=ct;
                        end;*/
        next;
) b* v# U5 |% }' ]/ H' j0 f0 V        y_max:=y_max+dy;
" \" Z8 z# {: F; j0 M: ^$ L        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);
6 p" p2 D9 A# R. T; l/ V* I        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);
, S" a- i" N4 W. I8 k       
% Y, s+ Q5 p+ s/ p' V8 P6 a% e        rows:=0;
9 U: l$ Y) a3 h/ u! x3 B        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
0 }3 b  E7 `- c: B% ?                                d_from_to_chart[j,i]:=0;
: j9 B) ]1 a; P: y* W! j                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
& U8 Y4 V7 N3 U7 G; S                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
" J" B: Q9 n+ C- \* |. u                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
                next;
& }9 E# ?: n, P2 [4 _        next;
       
( a7 A3 M+ L! C5 y% l        lines:=0;
  \# ]3 B2 Z  O! J; e9 }6 O        partstable.delete;
       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. N/ y$ Z" d; t+ F- ^4 n                machinesequence[2,i]:=rows;
2 P8 x3 x+ y) g8 @; B% J% P0 {1 X                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
+ B, }9 N1 W& M, ?* y                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
: ^$ P. T& l' L; M- W- P                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
6 b5 i; I7 I# H( W                        partstable[5,lines]:=rows;
4 r3 h* [& H0 H( b( z                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
0 U. d2 Y9 ~! D# W8 n: m+ 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;
2 H2 E% `$ {% L0 w2 q1 a        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
  V/ F  ]' J, x3 w- K! f5 {        bufname:=sprint("BF",rows);
" {" ~2 P5 y: R3 Q; _0 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]);
- |5 L2 ?- o" T! G% L        buf.name:=bufname;
8 G4 H" i/ h2 K/ F! o        buf.capacity:=5000;
# t! ~& h1 H( g/ N9 q/ O        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
' ?8 W# e# I7 D1 i; Z       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
2 I! E  ^5 u8 y) o, Fdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
0 ?9 S0 W5 c8 a4 D/ {9 Ucurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
* ^" K( K2 f. B& G# ]next;
6 |- D2 \) c, V: ?3 V. aend;